D8v1d
18.03.14,15:01
mám dva stlpce, A, B . Do stlpcu B zapisujem číselnú hodnotu. Potrebujem aby sa mi v stlpci A automaticky zapísal dátum v tom riadku kde je zapísana číselná.
PaloPa
18.03.14,15:37
Cez funkciu Worksheet_Change, ktorá sleduje, či sa zmenila hodnota v záujmovej oblasti (tu stĺpec B).



Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
On Error GoTo xErr:
Application.EnableEvents = False
For Each c In Target
If Not Intersect(c, Range("B:B")) Is Nothing Then
If c.Text <> "" And IsNumeric(c.Value) Then
c.Offset(0, -1).Value = Now()
End If
End If
Next c
Application.EnableEvents = True

Exit Sub

xErr:
Application.EnableEvents = True
End Sub


Ako: ALT+F11, kód pridať nad príslušným listom zošita.

Tip: funkcia je urobená tak, že je možné dať naraz jednu hodnotu do viacerých označených buniek (CRTL+ENTER)
D8v1d
19.03.14,07:38
Super, Ďakujem, presne ako som potreboval.

Môj problém bol v tom,že moje makro mi fungovalo ale vždy zapísalo dátum o riadok nižšie, keďže som to riešil cez SELECTnutú bunku.