PC-HELP.CZ

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

Vítej na PC-Help

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

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..