Bugünün tarihini girme

[ommerk]

Merhaba,
A1 hücresine herhangi bir değer girdiğimde B1 hücresine bugünün tarihinin atmasını istiyorum.
formül ile yapıyorum ama akşam özel yapıştır yaparak formülü kaldırmak zorunda kalıyorum.
Makro ile nasıl yapabiliriz.
Yardımlarınız için teşekkürler.

 

[Necdet]

Merhaba,

Bu konu çok işlenen konu da yine de kodları vereyim.
ilgili sayfanın kod bölümüne kopyalayıp yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Range("B1") = Date
    
End Sub