Sadece sayfa adı numara olan sayfaların sıralanması

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Nümerik adlandırmaya sahip sayfaların sıralanması konusu için sitede yaptığım aramada bulduğum makrolarla istediğim sonuca ulaşamadım.
İstediğim; Sayfa1 de nümerik sayfa adları A32 den aşağıya sıraladığım şekilde sayfaların sıralanması
Sitede bulduğum linklerden sadece birini de aşağıda belirttim.
https://excel.web.tr/threads/sayfa-adi-sayidan-olusan-sayfalari-yan-yana-siralama.171465/
Saygılarımla

 

[Orion1]

Buyurun.

Sub sayfaadlari()
Dim x As Integer, sh As Worksheet
sheets("Sayfa1").select
x = 32
For Each sh In Worksheets
    If IsNumeric(sh.Name) Then
        Cells(x, "A").Value = sh.Name
        x = x + 1
    End If
Next
End Sub

 

[Tevfik_Kursun]

Sayın Evren Hocam,
İlginize çok teşekkür ederim. Ancak ben sayfa isimlerini A32 den itibaren sıralasın demek istemedim. Sayfaları, A32 den itibaren yazılmış olan sayfa isimlerinin sırasına soksun istemiştim.
Saygılarımla

 

[Orion1]

Sayın Evren Hocam,
İlginize çok teşekkür ederim. Ancak ben sayfa isimlerini A32 den itibaren sıralasın demek istemedim. Sayfaları, A32 den itibaren yazılmış olan sayfa isimlerinin sırasına soksun istemiştim.
Saygılarımla

Zaten a32 den itibaren listeliyor.

 

[Tevfik_Kursun]

Merhaba Evren Hocam,
Doğru A32 den itibaren isimleri listeliyor. Bana, Excel sheetlerinin, o arada yazılı olan sıraya sokulmasını istiyorum.
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Evren Hocam,
Ornekte Sayfa1 D sütununda mevcut durum, A32 den sonra olması istenen.
Saygılarımla