coba code pada combobox1 diisi dengan

Private Sub ComboBox1_Change()
  Dim x As Integer
       x = ComboBox1.ListIndex
       TextBox1.Text = Cells(3 + x, 5)
End Sub

salam 

loheng

Kirim email ke