Otomatik Tarih yazma.

[Leoncio]

Merhaba;
a2 den itibaren başlamak üzere a2 hücresine herhangi birşey girdiğimde b2 hücresine bugünün tarihini nasıl yazdırabilirim. (Formül ile istemiyorum)

 

[veyselemre]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
    Target.Offset(, 1) = Date
End Sub

 

[Leoncio]

Teşekkür ederim. Peki A hücresine yazdığımızda B hücresinde tarih çıkıyor. A sütunundaki veriyi yanlışlıkla yazdığımız varsayımıyle;
A sütunundaki hücrede bulunan veriyi sildiğimizde B sütunundaki tarihte silinebilir mi?

 

[veyselemre]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target.Value <> "" Then
        Target.Offset(, 1) = Date
    Else
        Target.Offset(, 1) = ""
    End If
End Sub

 

[Leoncio]

Teşekkürler.