Combobox ta birden fazla sütunu listelemek mümkünmü

[sdegirmenci]

Değerli hocalarım merhaba;
Comboboxta örneğin A1:A100 İle E1:E100 arasında liste almak mümkünmü,İlginize şimdiden çok teşekkür ederim.

 

[Orion1]

Dim i As Long
ComboBox1.ColumnCount = 2
ReDim myarr(1 To 2, 1 To 100)
For i = 1 To 100
    myarr(1, i) = Cells(i, "A").Value
    myarr(2, i) = Cells(i, "E").Value
Next
ComboBox1.Column = myarr

 

[sdegirmenci]

Hocam ilginize çok teşekkür derim.
İki sütundan fazla aldıramadım ekteki dosyama bakabilirmisiniz

 

[Orion1]

Hocam çok teşekkür derim.Bilginize sağlık. Hayırlı geceler diliyorum.

Rica ederim.
İyi geceler.

 

[janveljan]

farklı bir örnek olsun.

ComboBox1.ColumnCount = 2
For i = 1 To 100
    ComboBox1.AddItem Cells(i, "A").Value
    ComboBox1.List(i - 1, 1) = Cells(i, "E").Value
Next

 

[Orion1]

farklı bir örnek olsun.

ComboBox1.ColumnCount = 2
For i = 1 To 100
    ComboBox1.AddItem Cells(i, "A").Value
    ComboBox1.List(i - 1, 1) = Cells(i, "E").Value
Next

Add item yöntemi ile veri almak dizi yöntemi ile veri almanın yanında çok hantal kalıyor.Mersedes varken paytona binilmez herhalde.

 

[janveljan]

Daha yavaş olduğunu bilmiyordum, bilgilendirme için teşekkürler. Aslında burada özellikle List kullanımına dikkat çekmek istemiştim, çok fazla bilinmiyor.

 

[Orion1]

Ekli dosyayı inceleyiniz.
Özelliklerden listfillrangeyi boşalttım ve columncount=2 yaptım.