Copy and paste rows from one sheet to another w/ multiple filters

**perducci** · 09-25-2012, 11:17 AM

I want to copy and paste rows from one sheet ("wobid") to another ("RES"), but only if the row has certain values in certain columns. Specifically, if the row has the value "Completed" in column C and the value "AC" in column G, I want to copy the entire row and paste it into the sheet "RES".

Can someone please help me figure this out??

Thank you

**arlu1201** · 09-25-2012, 12:13 PM

Try this code - put it in a standard module

Option Explicit
Sub copy_rows()
Dim i As Long, lrow As Long

Application.ScreenUpdating = False

With Worksheets("wobid")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To lrow
        If .Range("C" & i).Value = "Completed" And .Range("G" & i).Value = "AC" Then
            .Range("A" & i & ":G" & i).Copy Worksheets("RES").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        End If
    Next i
End With

Application.ScreenUpdating = True

End Sub