Code not copying data from re-Dim'd columns

[Ochimus]

Hope someone can see the flaw here.

Attached file 150219 Array test.xls should find and paste all the records in Database Cols J and M - P that match the date set as the "Target" in Col A of the Date Sheet.

Code below identifies the Column Headers and sets up the autofilters, but doesn't actually "filter and copy" the records across.

Please Login or Register  to view this content.

Hope someone can see the flaw.

All responses accepted gratefully

Ochimus

[Norie]

The range being copied is J1, M1:P1.

This is probably because ws.Cells(1).CurrentRegion.Resize(, Application.Max(TDate.Column, PDate.Column, LPrs.Column, Now.Column, NPrc.Column)) refers to A1:P1.

[Ochimus]

Norie,

I can only apologise for this. I was sure I replied immediately thanking you for your prompt response and clarification, but I was just looking at previous activity and couldn't find it!

So - belatedly - thank you very much for the help.

Ochimus