problem with this code
 

When I run the following code I am getting the error 1004

"Method 'Range' of object '_Global' failed"

Dim rng as Range
with Worksheets("Sheet1").Columns(1)
set rng = .find(what:=Userform1.Textbox1.Text, _
After:=Range(A65536), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End with
If not rng is Nothing then
With Userform1
.Textbox2.Text = rng.offset(0,1).Value
.Textbox3.Text = rng.Offset(0,2).Value
' and so forth
End with
Else
msgbox Userform1.Textbox1.Text & _
" was not found"
End If

problem with this code
 

Looks like I had a typo in Range(A65536). should have been Range("A65536")

Private Sub TextBox1_AfterUpdate()
Dim rng As Range
With Worksheets("Sheet1").Columns(1)
Set rng = .Find(what:=UserForm1.TextBox1.Text, _
After:=Range("A65536"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With
If Not rng Is Nothing Then
With UserForm1
.TextBox2.Text = rng.Offset(0, 1).Value
.TextBox3.Text = rng.Offset(0, 2).Value
' and so forth
End With
Else
MsgBox UserForm1.TextBox1.Text & _
" was not found"
End If

End Sub

worked fine for me.

--

Regards,
Tom Ogilvy

"Travis" wrote in message
...
When I run the following code I am getting the error 1004

"Method 'Range' of object '_Global' failed"

Dim rng as Range
with Worksheets("Sheet1").Columns(1)
set rng = .find(what:=Userform1.Textbox1.Text, _
After:=Range(A65536), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End with
If not rng is Nothing then
With Userform1
.Textbox2.Text = rng.offset(0,1).Value
.Textbox3.Text = rng.Offset(0,2).Value
' and so forth
End with
Else
msgbox Userform1.Textbox1.Text & _
" was not found"
End If