Soru For döngüsü ile sayfadan comboboxlara veri alma

[sirkülasyon]

For a = 3 To 9
    Me.Controls("combobox" & a).ColumnCount = 1
    Me.Controls("combobox" & a).RowSource = "DATA!Q1:Q" & [DATA!Q65536].End(3).Row
Next

For c = 13 To 24
Controls("combobox" & c).ColumnCount = 1
Controls("combobox" & c).RowSource = "DATA!Q1:Q" & [DATA!Q65536].End(3).Row
Next

Aynı sütundan veri alan comboboxları ayrı ayrı for döngüsüne almak yerine tek for döngüsüne nasıl alabilirim? Rica etsem yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.

For a = 3 To 24
    If a < 10 Or a > 12 Then
        Me.Controls("combobox" & a).ColumnCount = 1
        Me.Controls("combobox" & a).RowSource = "DATA!Q1:Q" & [DATA!Q65536].End(3).Row
    End If
Next

 

[sirkülasyon]

Ellerinize sağlık. Yardımcı olduğunuz için teşekkür ederim.