Filtercriteria not copied over

[Fean]

Hi i am having an issue with a code.
I filter a criteria and basically paste within a range of sheets.

Somehow it does only do 3 sheets.... and its very slow

Also I cant put the thisworkbook..etc. into the with sheet - end with.

Please Login or Register  to view this content.

[TMS]

I suspect that there is no filtered data for sheet 4 and the code fails bu that's just a guess.

Can you post a sample workbook with some typical, but non-sensitive data?

Regards, TMS

[Fean]

indeed sensitive, it contains corporate costs with names and salaries ;-)

Strange thing is... there is always data on the Range ("K3:Q3"), its the header, otherwise you cant do the .End(xlDown)).Copy on the filtering.

Excel3.JPG

As you can see, Row 3 it is a header.. I filter that data on accountcode and copy the filter results with .End(xlDown)).Copy into column X3

[TMS]

Can you make a (partial) copy and remove the names and salaries, and anything else sensitive? Difficult to test a solution with no data ... and difficult to see how it fails if you are not in a position to see it fail.

Regards, TMS

[Fean]

I cant believe i see it when i write about it! Found out... i am picking up the wrong field!

in the picture the Consolidated account needs to be filtered on Rang ("K3:Q3") and then I pickup field 7... that should have been field 2.. Column L. In some sheets L doesnt have anything (you triggerd me with the "Empty cells".

[TMS]

You're welcome. Thanks for the rep.


But your second filter criteria is on field 2, column L. Isn't field 7 column Q?

Whatever, if it's prompted an effective review, that's all that matters.

Regards, TMS