Find string in column and paste corresponding row into other sheet

[cronerd]

solveddddd

[jolivanes]

Would this work for you (try it on a copy of your workbook)

Please Login or Register  to view this content.

[venkatpvc]

try this, little change of your code...

Please Login or Register  to view this content.

[venkatpvc]

Jolivanes has nice code working perfectly , try it...ignore mine has some errors.

[AB33]

Untested

Please Login or Register  to view this content.

[cronerd]

Jolivanes that worked for me.

[jolivanes]

I don't know. Will this do?

Please Login or Register  to view this content.

Maybe a slight change in AB33's code will be better.

[briguin]

Untested...

Option Explicit

Sub CopyRowToAnotherSheet()
Dim strFind As String
Dim NextRow As Long
Dim rngFound As Range
Dim wsSource As Worksheet
Dim wsResult As Worksheet
Dim CL as Variant

'Reset Result sheet
Sheets("Parts").Rows("2:" & Rows.Count).ClearContents
Application.ScreenUpdating = False

'Main Code

Set wsSource = Sheets("SourceData")
Set wsResult = Sheets("Parts")
Set rngFound = wsSource.Range("A1:A15000")

NextRow = wsResult.Range("A" & Rows.Count).End(xlUp).Row
strFind = "11-11-222"
For each CL in RngFound

If instr(CL.Value, "|" & SrtFind) > 0 then

NextRow = NextRow + 1
rngFound.EntireRow.Copy wsResult.Range("A" & NextRow)

end if

Next CL
End Sub

[jolivanes]

Or maybe like this.

Please Login or Register  to view this content.