Searching and matching the textvalues in specific column ranges

G

gki

Hello,

I would like to search the textbox value in the worksheet and specifi
ranges. If the textbox value matchs, then I want a new userform to com
on the screen.

Something like;
Private Sub CommandButton1_Click()
If txtbox.value matchs
Sheets("Sheet1").Range("C2:C140").Find(What:=txtbox.value) Then
Unload Me
Load Userform2
Userform2.Show

End If

If txtbox.value matchs
Sheets("Sheet1").Range("D2:D290").Find(What:=txtbox.value) Then
Unload Me
Load Userform3
Userform3.Show
End If

End Sub

I dont understand why I get error already in the first row..(I
txtbox....)

Can anyone see where my problem is??

Thanks

gk
 
Top