Copy filtered cells with VBA

[jack.a]

Trying to copy from a sheet that I manually sorted to remove all entries if column "B" has a zero. When I use this code, it pastes as if it wasn't sorted.

Any thoughts?

Thanks

Please Login or Register  to view this content.

[jack.a]

I changed the code to paste values

Please Login or Register  to view this content.

[Marc L]

Hi,

SpecialCells is useless here as Range.Copy method copies only the visible cells !
But here as the logic needed is not to copy but to delete the unwanted or ? …

[jack.a]

Is there a way to delete them?

[xladept]

Well, there's no filter so there won't be any zero height cells. If by Column B Having a zero you mean a null, then something like this would work:

Please Login or Register  to view this content.

Or else find the last row >0

[jack.a]

Yes, I meant the cells contain the value "0".

Is there a way to delete the cells?

[jack.a]

Used this code

Please Login or Register  to view this content.

[xladept]

That should work. Thanks for the rep!

[jack.a]

No prob, any thoughts as to why this code takes so long to run? It's about 15,000 lines that it looks for the zeroes in, any way to speed that up?

[xladept]

Here's a filter:

Please Login or Register  to view this content.