seçili sayfaların harf ve sayı bazında sıralanması

[mmsez]

Merhaba.sürekli kullandığım bir excel dosyasında 30-40 civarında sheet'i manuel sıralamak zorunda kalıyorum.seçili olan sheet'lerin sıralanabilmesini sağlayacak bilgiye ihtiyacım var.Konu ile ilgili bilginizden istifade edebilirsem sevinirim.
Teşekkürler...

 

[İhsan Tank]

örnek dosya eklerseniz yardımcı olamaya çalışalım

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub sayfa_sirala()
Dim i As Integer
Dim j As Integer
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
Next j
Next i
End Sub

not:
kodlar (ç)alıntıdır.

 

[mmsez]

valla üstad süpersiniz o kadar diyorum.teşşekürler.
abartıp bi şeyler daha soracağım ama....
iki excel dosyası var.biz as400'ten excel e veri alıyoruz firma kodu bazında bunları sayfa sayfa dosyaya yüklüyor.fakat as400'e adres bilgilerini eksik girdiklerinden başka bir excel dosyasında hazır olan adreslerin bulunduğu sheet'leri tek tek seçerek kopyalayıp yapıştırıyoruz.varmıdır pratik yolu?
umarım düzgün anlatabilmişimdir.