üst bilgiye bu günün ve yarının tarihini yazdırmak

[esrkeskin]

slm arkadaşlar,,,

excell de bir dosyam var fakat üst bilgi kısmına sağ tarafına BUGÜN - YARIN tarihinin otomatik olarak her gün değişerek görünmesini istiyorum.
24/05/2007 - 25/05/2007 gibi

şimdiden teşekkürler....

 

[mehmett]

Sn esrkeskin

Aşağıdaki makroyu çalıştırın.

Sub ustbilgi()
ActiveSheet.PageSetup.CenterHeader = Format(Date, "dd.mm.yyyy") & " - " & Format(Date + 1, "dd.mm.yyyy")
End Sub

 

[mehmett]

Her gün otomatik olarak değişmesini istiyorsanız ekteki dosyada olduğu gibi Workbook_Open makrosu gerekir. Alt+F11 tuşlayıp Workbook kod sayfasında makroyu görebilirsiniz.

 

[Seyit Tiken]

Bu şekilde bir deneyin.

Sub Düğme1_Tıklat()
ActiveSheet.PageSetup.LeftHeader = Date & "-" & Date + 1
End Sub