VBA - Find value in sheet and cut paste row on new sheet

[kbp]

Hi there

Can someone please help me on this one. Thank you in advance.

Below is a screen dump of the data sheet that I have. The sheet is called "SMT"
What I want to do is:
1. Find the cells on the SMT sheet (in column B always) that contains "12-3113-0003586-002" as value
2. Cut paste the whole row if above value is found
3. Paste into sheet called "SMT02" on A1 cell (SMT02 would be a blank sheet)
4. But if "12-3113-0003586-002" is not found (some days we don't have it), then do nothing.



-- removed inline image ---

 

[AlphaFrog]

The image came out a tad blurry.

Here's a guess.

[color=darkblue]Sub[/color] Copy_Rows()
    [color=darkblue]Dim[/color] strFind [color=darkblue]As[/color] [color=darkblue]String[/color]
    strFind = "*" & "12-3113-0003586-002" & "*"
    [color=darkblue]With[/color] Sheets("SMT")
        [color=darkblue]If[/color] Application.CountIf(.Range("B:B"), strFind) [color=darkblue]Then[/color]
            .Range("B:B").AutoFilter 1, strFind
            .Range("B2", .Range("B" & Rows.Count).End(xlUp)).EntireRow.Copy _
                Destination:=Sheets("SMT02").Range("A1")
            .AutoFilterMode = [color=darkblue]False[/color]
            Sheets("SMT02").Select
        [color=darkblue]Else[/color]
            MsgBox "No match found. "
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[kbp]

Excellent, thanks very much.