Dear Friends.
I have a userform and I made the following procedure to get the data
in UserForm, its working fine, and I want to put one more button
"EDIT" on the userform to edit the selected records. I dont know how
to do this. pls help me out for this function.
Option Explicit
Dim i As Integer
Private Sub ComboBox1_Change()
i = ComboBox1.ListIndex 'Pass the current listindex to an Integer
TextBox1.Value = ComboBox1.Column(1, i) 'This is column B
TextBox2.Value = ComboBox1.Column(2, i) 'This is column C
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A1:C10"
ComboBox1.SetFocus
End Sub
Please advise me how to Edit records.....
Regards.
Shahzad
|