Find Text from textBox then past what is found on sheet1

[Mark Cover]

I have a textbox and I want to be able to search for data in a workbook (that
is entered in the textBox) and when data is found paste the entire row into
sheet 1 of the workbook. Any help on this would be greatly appreciated.
Thanks
-mark
Sample Code that does not work for me:
Private Sub cmdFind_Click()
Dim R As Range
On Error Resume Next
Dim Sheet As Worksheet
With Worksheets("Sheet2").Range("")
Set R = Range("activesheet").Find(What:=txtFind.Text, _
LookAt:=xlWhole)
If R Is Nothing Then
MsgBox "Bummer"
Else
R.Copy Destination:=Worksheets("Sheet1").Range("E5")
End If
End With
End Sub

[Tom Ogilvy]

Assuming you don't have any errors:

code looks fine. so now you need to determine why it doesn't work. Turn on
the macro recorder and do a successful Edit=>Find in the workbook with a
string that would be entered in the textbox. Turn off the macro recorder
and look at the code recorded. Make your find command have the same
arguments as that one except for the What:= argument.

Leave that as you have it.

Remove the On Error Resume next line.

Now run the code and see what happens.

--
Regards,
Tom Ogilvy


"Mark Cover" <[email protected]> wrote in message
news:[email protected]...
> I have a textbox and I want to be able to search for data in a workbook
(that
> is entered in the textBox) and when data is found paste the entire row
into
> sheet 1 of the workbook. Any help on this would be greatly appreciated.
> Thanks
> -mark
> Sample Code that does not work for me:
> Private Sub cmdFind_Click()
> Dim R As Range
> On Error Resume Next
> Dim Sheet As Worksheet
> With Worksheets("Sheet2").Range("")
> Set R = Range("activesheet").Find(What:=txtFind.Text, _
> LookAt:=xlWhole)
> If R Is Nothing Then
> MsgBox "Bummer"
> Else
> R.Copy Destination:=Worksheets("Sheet1").Range("E5")
> End If
> End With
> End Sub