Selecting all rows that match criteria

Hi, welcome to the forum

This sounds do-able. Can you provide a (clean) sample workbook for me to take a look at?

The problem seems to make sense. To really help you it would be an advantage to see a copy of your workbook.

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

Sorry Ford, didn't see your post until too late.

This is the start of what you need
It searches for the word select in the selected range and copies the complete row to a new sheet.
It is easy to change the search range and the search text.

I will modify the code to delete the existing summary sheet and create a new one each time the macro is run.

Sub Select_Select()
Dim rngFind As Range
    Dim strValueToPick As String
    Dim rngPicked As Range
    Dim rngLook As Range
    Dim strFirstAddress As String

'***************************************************
'This line selects the whole spreadsheet to search.  Columns("A:A").select would search column A only
    Cells.Select
 '***************************************************
    
    Set rngLook = Selection

''***************************************************
 'This defines your search string
    strValueToPick = "SELECT"

'***************************************************
 
    With rngLook
        Set rngFind = .Find(strValueToPick, .Cells(1, 1), LookIn:=xlValues, lookat:=xlWhole)
        If Not rngFind Is Nothing Then
            strFirstAddress = rngFind.Address
            Set rngPicked = rngFind
            Do
                Set rngPicked = Union(rngPicked, rngFind)
                Set rngFind = .FindNext(rngFind)
            Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
        End If
    End With
    
    If Not rngPicked Is Nothing Then
        rngPicked.EntireRow.Select
    End If


Selection.Copy

    Workbooks.Add
    ActiveSheet.Paste
    
End Sub

This is the revised code. Make sure you have a Sheet1 and a Summary Sheet.

Sub Select_Select()
Dim rngFind As Range
    Dim strValueToPick As String
    Dim rngPicked As Range
    Dim rngLook As Range
    Dim strFirstAddress As String

Application.DisplayAlerts = False
    Sheets("Summary").Delete
Application.DisplayAlerts = True

    Sheets("Sheet1").Select
    
    Cells.Select
    Set rngLook = Selection
    strValueToPick = "SELECT"
    With rngLook
        Set rngFind = .Find(strValueToPick, .Cells(1, 1), LookIn:=xlValues, lookat:=xlWhole)
        If Not rngFind Is Nothing Then
            strFirstAddress = rngFind.Address
            Set rngPicked = rngFind
            Do
                Set rngPicked = Union(rngPicked, rngFind)
                Set rngFind = .FindNext(rngFind)
            Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
        End If
    End With
    
    If Not rngPicked Is Nothing Then
        rngPicked.EntireRow.Select
    End If


Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Summary"
    ActiveSheet.Paste
    
End Sub

The Transaction column titles don't match very well the column headers on the Summary worksheet. If you can make the columns match, this formula, entered with Ctrl + Shift + Enter will take the values from the Transactions worksheet that match the name in A1 of the Summary worksheet.

Formula:

=IFERROR(INDEX(Transactions!$E$2:$E$50,SMALL(IF(Transactions!$A$2:$A$50=Summary!$A$1,ROW(Transactions!$A$2:$A$50)-MIN(ROW(Transactions!$A$2:$A$50))+1),ROWS($1:1))),"")

The bold values in the formula are what you have to change to match the columns.

The result is:

	A	B	C	D	E	F
9	Transactions
10	Type	Date	Cost	Price	Adjustment	Total
11	Purchase	14/05/2014
12	Distribution	07/08/2014
13	Adjustment	01/11/2014
14

This is from the Transactions worksheet. As you can see the column headers don't match the Summary.

	A	B	C	D	E
1	Investor	Date	Shares	Investment	Transaction Type
2	Chuck Jones	01/01/2012		$10,000.00	Initial Investment
3	Chuck Jones	01/07/2012	100,000.00		Purchase
4	Chuck Jones	01/01/2013	100,000.00		Distribution

That did the trick! Thanks!