veri girildiğinde tarih ve saat yazdırma

[aligunes]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B8:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

iyi geceler B sutuna T.C. girdiğimde A sutuna günün tarihini ve o anın saatini otomatik yazdırıyorum ANCAK B sutuna yazdığım veriyi sildiğimde A sutundaki veride silinsin istiyorum bu mümkünmüdür?

 

[bmutlu966]

Aşağıdaki şekilde dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B8:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")

If Target = "" Then Cells(Target.Row, "A") = ""
End If

End Sub

 

[aligunes]

Aşağıdaki şekilde dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B8:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")

If Target = "" Then Cells(Target.Row, "A") = ""
End If

End Sub

Teşekkür ederim @bmutlu966 ''End If'' bunu sildim kod çalıştı eline sağlık