How to repeat a lookup; copy & paste from 1 worksheet to another.

C

CROD

Could anyone assist on enabling the following code to: find multiple "text"
within a column (A:A) in sheet 1 (i.e. find all the letters "n" within column
A:A within sheet 1) copy entire rows of each "n" find into sheet 2.
Essentially repeating this command until all "n" are found and their
corresponding EntireRow are copied from sheet 1 into sheet 2. I've had some
success with the following, but, can not get it to deliver the desired end
result. Again, any help would be greatly appreciated!
FYI: I've set this up to run via a command button

Sub Rectangle1_Click()

Worksheets("Sheet1").Select

With Worksheets("Sheet1").Range("a1:a20")
Set c = .Find("NJ1S", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Copy
Set c = .FindNext(c)
Worksheets("Sheet2").Select
Worksheets("Sheet2").Range("a8:a20").Find("").Select
Worksheets("Sheet2pplier Export").Paste

Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
 

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

Similar Threads

VBA Programming: Cut and Paste Loop between 2 sheets 6
Mercy - Need help with Copy/Paste VBA 5
How to copy and paste a partial row (i.e. not the EntireRow) 5
Should be easy...what's missing? 8
Worksheet Sharing VBA 3
Copy numbers from an array, each to it’s own sheet 4
2 finds/findnext in nested loops 1
interactive findnext 2

Top