sıralama

[flamenker]

Merhaba
Ekteki dosyada ekstre butonuna ye basıldığında Evren Gizlen beyin hazırladığı makro ile E sütunundaki veriler giriş sırasına göre diziliyor.Biz de aradığımız firmayı tıklayarak ekstresini çıkarıyoruz.
Fakat ekstre tuşuna basıldığında çıkan liste alfabetik sıralı olsa çok daha pratik olacak.
Dosya:
http://www.sendspace.com/file/l2mg89

Yardımlarınızı bekliyorum

 

[Orion1]

Merhaba
Ekteki dosyada ekstre butonuna ye basıldığında Evren Gizlen beyin hazırladığı makro ile E sütunundaki veriler giriş sırasına göre diziliyor.Biz de aradığımız firmayı tıklayarak ekstresini çıkarıyoruz.
Fakat ekstre tuşuna basıldığında çıkan liste alfabetik sıralı olsa çok daha pratik olacak.
Dosya:
http://www.sendspace.com/file/l2mg89

Yardımlarınızı bekliyorum

Zaten Q5 sütununsa artan sıralama yapmışım.Sanırım siz istemişsiniz bende yapmışım.Kodu aşağıda.

Sh.Range("B5:Q" & sat2 - 1).Sort Sh.Range("Q5")

 

[flamenker]

Merhaba Evren Bey,
Yanlış anlaşılma oldu yada ben anlayamadım.
şimdi extreyi tıklayınca çıkan listede aşağı oka basınca "A" harfi ile başlayan isimler önce çıksın istiyorum.
Q5 sutunuyla ilişkilendiremedim bu durumu.
İlginize teşekkürler.

 

[Orion1]

Merhaba Evren Bey,
Yanlış anlaşılma oldu yada ben anlayamadım.
şimdi extreyi tıklayınca çıkan listede aşağı oka basınca "A" harfi ile başlayan isimler önce çıksın istiyorum.
Q5 sutunuyla ilişkilendiremedim bu durumu.
İlginize teşekkürler.

Combobox'tamı sıralama istiyorsunuz?

 

[flamenker]

Evet Evren Bey

 

[Orion1]

Dosyanız ektedir.
http://rapidshare.com/files/376883347/ozgu_59_22_4_.xls.html

For i = 0 To ComboBox1.ListCount - 2
        For j = i + 1 To ComboBox1.ListCount - 1
            If StrComp(ComboBox1.List(i, 0), ComboBox1.List(j, 0), vbTextCompare) = 1 Then
                x = ComboBox1.List(i, 0)
                ComboBox1.List(i, 0) = ComboBox1.List(j, 0)
                ComboBox1.List(j, 0) = x
            End If
        Next j
    Next i

 

[flamenker]

Evren Bey Elinize sağlık tam istediğim gibi olmuş.
Geç yanıtım için özürdilerim ancak bakabildim.
Peki veri doğrulama ile yaptığımız listeyide alfabetik yapabilirmiyiz?
Örnek dosya:
http://www.sendspace.com/file/lja8b5