Üst Bilgi Hk.

[Mdemir63]

Selamlar

Kodlarla üst bilgi orta kısmına Günün tarihinin bir gün sonrasını yazdırmaya çalışıyorum. Ancak .3.2022
olarak getiriyor. Ben Ya 3.03.2022 ya da 03.03.2022 olarak getirmek istiyorum. Kodlarda ne gibi değişiklik yapmam gerekir.

Saygılar

 

[Haluk]

Şu yeterli mi?

Worksheets("Sayfa1").PageSetup.CenterHeader = Date + 1 & "  Tarihli Bayiler Listesi"

.

 

[Mdemir63]

Şu yeterli mi?

Worksheets("Sayfa1").PageSetup.CenterHeader = Date + 1 & "  Tarihli Bayiler Listesi"

.

Haluk hocam ilginize teşekkür ederim. Bu önerinizi yapmıştım ama üst bilgiyi Bold yapmıyor.

 

[Muzaffer Ali]

Tuhaf bir şey

Worksheets("Sayfa1").PageSetup.CenterHeader = "&""Times New Roman,Kalın""&1" & Day(Date)

Bu şekilde boş üst bilgi atıyor

 

[Haluk]

Şu çalışıyormu sizde?

Worksheets("Sayfa1").PageSetup.CenterHeader = "&B" & Date + 1 & " Tarihli Bayiler Listesi&B"

Çalışmazsa, &B yerine &K deneyin....

.

 

[Mdemir63]

Şu çalışıyormu sizde?

Worksheets("Sayfa1").PageSetup.CenterHeader = "&B" & Date + 1 & " Tarihli Bayiler Listesi&B"

Çalışmazsa, &B yerine &K deneyin....

.

Haluk Hocam
Sizin verdiğiniz kodu bu şekilde yaptım oldu. Çok Teşekkür ederim.

Worksheets("Sayfa1").PageSetup.CenterHeader = "&B" & Date + 1 & "&B" & "&B" & "  Tarihli Bayiler Listesi" & "&B"

 

[Haluk]

5 No'lu mesajdaki de çalışıyor olması lazım ....

.

 

[Mdemir63]

Evet hocam çalışıyor. Elinize sağlık ben fazladan
"&B"
eklemişim.

Saygılar