Copying entire rows across to new sheet based on two criterias.

[KLEINMAN]

Hi,

I am trying to create a Macro that looks in my mastersheet and copies across full rows to another sheet based on two criteria's.

For example if master sheet column C is either equal to Jan or Feb it must copy the entire row across to sheet 2.

I have gone through a lot of codes but none that looks at two criteria's.

Any help would be appreciated.

Kind Regards

Steohan van Niekerk

 

[vcoolio]

Hello Steohan,

I don't know how your Master sheet is set up, so perhaps the following code may do the task for you:-

Sub DataTransfer()

Application.ScreenUpdating = False

With ActiveSheet
    .AutoFilterMode = False
With Range("C1", Range("C" & Rows.Count).End(xlUp))
            .AutoFilter 1, "Jan", xlOr, "Feb"
            If Range("C" & Rows.Count).End(xlUp).Row > 1 Then
            .Offset(1).EntireRow.Copy Sheet2.Range("A" & Rows.Count).End(3)(2)
            .Offset(1).EntireRow.Delete
            End If
     End With
[C1].AutoFilter
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

It filters Column C in the active sheet (Master) for either criteria "Jan" or "Feb" and then transfers the relevant row of data to sheet2.
I've attached a link to my test work book for you to peruse:-

https://www.dropbox.com/s/q9c7icdazm26rg0/Kleinman(Transfer to sht2, autofilter).xlsm?dl=0

Click on the "RUN" button to see it work.

I hope that this helps.

Cheerio,
vcoolio.