Eğerki bu yapamazsanız aşağıdaki kod deneyiniz.
Kod:
Private Sub ComboBox1_Change()
Dim i As Byte
Range("C2:C8").ClearContents
With Sheets("Sayfa2")
For i = 2 To 8
Cells(i, "C").Value = .Cells(ComboBox1.ListIndex + 2, i).Value
Next i
End With
End Sub
duayen....