USER FORMdaki verileri sıralatma

[baydeniro]

Merhaba Arkadaşlar,

İL sayfasında yazılı olan şehir isimleri user forma geliyor. Şehir isimler sayfada karışık olarak yazılı. Şehir isimleri USER FORMDA makro ile alfabetik olarak sıralatılabilir mi ?

Örnek dosya : http://s3.dosya.tc/server18/9nq09d/USER_FORM_VERILERI_SIRALAMA.xls.html

 

[Ömer BARAN]

Merhaba.

Bence benzersiz ve alfabetik bir sıralamayı ilgili sayfada başka bir alanda yaptırıp oradan da listbox'a aktarmak daha doğru ama
Userform_Initalize kodu'nu aşağıdakiyle değiştirerek de sonuç alınabilir.

NOT: Private Sub ListBox1_DblClick kod blokunda, End Sub satırından önceki UserForm1.Hide satırını Unload Me olarak değiştirmenizi öneririm.

Private Sub UserForm_Initialize()
Dim i, ii As Long, sonsat As Long, sh As Worksheet
Set sh = Sheets("IL")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
For ii = 0 To sonsat - 2
    For i = 2 To sonsat
        adet = WorksheetFunction.CountIf(sh.Range("A2:A" & sonsat), "<=" & sh.Cells(i, 1))
        If adet - 1 = ii Then: ListBox1.AddItem sh.Cells(i, "A").Value: Exit For
    Next
Next
TextBox1.SetFocus
End Sub

 

[baydeniro]

Ömer Baran üstadım çok çok teşekkür ediyorum. Tam istediğim gibi oldu. Elleriniz dert görmesin.
Başka sayfada sıralatma öneriniz de çok iyi. B planı olarak onu da ileride kullanabilirim.
Sağlıcakla kalın.

 

[Haluk]

DAO ile bir alternatif ekli dosyadadır...


https://drive.google.com/open?id=16wwtdViXypIf_ltntTNDVypYmxFX4Adh


.

 

[Erdem Akdemir]

Haluk bey merhaba,

DAO ile ADO arasında kullanım açısından farklar nelerdir.

Teşekkürler

 

[Haluk]

Erdem Bey;

@Zeki Gürsoy bu sorunun cevabını benden daha doğru olarak verir diye düşünüyorum.

Her ikisi de benzer metodlar kullanmakla birlikte, bildiğim kadarıyla ADO daha yeni bir teknolji. Ama bazen bir işi birinde, diğerine göre daha kısa yoldan çözülebiliyorsunuz. Geçenlerde yazıştığımız .... "kapalı dosyadaki sayfa isimlerinin bulunması" gibi.

.

 

[Zeki Gürsoy]

ADO (ActiveX Data Object), DAO (Data ActiveX Obejct)' den daha yeni teknolojidir. DAO, MS Jet veritabanı için optimize edilmişken, ADO diğer veritabanı sistemleri için daha barışıktır. Her ikisi de aynı işleri yapabilmekle birlikte bazı durumlarda birbirlerine göre kullanım kolaylığı olup, DAO' de olmayan özellikler de olabilir. Örneğin, ADO Recordset.Save metodu DAO' de yoktur. ADO, multiuser için daha elverişli olduğunu düşünüyorum.

 

[Erdem Akdemir]

Zeki bey ve Harun bey ,

Bilgilendirici açıklamalarınız için teşekkür ederim.