Problem Pasting entire row.


G

Guest

I am having a problem pasting all of the row in sheet1. It pastes the row
starting with the cell that is found and everything to the right, but nothing
to the left. If anyone can help that would be nice. Here is the code.
Thanks
-mark

Private Sub cmdFind_Click()
Dim wksCopyFrom As Worksheet
Dim wksCopyTo As Worksheet
Dim rngToSearch As Range
Dim rngFound As Range
Dim rngCopyTo As Range

Set wksCopyTo = Sheets("Search_Add")
For Each wksCopyFrom In Worksheets
If wksCopyFrom.Name <> wksCopyTo.Name And _
wksCopyFrom.Name <> "Search_Add" Then 'sheets you don't want searched
Set rngToSearch = wksCopyFrom.Cells
Set rngFound = rngToSearch.Find(txtFind.Text, , xlValues,
LookAt:=xlPart)
If Not rngFound Is Nothing Then
'If rngCopyTo.Offset.Value <> "" Then
'rngFound.Offset(1, 0).EntireRow.Insert
Set rngCopyTo = wksCopyTo.Cells(Rows.Count,
"A").End(xlUp).Offset(2, 0)
rngFound.EntireRow.Copy rngCopyTo
End If
End If
'End If
Next wksCopyFrom
txtFind.Text = ""
Sheets("Search_Add").Activate
End Sub
 
Ad

Advertisements

T

Tom Ogilvy

EntireRow should copy the EntireRow. I have never seen it fail:

set rngFound = Range("F13")
? rngfound.Address
$F$13
? rngFound.entireRow.Address
$13:$13
 
G

Guest

Thanks for your quick reply Tom. I still can't seem to get this to work.
Any more ideas? Did you notice the two lines that are commented out?
-Mark
 
T

Tom Ogilvy

I ran your code and it worked fine for me. The whole row was copied.

Maybe you are not copying what you think you are copying.
 
Ad

Advertisements

G

Guest

Tom, just to let you know that the entire row is pasting, it was my error.
Thanks for your help.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top