Otomatik tarih yazdırma?

[saydn]

Merhabalar bu ilk mesajım ve üstadlardan bir konuda yardım rice edeceğim; çalışma sayfamda örnek olarak A1:A365 sütununda tarih hergün hücreye değişmeyecek şekilde yazılarak ertesi gün günün tarhi ile devam etsin.
Özet olarak hergün tarihler günü geldiğinde sabit kalacak şekilde alt alta yazılsın.Bu makro konusunda yardımcı olursanız çok sevinirim.Teşekkürler.

 

[alpi]

Önce A1 hücresine bir tarih yazın sonra altındaki tüm satırlara aşağıdaki formülü yazın

=EĞER(A1<BUGÜN();A1+1;"")

 

[Seyit Tiken]

Bu kodu deneyiniz.

Private Sub Workbook_Open()
[A365].End(3).Offset(1, 0) = Date
End Sub

 

[saydn]

Çok teşekkürler makroyu çalıştıramadım formül işimi gördü,ilginize tekrar çok teşekkür ederim.