tarih olan sayfaları listele

[hayri tekin]

Merhaba,
Ekli dosyamda isim ve tarihlerden oluşan sayfalarım mevcut."sayfalar" isimli sayfanın "A2" hücresinden itibaren tarih yazılı olan sayfaları listelemek istiyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub Listele()
    Dim i As Integer
    Dim j As Integer
    
    j = 1
    Range("A2:A1000").ClearContents
    
    For i = 1 To Sheets.Count
        If IsDate(Sheets(i).Name) = True Then
            j = j + 1
            Range("A" & j) = CDate(Sheets(i).Name)
        End If
    Next i
End Sub

 

[hayri tekin]

Üstadım çok teşekkür ederim;işimi gördü.
Saygılar.