Excel de ç.sayfası adlarını toplu değiştirme hk.

[HACI46]

Arkadaşlar merhaba, Excel de 31 günlük(sayfa),(1 aylık),hazırladığım Çalışma sayfalarına her ay tekrardan Sayafa adlarını değiştimek zaman alıyor bunu bulunduğumuz ay yada hazırladığım herhangi bir ayın gün ay yıl şeklind bir sütunda 01.OCAK.2016.....31.OCAK.2016 şeklinde sıralanmış, sütundaki 31 günlük gün ay yıl olarak kolay yolla hazırladığım yeni Ay'ın çalıma sayfa adlarını (tarih bazında) nasıl yazdırabilirim ? veya değiştirebilirim ? Excel(xlsx) de.
Bu husustada deneyim ve tercübelerinizden istifade edebilirmiyim.
İlgilenen Kardeşlerimize şimdiden selam eder, Herkese esenlikler dilerim.

 

[YUSUF44]

Anladığım kadarıyla aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub sayfa()
toplam = Sheets.Count
10:
ay = InputBox("Kaçıncı aya ait sayfalar oluşturulacak")
If IsError(ay * 1) = False Then
    If ay * 1 > 12 Or ay * 1 < 1 Or Int(ay * 1) <> ay * 1 Then
        MsgBox "Lütfen 1-12 arası bir tamsayı giriniz!", vbCritical
        GoTo 10
    End If
Else
        MsgBox "Lütfen 1-12 arası bir tamsayı giriniz!", vbCritical
        GoTo 10
End If
20:
yıl = InputBox("Hangi yıla ait sayfalar oluşturulacak")
If IsError(yıl * 1) = False Then
    If Int(yıl * 1) <> yıl * 1 Then
        MsgBox "Lütfen bir tamsayı giriniz!", vbCritical
        GoTo 20
    End If
Else
        MsgBox "Lütfen bir tamsayı giriniz!", vbCritical
        GoTo 20
End If
If toplam < Day(WorksheetFunction.EoMonth(DateSerial(yıl, ay, 1), 0)) Then
    For eksayfa = toplam + 1 To Day(WorksheetFunction.EoMonth(DateSerial(yıl, ay, 1), 0))
        Sheets.Add
    Next
End If
For günler = 1 To Day(WorksheetFunction.EoMonth(DateSerial(yıl, ay, 1), 0))
    Sheets(günler).Name = WorksheetFunction.Text(DateSerial(yıl, ay, günler), "dd.mm.yyyy")
Next

End Sub

 

[HACI46]

İlgi ve alakanıza çok teşekkür ediyorum Yusuf bey kardeşim.
Bu dersime çalışacağım, Anladığım kadırıyla bu yolu ancak marolu(Excel xlsm) olarak kullanabilirim, Bunu (Excel xlsx) Dosyasında yapabileceğim bir yol da varmı ? Deneyimlerinizden yararlanmak isterim.
Tekrar teşekkürlerimi iletir, size ve tüm arkadaşlara esenlikler dilerim.