Excel datum zadání dat do oblasti buněk

[peen]

Dobrý den, potřeboval bych v excelu zapsat datum a čas zadání dat do některé z oblasti buněk. Hlídala by se oblast J3:BN102 a datum změn v kterékoli řádku z těchto buňek bych potřeboval vrátit do sloupce I, resp. oblasti I3:I102. Řeší se to událostní procedůrou, ale nejsem programátor.. Jo a sledování změn mi nevyhovuje.

Něco podobného je toto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
With Target(1, 2)
.Value = Now
.EntireColumn.AutoFit
End With
End If
End Sub

Ale toto kontroluje jen změny v oblasti A2:A100. Nedaří se mi to z toho vyrobit..
Umíte někdo pořešit?
Díky

[Reklama]

[cmuch]

Vítej na PC-Help

Jestli jsem to dobře pochopil tak by to vypadalo takto.

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  If Not Intersect(Target, Range("j3:bn102")) Is Nothing Then
    Cells(Target.Row, "I").Value = Target.Value
  End If
End Sub


[peen]

Díky moc! Je to ono, jen jsem tam tam chtěl fci Now,
takže takto je to přesně co jsem myslel:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("j3:bn102")) Is Nothing Then
Cells(Target.Row, "I").Value = Now
End If
End Sub

Díky moc. Když někdo umí, tak je to hračka..