Kb. 1 éve kérdeztem, hogy érhetem el a rögzítés dátumának megjelenítését a beírás sora másik oszlopában. Megkaptam, hogy a WB szerkesztőbe milyen parancsot kell írni.
Kérdezem, hogy az If Target.Column = 1 helyett 1 –től 6 –ig ki lehet-e terjeszteni, hogy bárhol 1-től 6. oszlopig utólag berögzítek a sorba, megjelenjen a rögzítés dátuma, ne csak ha az első oszlopba írtam.
Ez a makró az első 6 oszlopot figyeli. Az A oszlophoz tartozó beviteli dátumot a G-be írja, a B dátumát a H-ba, és így tovább.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 7 Then
Application.EnableEvents = False
Cells(Target.Row, Target.Column + 6) = Date
Application.EnableEvents = True
End If
End Sub
.
