Excel VBA

[MVX]

Help!!! Am at a loss

How do i write a macro that would look for a string (Numeric e.g. "999") in colum's 'O' - 'T'? (Columns 15 - 20)
If the string is found, i want it (the macro) too copy that entire row to a 'new' sheet (Sheet2) in the same workbook and delete the row from Sheet1?
To explain - On searching column 'O' and if string found; copy row to Sheet2: delete row from Sheet1; and then search column 'P' and so on until data sucessfully copied/deleted??
Difficulty, I have is that the same string can be repeated in different columns and unless the row once copied to 'new' sheet is deleted I would have the same 'row' copied over to Sheet2 from a different column - skewing the resulting data.

Hope this makes sense!

Many Thanks

MVX

 

[MVX]

VOG
Namaste and Greetings again!
Really appreciate your help advice and assistance - The script seems to run in an endless loop without moving the 'rows' to 'Sheet2' - Just deleting!
On stepping through 'F8' it seems to jump and ignore

Else
z = False
Is this correct? - I am at a loss how to progress

Kind Regards

 

[VoG]

I'm sorry but I've tested this code several times now and it works for me.

 

[VoG]

Oops!

Sub supatest()
Dim x As Boolean
x = True
Do While x
    Call test(x)
Loop
End Sub

Sub test(z As Boolean)
Dim LR As Long, Found As Range
Set Found = Sheets("Sheet1").Columns("O:T").Find(what:=999)
If Not Found Is Nothing Then
    With Sheets("Sheet2")
        z = True
        LR = .Range("O" & Rows.Count).End(xlUp).Row
        Found.EntireRow.Copy Destination:=.Range("A" & LR + 1)
    End With
    Application.CutCopyMode = False
    Found.EntireRow.Delete
Else
    z = False
End If
End Sub