Veriyi sildiğinde tarihinde silnmesi

[fatihhan34]

Arkadaşlar Sayfa 1'e makro kodu oluşturdum. A sütununa veri girdiğimde B sütununa otomatik tarih atıyor.

A sütununa girdiğim veriyi sildiğimde B sütunundaki tarihin otomatik olarak silinsin istiyorum.
Teşekkürler


http://www.excel.web.tr/attachment.php?attachmentid=123439&stc=1&d=1326027640

 

[f_desat]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
If Intersect(Target, Range("A:A")) = "" Then
Target.Offset(0, 1) = ""
End If
End Sub

 

[fatihhan34]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
If Intersect(Target, Range("A:A")) = "" Then
Target.Offset(0, 1) = ""
End If
End Sub

Teşekkür ederim.