VBA Macro - Copy information from one sheet to another skipping blanks

[ksky88]

Good afternoon all!

I am trying to automate a process I currently do and wanted to know if someone can help. Essentially what I want the macro to do is copy data from a table on each sheet onto the "payments posted" tab. I also want it to skip any blank cells and total the whole amount column on the first sheet. Here is the the information from when I recorded macros for 10 of the 50 tabs to give an example.

Please Login or Register  to view this content.

I've also attached the document I'll be using. Any help will be much appreciated as i am super stuck.

[Winon]

Hello ksky88,

Moderation removed.

[ksky88]

sorry about that just updated it now

[Winon]

Hello ksky88,

Try applying Filters to the Range/s you want to Copy, and then Copy SpecialCells(xlCellTypeVisible) to where you want it to go.

Regards.

[peterrc]

Hi ksky88,

Can you post/attach an xlsx/xlsm version of your file?

Regards

peterrc

[ksky88]

sure just added it to the post
thanks for helping out by the way!

[jolivanes]

You show values in some cells but no Invoice No's to the left of these values. By design, laziness or age related (forgot)?

[jolivanes]

See if this is anywhere near what you have in mind as far as copy/paste is concerned.
I assume I don't need to tell you to try it on a copy of your original first.

Please Login or Register  to view this content.

[ksky88]

That worked flawlessly! Thanks a lot!