Comboboxa sayfadan döngü ile veri aldırma

[ASMET67]

Selamlar.
Form üzerindeli 26 adet comboboxa çalışma dosyamın sayfa1 deki a2 ile B son satıra kadar olan verileri döngü kurarak nasıl aldıra bilirim.

 

[Ferhat Pazarçevirdi]

Ekteki örneği inceleyiniz. Combobox'lara verileri ben bir dizi okutarak yükledim ama siz tek tek okutarak ta yükletebilirsiniz.

Private Sub UserForm_Initialize()
Dim sh As Worksheet
Dim arrVeri() As Variant
Dim son%, i%, j%
Dim cmb As Control
Set sh = Sheets("Sayfa1")
son = sh.Cells(65536, 1).End(xlUp).Row
ReDim arrVeri(1 To son - 1, 1 To 2)
For i = 2 To son
    For j = 1 To 2
        arrVeri(i - 1, j) = sh.Cells(i, j)
    Next j
Next i
For Each cmb In UserForm1.Controls
    If TypeName(cmb) = "ComboBox" Then
       With cmb
           .ColumnCount = 2
           .ColumnWidths = "60,30"
           .List = arrVeri
           .ListIndex = 0
       End With
    End If
Next
Me.Caption = "Örnek Combobox Yükleme"
CommandButton1.Cancel = True
Set sh = Nothing
End Sub

 

[Levent Menteşoğlu]

Alternatif olarak,

Userformun initialize olayına aşağıdaki kodu yazarak deneyin. Kodun doğru çalışması için combobox adlarının combobox1,combobox2........,combobox26 şeklinde sıralı olarak gitmesi gerekir. Eğer böyle değilse farklı yöntemlerde uygulanabilir bunun içinde dosyanızı eklemenizi öneririm.

for a=1 to 26
controls("combobox" & a).columncount=2
controls("combobox" & a).rowsource="sayfa1!a2:b" & [sayfa1!b65536].end(3).row
next

 

[ASMET67]

Teşekkürler.