Hi,
I have the following code giving this error " run-time error 91,
thank you,
I have the following code giving this error " run-time error 91,
Code:
Private Sub CommandButton1_Click()
Dim cll As Range
Set rng = Sheet1.Range("SAGEID")
' Find the selected list item value in the data range
Set cll = rng.Columns(1).Find(ListBox_Results.Value, rng.Cells(1, 1), xlValues)
' First column is the lookup range, so we don't update it but the others
cll.Cells(, 2).Value = TextBox_Results1.Value
cll.Cells(, 3).Value = TextBox_Results2.Value
cll.Cells(, 13).Value = TextBox_Results3.Value
cll.Cells(, 10).Value = TextBox_Results4.Value
cll.Cells(, 14).Value = TextBox_Results5.Value
cll.Cells(, 4).Value = TextBox_Results6.Value
cll.Cells(, 5).Value = TextBox_Results8.Value
cll.Cells(, 6).Value = TextBox_Results9.Value
cll.Cells(, 11).Value = TextBox_Results10.Value
cll.Cells(, 12).Value = TextBox_Results11.Value
cll.Cells(, 8).Value = TextBox_Results12.Value
cll.Cells(, 15).Value = TextBox_Results13.Value
cll.Cells(, 16).Value = TextBox_Results14.Value
cll.Cells(, 9).Value = TextBox_Results15.Value
cll.Cells(, 7).Value = TextBox_Results16.Value
cll.Cells(, 1).Value = TextBox_Results17.Value
end sub
thank you,