Comboboxta listeden birden fazla olan isimleri almamak

[sdegirmenci]

Comboboxta listenin alfabetik sıraya göre olması

Değerli Hocalarım merhaba;
Eklemiş olduğum dosyada combobox ile listeyi açtığımızda "I" sütununda birden fazla isimleri göstermemesi ve combobox üzerinde alfabetik sıra ile listelenmesi için ne yapabiliriz.Forumu araştırdım ama tam anlayamadım. Yardımcı olursanız sevinirim. Saygılarımla

 

[janveljan]

Comboboxın listfillrange özelliğini iptal edin ve sayfanın activate olayının başına aşağıdaki kodları ekleyin.

Dim dizi As New Collection
Set sf = Sheets("icra liste")
On Error Resume Next
For i = 5 To sf.[I65536].End(xlUp).Row
dizi.Add sf.Cells(i, "I"), CStr(sf.Cells(i, "I"))
Next
For Each Item In dizi
ComboBox1.AddItem Item
Next

 

[sdegirmenci]

Sayın janveljan Hocam;
İlginize çok teşekkür ederim.

Acaba Combobox ile listeyi seçtiğimizde liste aynı kaldığı halde Comboboxta görünen liste alfabetik sıra olurmu.?

 

[sdegirmenci]

Comboboxta listenin alfabetik sıraya göre olması

Combobox tan listeyi seçtiğimiz anda liste aynı kaldığı halde Combobox ta liste alfabetik sıraya göre olabilirmi

 

[hurkanpisirici]

Merhaba

Sayın janveljan hocamın yarıdmı ile ben bu sorunumu çözdüm dosyamı ekledim incelerseniz kodları kullanabilirsiniz.

 

[hurkanpisirici]

çok geç kaldım ben dosyayı eklerken hocam yapmış bile