Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Comman Button to Save Worksheet as Workbook
OK, I would like to thank you all for making this such a valuable
resource. Here is my question. I need a macro that when I click on a command button it will save the current worksheet (not the workbook) as a file based on the contents of 2 cells. For example. WorkSheet = 8 c9 = Name d3 = Date When you click on the button it will save Just the current worksheet (8) as Name_Date.xls Any help is greatly appreciated. Thanks, -T |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Comman Button to Save Worksheet as Workbook
I'd use a button from the forms toolbar that's assigned to this macro:
Option Explicit Sub testme() Dim NewName As String With ActiveSheet NewName = .Range("c9").Value & Format(.Range("d3"), "yyyymmdd") _ & ".xls" .Copy 'to a new workbook End With With ActiveSheet.Parent 'that new workbook .SaveAs Filename:=ThisWorkbook.Path & "\" & NewName, _ FileFormat:=xlWorkbookNormal .Close savechanges:=False End With End Sub Remember that the workbook name can't have those /'s in them--that's why I used format. tmstreet wrote: OK, I would like to thank you all for making this such a valuable resource. Here is my question. I need a macro that when I click on a command button it will save the current worksheet (not the workbook) as a file based on the contents of 2 cells. For example. WorkSheet = 8 c9 = Name d3 = Date When you click on the button it will save Just the current worksheet (8) as Name_Date.xls Any help is greatly appreciated. Thanks, -T -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Comman Button to Save Worksheet as Workbook
Thanks so much.
I can fumble my way through formulas, but I need you 'real' excel people to figure out the rest. Your the man Dave. Dave Peterson wrote: I'd use a button from the forms toolbar that's assigned to this macro: Option Explicit Sub testme() Dim NewName As String With ActiveSheet NewName = .Range("c9").Value & Format(.Range("d3"), "yyyymmdd") _ & ".xls" .Copy 'to a new workbook End With With ActiveSheet.Parent 'that new workbook .SaveAs Filename:=ThisWorkbook.Path & "\" & NewName, _ FileFormat:=xlWorkbookNormal .Close savechanges:=False End With End Sub Remember that the workbook name can't have those /'s in them--that's why I used format. tmstreet wrote: OK, I would like to thank you all for making this such a valuable resource. Here is my question. I need a macro that when I click on a command button it will save the current worksheet (not the workbook) as a file based on the contents of 2 cells. For example. WorkSheet = 8 c9 = Name d3 = Date When you click on the button it will save Just the current worksheet (8) as Name_Date.xls Any help is greatly appreciated. Thanks, -T -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
mail merging 2 workbooks??? | Excel Discussion (Misc queries) | |||
Customizing Worksheet Menu Bar for a workbook without VBA coding | Excel Discussion (Misc queries) | |||
Copying A Worksheet From Each Open Workbook to an new Workbook | Excel Worksheet Functions | |||
How can I create a button to save one worksheet into a new workshe | Excel Discussion (Misc queries) | |||
Help - now really stuck! File transfer problem | Excel Discussion (Misc queries) |