Copy data from rows when InputBox entry is met

[kelly mort]

Hi,

I am looking for a script that takes an InputBox entry then compares it with the last two characters in cells in column C. When the match is found, I want the data copied to another sheet.

say from Sheet1 to Sheet3.

The data table starts from B1 to H100

Thanks
In advance

Kelly

 

[sericom]

Give this a go

u = InputBox("Enter search phrase")
sRow = Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row + 1
With Sheets("Sheet1")
    lRow = .Range("C" & .Rows.Count).End(xlUp).Row
    For Each c In .Range("C1:C" & lRow)
        If Right(c, 2) = u Then
            Sheets("Sheet3").Range("A" & sRow & ":G" & sRow).value = .Range("B" & c.Row & ":H" & c.Row).value
            sRow = sRow + 1
        End If
    Next
End With

 

[kelly mort]

Great! !!

And faster than I thought.

I appreciate it