Save sheet as copy with range
Hi all,
the solution is probably pretty simple but i cannot figure it out. The macro saves the workbook sheet as hard copy (whitout formulas). But he is copying the whole sheet. Iam looking for a ranged version (A1-K139)
Please help
Please Login or Register to view this content.
I think what you need to do is create a new workbook and copy and paste into it. Read up on the SaveAs command. I have not tested this code.
Please Login or Register to view this content.
One spreadsheet to rule them all. One spreadsheet to find them. One spreadsheet to bring them all and at corporate, bind them.
A picture is worth a thousand words, but a sample spreadsheet is more likely to be worked on.
This copies includes formats as well.
Please Login or Register to view this content.
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
AlphaFrog: a quick question. On SaveAs, does the file format default to xlOpenXMLWorkbook? Too bad VB doesn't detect the extension and pick the right fileformat for you.
Yes. I think it does default to xlOpenXMLWorkbookOriginally Posted by dflak
Quick heads up on your suggested code; I think you missed this bit.
Thisworkbook.Sheets("Offerte").Range("$A$1:$K$139").Copy
Otherwise it defaults to the ActiveWorkbook. In your code, the ActiveWorkbook is now the previously added new workbook.
Got me on that oneYes, activeworkbook is the last workbook opened or created.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks