Sayfa isimlerini sayfa içindeki hücrelerden alma

[sagacious]

Arkadaşlar elimde aynı formatta yazılmış 100 e yakın Excel dosyası var. Bunları tek dosyada birleştirdim hepsi yeni sayfa şeklinde sıralandı fakat isimlerini değiştirmem gerekiyor. Tek tek yapmak uzun olacağından yardımınıza ihtiyacım var. Tüm sayfaların A2 hücresinde gün/ay/yıl şeklinde tarih bilgisi var. Her sayfanın A2 hücresindeki tarih bilgisinin o sayfanın ismi olarak yer almasını istiyorum.
Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?
Not : Sayfanın A2 hücresi tarih değilse isim değişikliği yapmaz.

Sub SyfAdDegistir()

    Dim Syf As Worksheet
    
    For Each Syf In Worksheets
        If IsDate(Syf.Range("A2")) = True Then Syf.Name = Syf.Range("A2")
    Next Syf
    
End Sub

 

[sagacious]

Bazı sayfalarda tarih gg.aa.yyyy şeklinde noktayla yazılmış bazı sayfalarda ise gg/aa/yyyy şeklinde yazılmış o yüzden işe yaramadı maalesef.

 

[Necdet]

Sayfadaki tarih yazılımlarını kontrol ettiniz mi?

 

[sagacious]

Örnek dosyadaki şekilde tarih formatları,sorduğunuz soruyu anlayamadım.

 

[Cengiz Demir]

/ karakterini sayfa isimlerinde kullanamıyorsunuz muhtemelen o yüzden sorun çıkmıştır.

 

[Necdet]

Kodda değişiklik yaptım, onu dener misiniz?

 

[YUSUF44]

Sayın Necdet Bey'in kodunu aşağıdaki gibi kullanabilirsiniz:

Sub SyfAdDegistir()

    Dim Syf As Worksheet
    
    For Each Syf In Worksheets
        If IsDate(Syf.Range("A2")) = True Then Syf.Name = Format(Syf.Range("A2"), "dd.mm.yyyy")
    Next Syf
    
End Sub

 

[sagacious]

Teşekkürler