Excel - událostní procedura

[ssnakess]

Zdravím,

možná to sem nepatří, ale za optání nic nedám, při nejhorším jen ukamenování.

Neumíte někdo událostní procedury v excelu?
Potřeboval bych do buňky B1,2,3,4,5... zapsat čas změny buňky(zapsání nebo přepisu) A1,2,3,4,5...
¨
Našel jsem:

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

Funguje to jen u A1 B1 dál už ne. Zkoušel jsem to nějak upravit, ale nešlo to, poněvadž tomu vůbec nerozumím.

Díky za rady.

[Noxus28]

zdravím
pre excel 2016 to vyzerá nasledovne:

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    i = Target.Row
   Cells(i, 2).Value = Format$(Now, "dd/mm/yyyy hh:nn:ss")
End If
End Sub


čiže stĺpec z ktorého číta "zmenu" je Target.Column = 1 Then pričom 1=A 2=B atď
a cieľový stĺpec kde sa zapíše čas je Cells(i, 2) pričom 1=A 2=B atď

PS: ak by si nevedel vkladá sa to pomocou kliknutia na Hárok pravým a funkciou zobraziť kód. Následne to vložíš do VB editora a uložíš

veľa zdaru

[ssnakess]

2 Noxus28

super, funguje to přesně tak, jak jsem potřeboval.
Potřeboval jsem změnit na jiný sloupec, ale to už bylo jednoduchý. Díky moc.