- 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