Autofilter loop + copy paste?

[dunnobe]

Hey all,

I managed to write a working piece of code (see post 2), but it's quite amateurish.
Does anyone feel like reviewing my code or make it a lot more simple?

What the marcro does (see attachment):

1) Write down the name of the company (test value: A, B, C, D, E or F)
2) It sets 4 different filters and copy pastes each filtered result, but only if the filtered result > 0.
3) The position of the copy-pasted part is dynamic.

If the first filter has a result, the result should be copied to last row +2 (below the text) and if the second filter has a result, the result should be copied to a new lastrow +3 (thus below the first result).

If the first filter has no result it should not be copied and if the second filter has a result it should be copied to last row +2 (below the text) and the third filter should be copied to a new last row + 3 ( thus below the second result).

The different values show you what I mean.

[dunnobe]

Small bump as I simplified the code a little bit.

Does anyone have more ideas on how to shorten the code and still have the same result?
Is there some loop possible for the KPI1-2-3 part? It's exacly the same except for the .autofilter field:=19, Criteria1:= part

Thanks

Please Login or Register  to view this content.