2023 yılı için Sayfa isimlerini tarih yapma

[Emiroğlu61]

Merhaba Arkadaşlar,
2023 yılı için 365 adet Sayfa Açıp Sayfa İsimlerini 01.01.2023 den 31.12.2023 e kadar yazılmasını istiyorum, makro ile mümkünmüdür.

 

[veyselemre]

Sub test()
    
    Dim i&
    For i = DateSerial(2023, 1, 1) To DateSerial(2023, 12, 31)
        Sheets.Add(Sheets(Sheets.Count)).Name = Format(i, "ddMMyyyy")
    Next i
    
End Sub

 

[Emiroğlu61]

Sub test()
  
    Dim i&
    For i = DateSerial(2023, 1, 1) To DateSerial(2023, 12, 31)
        Sheets.Add(Sheets(Sheets.Count)).Name = Format(i, "ddMMyyyy")
    Next i
  
End Sub

Maalesef Hata Veriyor
Sub Makro1()
'
' Makro1 Makro
' Sub test() Dim i& For i = DateSerial(2023, 1, 1) To DateSerial(2023, 12, 31) Sheets.Add(Sheets(Sheets.Count)).Name = Format(i, "ddMMyyyy") Next i End Sub
'
' Klavye Kısayolu: Ctrl+Shift+N
'
Application.Run "Kitap1!Makro1"
End Sub

 

[Emiroğlu61]

tamamdır çok saolasın

 

[assenucler]

Sayın veyselemre,

Paylaşımınız için teşekkürler.
İki tarih arası için sayfa yaratılırsa, koda nasıl ekleme yapılmalıdır?

Saygılar,
Selim

 

[assenucler]

Sayın veyselemre,

Paylaşımınız için teşekkürler.
İki tarih arası için sayfa yaratılırsa, koda nasıl ekleme yapılmalıdır?

Saygılar,
Selim

 

[assenucler]

Sayın Site Yönetimi Dikkatine,


Yazdığım ileti için bir kez "Cevabı Gönder'e" tıklamaya karşın, görüleceği gibi 2 kez siteye yüklendi.

Bu durumla bir kaç yıldır 4-5 karşılaştım ve yönetimin dikkatine sunmama karşın, tarafıma hiç bir zaman dönüş yapılmadı.

Bilgilerinizi ve gereğini rica ederim.

Saygılar,
Selim

 

[assenucler]

Sayın Site Yönetimi Dikkatine,


Yazdığım ileti için bir kez "Cevabı Gönder'e" tıklamaya karşın, görüleceği gibi 2kez siteye yüklendi.

Bu durumla bir kaç yıldır 4-5 karşılaştım ve yönetimin dikkatine sunmama karşın, tarafıma hiç bir zaman dönüş yapılmadı.

Bilgilerinizi ve gereğini rica ederim.

Saygılar,
Selim

 

[assenucler]

Ne yapacağımı bilmiyorum!

 

[Necdet]

Sayın veyselemre,

Paylaşımınız için teşekkürler.
İki tarih arası için sayfa yaratılırsa, koda nasıl ekleme yapılmalıdır?

Saygılar,
Selim

Veysel bey zaten sizin sorunuzu yanıtlamış.

 

[assenucler]

Sayın Necdet Bey,


Yaş 77 oldu, dalgınlığıma geldi. Bilgilendirmeniz için teşekkürler.

Saygılar,
Selim

 

[Necdet]

Sayın Necdet Bey,


Yaş 77 oldu, dalgınlığıma geldi. Bilgilendirmeniz için teşekkürler.

Saygılar,
Selim

Saygı benden, teşekkürler.
İyi hafta sonları.

 

[Emiroğlu61]

Sayın veyselemre,

Paylaşımınız için teşekkürler.
İki tarih arası için sayfa yaratılırsa, koda nasıl ekleme yapılmalıdır?

Saygılar,
Selim

tarih yazan sayıları değiştir.