Basit bir makro sayfa isimlendirme sorusu

[ibere]

Dostlar merhaba,

elimdeki excel sayfaları 1,2,3 olarak devam etmekte, 0 isimli sayfadan isimleri çekerek dosya isimlerini 1 isimli sayfadan başlayarak tarihlerle değiştirmek istiyorum. Bunu for next döngüsü yazarak yapmaya çalıştım fakat beceremedim. Bu kardeşinize yardımcı olursanız beni çok sevindirirsiniz. İyi hafta sonları dilerim.

 

[Ziynettin]

Deneyiniz....

Sub test()
    On Error Resume Next
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        Set s1 = Sheets(CStr(Day(Cells(i, 1))))
        If s1.Name = CStr(Day(Cells(i, 1))) Then
            s1.Name = Cells(i, 1)
        End If
    Next i
End Sub

 

[ibere]

Deneyiniz....

Sub test()
    On Error Resume Next
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        Set s1 = Sheets(CStr(Day(Cells(i, 1))))
        If s1.Name = CStr(Day(Cells(i, 1))) Then
            s1.Name = Cells(i, 1)
        End If
    Next i
End Sub

Ziynettin hocam sen nasıl bir kralsın, çok teşekkür ederim. Çok mutlu ettin beni, kod çalışıyor