sayfaları alfabetik sıralama

[mehmeser]

Sağolun, denedim gayet güzel çalışıyor. Elinize sağlık. Daha yükseklerde olamnız dileğiyle.

 

[mehmeser]

Sağoulun, denedim güzel çalışıyor. Daha yükseklerde olmanız dileğimle...

 

[okavut]

Korhan bey teşekkürler benimde çok işime yaradı

 

[okavut]

korhan bey
sayfa sayısı artınca sıralamada bir problem oldu.
f12 de yaptım yine de olmadı

 

[bydogannn67]

aşağıdaki kodla " LİSTE " sayfası hariç sayfaları sırala nasıl yapabiliriz


Sub Autpen()
Dim i As Integer
Dim j As Integer
If Worksheets.Count = 1 Then Exit Sub
For i = 1 To Worksheets.Count - 1
For j = i + 1 To Worksheets.Count
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move before:=Worksheets(i)
End If
Next j
Next i
End Sub

 

[bydogannn67]

Yardımcı olabilecek arkadas yok mu ?

 

[vardar07]

Giriş ve Liste isimli sayfaları en sola alıp Module1 içindeki kodu aşağıdaki ile değiştirin.

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

Sub Auto_Open()
Call ssira
End Sub
Sub ssira()
Dim i As Integer
Dim j As Integer
    x = GetSystemMetrics(0) ' x eksenindeki genişliği veriyor
    y = GetSystemMetrics(1) ' y eksenindeki genişliği veriyor
    ActiveWindow.Zoom = 75 * x / 1024
    Sheets("GİRİŞ").Select
    
If Worksheets.Count = 1 Then Exit Sub
For i = 3 To Worksheets.Count - 1
For j = i To Worksheets.Count
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move before:=Worksheets(i)
End If
Next j
Next i
End Sub

 

[bydogannn67]

NEXT WİTHOUT HATASI VERİYO HOCAM

Sub CommandButton81

altına ekledim yeni veri girildiğinde sayfaları isme göre sıralasın dolayısıyla comboboxda rahat bulunabilmesi için sıralı gelsin dedim

 

[vardar07]

NEXT WİTHOUT HATASI VERİYO HOCAM

Sub CommandButton81

altına ekledim yeni veri girildiğinde sayfaları isme göre sıralasın dolayısıyla comboboxda rahat bulunabilmesi için sıralı gelsin dedim

Ne yaptığını bilmiyorum. Sizdekileri(module1 deki) komple silip 27 nolu mesajdaki kodları ekleyin sonra CommandButton81 kodunun '***** listboxu yenile satırının üstüne Call Module1.ssira yazıp dosyayı kaydedin. Sonrada kontrol edersiniz.
Önemli not:
1.Liste ve Giriş sayfaları en solda olacak.
2. İsimleri küçük harfle girerseniz en sonda tekrar sıra yapar.