- Katılım
- 2 Mart 2005
- Mesajlar
- 2,960
- Excel Vers. ve Dili
-
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Kod:
With ComboBox85
.ColumnCount = 3
.ColumnWidths = "75;40;50"
.ListRows = "10"
'.RowSource = "Bilgi_Girisi!b3: D" &
End With
Kod:
.........
sonsat = Cells(65536, 2).End(xlUp).Row
For i = 1 To sonsat
ComboBox85.Column(0) = cells(i, 1).value
ComboBox85.Column(1) = cells(i, 5).value
ComboBox85.Column(2) = cells(i, 8).value
Next i