Macro to select and copy entire rows containing text string

Hi all,

I need a macro that can look through a table of data, select certain rows and copy them to another sheet.

It needs to look in column A and where it finds "1" then select the entire row then copy all selected.

Any ideas?

Thanks,

LVall

My work internet seems to block the attachment page. I've gotten somewhere with the VBA but it's only partially there. I've got this:

Sub MultiTestNew()
Dim Rng As Range, Cell As Range

Set Rng = Range(Range("AJ2"), Range("AJ" & Rows.Count).End(xlUp))

For Each Cell In Rng

If Cell = "1" Then
Cell.EntireRow.Select
End If

Next Cell

End Sub


I've adapted it from somewhere else and it selects the correct rows I need but it selects them one at a time. I need it to select all rows where Column AJ = 1 and then copy them. Can you adapt the above VBA?

Thanks

Maybe:

Please Login or Register  to view this content.

Copies to Sheet2.