combobox un 2. kolonuna göre alfabetik sıralama

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Dizideki elamanları comboboxa aşağıdaki gibi alıyoruz aldıktan sonra veya almadan önce 2. kolonunu (kırmızı satır) alfabetik sıralama (Türkçeye uygun a,b,c,ç,............ı,i ....) vs. sıralyacak kodlar nasıldır

Kod:
..................................  

'___________________________
''************************************************
'ComboBox85 kısaltmasını başlat
With ComboBox85
    .Clear                                      'temizliyoruz
    For tci = 0 To UBound(arrTMM)               'tamamı dizisindeki son elamana kadar döngü kuruyoruz
        .AddItem                                'Elaman ekleme işlemin başlatıyoruz
        'combo tci satırı, 1 sütununa tamamı dizisindeki tci,0 elamanlarını eşitliyoruz
        .List(tci, 0) = arrTMM(tci, 0)       'tcno
        'combo tci satırı, 2 sütununa tamamı dizisindeki tci,1 elamanlarını eşitliyoruz
[color="red"]        .List(tci, 1) = arrTMM(tci, 1)    [/color]    'adı 
        'combo tci satırı, 3 sütununa tamamı dizisindeki tci,2 elamanlarını eşitliyoruz
        .List(tci, 2) = arrTMM(tci, 2)         'soyadı
        '*comboda ilk satırı seç [AltSatır]
        .ListIndex = 0
    'tci değeri bir artarak  for tci satırına gider
    Next tci
'ComboBox85 kısaltmasını bitiriyoruz
End With
'tamamı (kimlik, ad, soyad) dizi değişkenini siliyoruz
Erase arrTMM   
......................
not kodların tamamı
http://www.excel.web.tr/showthread.php?t=44164
linkindedir.
 
Üst