Macro help

[excellrookie]

How would I code a macro that scans a specific column for a key phrase, once the macro finds the phrase it will display the entire row of information.

For example:
the macro would search the entire column B and find any cells that have the value "EXCEL FORUM," lets say it found that phrase in row 34, then it copies the entire row 34 and paste the row in the cell that the macro was run in.

 

[John Davis]

How would I code a macro that scans a specific column for a key phrase, once the macro finds the phrase it will display the entire row of information.

For example:
the macro would search the entire column B and find any cells that have the value "EXCEL FORUM," lets say it found that phrase in row 34, then it copies the entire row 34 and paste the row in the cell that the macro was run in.

Maybe this could give you some ideas?

Sub excellrookie()
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row

x = InputBox("Please Enter the Destination Range")

Columns("B:B").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="EXCEL FORUM"
Range("B2:B" & lr).EntireRow.SpecialCells(xlCellTypeVisible).Copy Range(x)
Columns("B:B").AutoFilter

End With
End Sub

 

[excellrookie]

Maybe this could give you some ideas?

Sub excellrookie()
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row

x = InputBox("Please Enter the Destination Range")

Columns("B:B").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="EXCEL FORUM"
Range("B2:B" & lr).EntireRow.SpecialCells(xlCellTypeVisible).Copy Range(x)
Columns("B:B").AutoFilter

End With
End Sub

Thank you John. I will check it out in a few

 

[John Davis]

Thank you John. I will check it out in a few

You're welcome, but take out the End With statement.