Copy non empty cells form sheet to sheet

[Frigide]

I want to copy non emty cells from a sheet to another sheet.
This is what i have so far. But is is not working.

Please Login or Register  to view this content.

[WideBoyDixon]

After these lines:

Please Login or Register  to view this content.

I suspect shI and shP both reference the same sheet. Opening a workbook will set it as the active one and Sheets("Invulblad") will pick the sheet name Invulblad from the active workbook. I can't validate this for certain but try putting the lines in a different order:

Please Login or Register  to view this content.

WBD

[Frigide]

I think that you are write. I use a script that saves a sheet so that another sheet can downloads it. Is there a way to save a sheet in another name? Now it copy with the same name.

Please Login or Register  to view this content.

[WideBoyDixon]

Once you execute this line:

Please Login or Register  to view this content.

Your copied sheet will be at position 1 so you can then use:

Please Login or Register  to view this content.

WBD

[Frigide]

It is working fine. But the script also copy's formula's.
Is there a way to copy only values? No formulas buttons or whatever!

Please Login or Register  to view this content.

[WideBoyDixon]

You can remove formulas from a sheet like this:

Please Login or Register  to view this content.

WBD