- 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
not kodların tamamı
http://www.excel.web.tr/showthread.php?t=44164
linkindedir.
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
......................
http://www.excel.web.tr/showthread.php?t=44164
linkindedir.