• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excel Hakkinda Bİlgİ

Katılım
15 Mayıs 2008
Mesajlar
1
Excel Vers. ve Dili
excel 2003 türkçe
Excelde Yardima Bİ Konuda Yardima İhtİyacim Var.excelİn İÇİndekİ Sayfalri A-z Ye Nasil Siralatabİlİrİm.Şİmdİden TeŞkekÜr Ederİm.
 
Merhabalar bu işi kod ile yapmak istiyorsanız, bir düğmeye atayacağınız aşağıdaki kodlarla harf sırasına göre sayfaları sıralayabilirsiniz.

Sub sirala()
For a = 1 To Sheets.Count
For b = a + 1 To Sheets.Count
If LCase(Sheets(b).Name) > LCase(Sheets(a).Name) Then GoTo 100
Sheets(b).Move before:=Sheets(a)
100 Next
Next
End Sub
 
Geri
Üst