zaten for each ile alınabiliyordu ama başlangıçta OpenShemayı, recordset gibi kullanabilirsek .filter yada .sort gibi özellikleri de kullanarak bütün işlemleri kolayca yapabiliriz düşüncesiyle eklemiştim ama maalesef o özellikleri kullanamadım.

Kodlar aşağıdaki gibi olunca sıralama yapar zaten ve extra syfayada gerek kalmaz.

Const Ekleme As String = "|ÞABLON|Sayfa1|liste|TmpSilme|"

Private Sub UserForm_Initialize()

    Me.ComboBox1.DropDown

    Dim syf As Worksheet

    Dim coll As Object

    

    Set coll = CreateObject("System.Collections.ArrayList")

    For Each syf In Worksheets

        If InStr(1, Ekleme, "|" & syf.Name & "|", 1) = 0 Then coll.Add syf.Name

    Next syf

    If coll.Count > 0 Then

        coll.Sort

        Me.ComboBox1.List = coll.ToArray

        Me.ListBox1.List = coll.ToArray

    End If

    Set coll = Nothing

End Sub

---

Birde sayfalar resimdeki gibi ayarlardan gizleneilir.

Bu yöntem çok daha iyi oldu @feraz bey )
Benim de artık öğrenmem gerek collectioni, aklım sürekli sorgulara, recordsetlere gidiyor ama burada en pratiği bu yöntem galiba

(10/05/2020, 14:38)berduş yazdı: Bu yöntem çok daha iyi oldu @feraz bey )
Benim de artık öğrenmem gerek collectioni, aklım sürekli sorgulara, recordsetlere gidiyor ama burada en pratiği bu yöntem galiba

Bu arraylist fazla verilerde yavaş çalışır biraz.Fakat normal dictionary hızlı çalışır lakin ondada sıralama yok.

Merhaba Hocalarım UserForm4 de TextBox1 yeni bir Excel sayfasını eklemek istediğimiz zaman var olan bir sayfayı eklememize izin vermiyor. Uyarı veriyor. ALI ismini yazdığımız zaman ALI isminde ikinci bir sayfa eklenmesine izin veriyor. Hiç bir şekilde var olan bir sayfayı ikinci sefer eklememize izin vermese iyi olur. Birde TextBoxa yazdığım küçük harfleri büyük harfe çeviriyor. çevri yaptığı zaman Türkçe büyük harf kabul ederse çok iyi olur. Saygılarımla.

Lutfen Yeni sorunuzu yeni konu açarak soru.