Find cell content and copy row onto new sheet

Can someone help me with this issue? I have tried to these through formulas without success but i think i need VBA also which i am not very experienced.

I want to paste a list in the "InsertList" sheet. This list will only contain the word "Correct" or "False". From then on i need a way to search for the word "Correct" or "False" in the columnS P,Q,R,S,T,U,V.

e.g. If in the column "P" on the "InsertList" sheet the word "Correct" is found, i need that entire row from A to V to be copied onto it's destination, in this case "sheet1".

If the word "Correct" is found on the column "Q" on the "InsertList" sheet, the rows from A to V need to be copied in the Sheet2. And so on..

sheet1.png

Attachment: dropbox.com/s/vgs4kzhoa1pip0a/CopyRows.xltm

Thanks

Does this help?

Sub cmd105()
Dim rcell As Range
For Each rcell In Range("P2:V" & Range("V" & Rows.count).End(3)(1).Row)
    If rcell.Value = "CORRECT" Then
        Select Case rcell.Column
            Case Is = 15
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet1").Range("A" & Rows.count).End(3)(2)
            Case Is = 16
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet2").Range("A" & Rows.count).End(3)(2)
            Case Is = 17
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet3").Range("A" & Rows.count).End(3)(2)
            Case Is = 18
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet4").Range("A" & Rows.count).End(3)(2)
            Case Is = 19
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet5").Range("A" & Rows.count).End(3)(2)
            Case Is = 20
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet6").Range("A" & Rows.count).End(3)(2)
            Case Is = 21
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet7").Range("A" & Rows.count).End(3)(2)
        End Select
    End If
Next rcell
            
End Sub

Can you have a look at the attachment I have on dropbox.com/s/vgs4kzhoa1pip0a/CopyRows.xltm ?

I tried it but it does not copy anything to the sheet1, 2 , 3 etc.

Thanks

Can you attach it here on the Forum. Go down to Go Advance and scroll down to the Manage Attachments button, browse to the required file, and then push the Upload button.

Does the code sent not suitable?

Thanks PCI, it does work !