VBA - zapsání změny času ve více buňkách a řádcích

[hanz02]

Ahoj, našel jsem jak zapsat poslední čas úpravy sledované buňky:

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Cells(2, 1) = Now
End If

Toto funguje správně.

K tomu potřebuji hlídat změnu i na buňce B5 a zapsat čas změny do B4.
To celé i na ostatních řádcích (nejenom na řádku 2).

Děkuji za rady.

[cmuch]

Třeba takto pro celý sloupec B

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
  'plati pro sloupec B (A=1) krom prvniho radku
  If Target.Column = 2 And Not Target.Address = "$B$1" Then
    Application.EnableEvents = False
     Cells(Target.Row, 1) = Now
    Application.EnableEvents = True
  End If
End Sub

[hanz02]

Díky, to bylo ono.