Combobox isimlerini for döngüsüne atamak

[BeyazGölge]

Arkadaşlar kod1 kod2 ... kod20 isimli yirmi tane comboboxum var isimlere for döngüsünü kullanarak otamatik atama yapamıyorum. Acaba nerde yanlışlık yapıyorum veya nasıl yapmalıyım. :yardim:

For i = 1 To 20
Dim stok As Integer 
kodsay = "stok" & i

   If Sheets("Stoklar").Range("B4") = "" Then
       say = WorksheetFunction.CountA(Sheets("Stoklar").Range("B4:B65000"))
       kodsay.RowSource = "Stoklar!B4:B" & say + 3
    
    Else
        say = WorksheetFunction.CountA(Sheets("Stoklar").Range("B4:B65000"))
        kodsay.RowSource = "Stoklar!B4:B" & say + 3
    End If
Next i

 

[BeyazGölge]

Arkadaşlar bir fikri olna yokmu :?: :?: :?:


Bu mesaj Soruyu gündemde tutmak için yazıldı

 

[ALPEN]

combolar bir user form üzerinde mi?

 

[BeyazGölge]

Evet hepsi aynı userform üzerinde.

 

[ALPEN]

userform un controls unu kullanarak yapabilirsin . örnek

UserForm1.Controls("kod" & i).RowSource = "stoklar!B4:B5"

yakılırsan bir örnek gönderebilirim.

edit :

yakılırsan = takılırsan

tatiiill

 

[BeyazGölge]

Teşşekür ederim alpen.

Deneyip hemen sonucu yazayım.

 

[ALPEN]

diğer arkadaşlar içinde örnek teşkil etmesi açısından.

bir döngü ile birden çok combobox'ın text özelliğini değiştirmek.

 

[BeyazGölge]

Okey halletim. :hihoho:


Teşekkür ederim :bravo: