Bir hücreye butona bağlanmış makro ile tarih yazdırmak

İsteğinizin karşılığı şöyle:

If [B3].Value <> "" Then: [D7].NumberFormat = "dd/mm/yyyy": [D7] = Date

.

Öncelik olarak kod önerinize teşekkür ederim.
Kod, ilk iletideki durumu tam karşılıyor.
Ben bir noktada yanlış düşünmüşüm:
Kod, bir tarih yazdıktan sonra B3 hücresi boşaltılırsa ve kod yeniden çalıştırılırsa eski tarih orada kalıyor. B3 boşken boş olmuyor.

Şöyle bir mantık kurulsa doğru sonuç alınabilir sanırım.
B3="" D3 hücresini sil DEĞİLSE D3'e tarihi yaz.

Bu şekildeki bir düzenleme konusunda tekrar yardımınızı rica ederim.

O zaman, verdiğim kod satırının üstüne [D3].ClearContents satırı ekleyin.

.

Teşekkürler sorun bu şekilde tam olarak çözüme kavuştu.

Ömer Bey,
Konuyu "Çözüldü" olarak gösterdim ama koddaki [D3].ClearContents satırı birleştirilmiş hücrelerde hata veriyor.
Bunu önlemenin bir yolu var mı?

Silme işleminde adresi birleştirilmiş hücrelerin bütününü içine alacak şekilde değiştirin.
[D3 : G3]..... veya [D3 : D5].... yada [D3 : G5].... gibi.

Tekrar teşekkürler, bu sorun da çözülmüş oldu.