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

Katılım
10 Aralık 2022
Mesajlar
14
Excel Vers. ve Dili
2016
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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
 
Katılım
10 Aralık 2022
Mesajlar
14
Excel Vers. ve Dili
2016
Kod:
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
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,552
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
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

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,552
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
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

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,552
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
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

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,552
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
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

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,552
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
Ne yapacağımı bilmiyorum!
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,552
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
Sayın Necdet Bey,


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

Saygılar,
Selim
 
Üst