VBA filter first then copy data

[Cele]

Hi,
Please see attached macro.
I have the macro copying data from the Report tab to the DoneTask tab.
But I want it to first, filter column G first by entries with a y on column G on the Report tab.
Then continue doing the macro I have.
The macro in question is copy_done_tasks
Can you help please? Thanks in advance.

Cele

 

[PCosta87]

Hi,

For the filter you only need this little bit (apply filter->your code->remove filter):

Sub copy_done_tasks()

Sheets("Report").ListObjects("report").Range.AutoFilter Field:=7, Criteria1:="y"

... Your code here...

Sheets("Report").ShowAllData

End Sub

To copy all the data to DoneTasks, you can also use the following code:

Sub copy_done_tasks()

    [DoneTasks].Delete
 
    With Sheets("Report")
        .ListObjects("report").Range.AutoFilter Field:=7, Criteria1:="y"
        .Range("report[[Month]:[Notes]]").Copy [DoneTasks]
        .ShowAllData
    End With

End Sub

This will delete all info in the "DoneTasks" Table and copy over the "y" data on "Report". It will also clear the filter when it is done.

On a side note, I would suggest using a Pivot Table for the done tasks... a simple refresh would do basically the same.

Hope this helps.

 

[Cele]

Yes it helped! Thank you so much.

 

[PCosta87]

Yes it helped! Thank you so much.

You are welcome... glad I could help