Find matching criterior in sheet 1 and copy to Sheet 2

[Auto]

Can someone write a VBA code for this? I would like to search for something like "COMCAST" in column "A" of sheet 1 and have those rows appear in sheet 2. On the next search clear sheet 2 and copy the new search data over to sheet 2. I hope this makes sense.

Sample file is attached.



Also, how do you mark a post as "SOLVED"? I look everywhere and can't find how to do it. Thanks everyone who responds.

[Pecoflyer]

To mark a thread solved click on "Thread Tools" and select as needed

For your other question Google around a bit this is a well known problem

[Auto]

Originally Posted by Pecoflyer

To mark a thread solved click on "Thread Tools" and select as needed

For your other question Google around a bit this is a well known problem

Thanks Pecoflyer for your reply. When I click on "Thread Tools" all I get are the following 3 choices:

1. Show Printable Version
2. Unsubscribe from this Thread
3. Add a Poll to this Thread

There is no SOLVED option available from my "Thread Tools" drop-down menu. I also tried tweaking around in my User Control Panel for a way to mark a post as SOLVED and still can't see how to do it.

Is it possible someone else can mark this as SOLVED?

[Auto]

I found the solution to my question at the URL below:

http://www.mrexcel.com/forum/excel-q...worksheet.html

It works well for my needs.

Here's the code:

Sub Test2()
Dim myWord$
myWord = InputBox("What key word to copy rows", "Enter your word")
If myWord = "" Then Exit Sub

Application.ScreenUpdating = False
Dim xRow&, NextRow&, LastRow&
NextRow = 2
LastRow = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For xRow = 1 To LastRow
If WorksheetFunction.CountIf(Rows(xRow), "*" & myWord & "*") > 0 Then
Rows(xRow).Copy Sheets("Sheet2").Rows(NextRow)
NextRow = NextRow + 1
End If
Next xRow
Application.ScreenUpdating = True

MsgBox "Macro is complete, " & NextRow - 2 & " rows containing" & vbCrLf & _
"''" & myWord & "''" & " were copied to Sheet2.", 64, "Done"
End Sub