dosya adına bağlı olarak sayfa adının otomatik isimlendirilmesi

[karakayalı]

dosya adını 0CAK 2017 yazılması halinde
sayfaların o ayı kapsayacak şekilde açılması ve isimlerinin
01 OCAK 2017
02 OCAK 2017
03 OCAK 2017
.............
31 OCAK 2017 OLARAK adlandırılmasını istiyorum..
yardımlarınız için şimdiden tşk.ler...

 

[Korhan Ayhan]

Dediğiniz şekilde bir dosya oluşturun ve içinde aşağıdaki kodu çalıştırın. Fazlalık sayfalarınızı elle silin.

Sub SAYFA_EKLE_İSİMLENDİR()
    Dosya_Adı = Replace(ThisWorkbook.Name, ".xlsm", "")
    Tarih = "01." & Split(Dosya_Adı, " ")(0) & "." & Split(Dosya_Adı, " ")(1)
    Son_Gün = Day(DateAdd("m", 1, CDate(Tarih)) - 1)
    For X = 1 To Son_Gün
        For Each Sayfa In ThisWorkbook.Worksheets
            If Left(Sayfa.Name, 2) = Format(X, "00") Then
                Say = Say + 1
            End If
        Next
        If Say = 0 Then
            Worksheets.Add , Worksheets(Worksheets.Count)
            ActiveSheet.Name = Format(X, "00") & " " & Dosya_Adı
        End If
        Say = 0
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[karakayalı]

korhan bey...yardımlarınız için çok teşekkür ederim...