Combobox isimlerini for döngüsüne atamak

Katılım
14 Eylül 2004
Mesajlar
100
Excel Vers. ve Dili
Excel 2002 - Türkçe
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:

Kod:
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
 
Katılım
14 Eylül 2004
Mesajlar
100
Excel Vers. ve Dili
Excel 2002 - Türkçe
Arkadaşlar bir fikri olna yokmu :?: :?: :?:


Bu mesaj Soruyu gündemde tutmak için yazıldı:)
 
Katılım
7 Temmuz 2004
Mesajlar
1,141
userform un controls unu kullanarak yapabilirsin . örnek

Kod:
UserForm1.Controls("kod" & i).RowSource = "stoklar!B4:B5"
yakılırsan bir örnek gönderebilirim.

edit :

yakılırsan = takılırsan

tatiiill
 
Katılım
14 Eylül 2004
Mesajlar
100
Excel Vers. ve Dili
Excel 2002 - Türkçe
Teşşekür ederim alpen.

Deneyip hemen sonucu yazayım.
 
Katılım
7 Temmuz 2004
Mesajlar
1,141
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.
 
Katılım
14 Eylül 2004
Mesajlar
100
Excel Vers. ve Dili
Excel 2002 - Türkçe
Okey halletim. :hihoho:


Teşekkür ederim :bravo:
 
Üst