Combobox'daki veriyi diziye alma

[Recep İpek]

Merhaba,

Comboboxdaki verileri diziye (array) nasıl atayabiliriz?

Örneğin combobox içerisinde bulunan İstanbul,Ankara ve İzmir verisini

iller=array(İstanbul,Ankara,İzmir) şeklinde kullanmak istiyorum.

 

[Ömer]

Merhaba Recep bey,

    iller = Array("İstanbul", "Ankara", "İzmir")
    Me.ComboBox1.List() = iller

Bu şekilde denermisiniz..

.

 

[Recep İpek]

Cevabınız için teşekkürler.

Ben bunun tersini yapmayı düşünüyordum.

Yani comboboxdaki verileri dizi içersine almak.Biraz uğraşında istediğim çözümü buldum.

With Me.Combobox1
   ReDim Arr(0 To .ListCount - 1)
   For x = 0 To .ListCount - 1
       Arr(x) = .ItemData(x)
   Next x
End With

 

[Orion1]

Recep bey merhaba.
Döngüye girmeden çok hızlı bir şekilde combonun tammaını dizi içine aşağıdaki yöntemle alıp yine çok hızlı bir şekilde sayfaya atabilirsiniz.
İyi çalışmalar dilerim.

Dim list()
ComboBox1.list = Range("A1:A17").Value
list = ComboBox1.list
Range("C1").Resize(UBound(list), 1) = list