Private Sub ComboBox6_Change()
Dim hucresay As Long
With ComboBox6
.ColumnCount = 2
For hucresay = 1 To 10
.AddItem Range("B2:B10").Cells(hucresay, 1).Value
.List(.ListCount - 1, 1) = Range("C2:C10").Cells(hucresay, 1).Value
Next hucresay
End With
End Sub
Hata veriyor
Son Düzenleme: 19/08/2016, 08:26, Düzenleyen: ozkovlu29.