combobox

[sultanlar]

Private Sub ComboBox1_Change()
Dim i As Byte
Range("C2:C11").ClearContents
With Sheets("Sayfa2")
For i = 2 To 11
Cells(i, "C").Value = .Cells(ComboBox1.ListIndex + 2, i).Value
Next i
End With
End Sub

kodunu kullandım. ancak 10'dan fazla kayıt yapamıyorum. makrolarda yeniyim. kayıt sayısını nasıl artırabilirim. şimdiden teşekkürler...

 

[hamitcan]

Döngünün sınırlarını genişletin. 11 sayısını değiştirin.