Find Text from textBox then past what is found on sheet1
 

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

Find Text from textBox then past what is found on sheet1
 

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" wrote in message
...
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