Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
macro
Hello
I am new to macros. I have created a macro that I want to use on a template and once it is run, I want it to ask me what file name to save as. Could someone help me with this. Any help will be greatly appreciated. -- thank you mac |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
macro
Sub ordinate()
varFname = Application.GetSaveAsFilename(ThisWorkbook.Name, _ "Excel Files (*.xls),*.xls") ActiveWorkbook.SaveAs Filename:=varFname End Sub -- Gary''s Student - gsnu200750 |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
macro
Hi Gary's student,
Thank you for your reply. I am attaching part of the macro. Could you please tell me how to use it in this format.? I want to replace the word Medway. Again thank you for your help. ChDir "C:\2007 Client Package" ActiveWorkbook.SaveAs Filename:= _ "C:\2007 Client Package\Medway 2007 Client Package.xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False -- thank you mac "mac" wrote: Hello I am new to macros. I have created a macro that I want to use on a template and once it is run, I want it to ask me what file name to save as. Could someone help me with this. Any help will be greatly appreciated. -- thank you mac |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
macro
Sub likeThis()
Dim fName As Variant fName = Application.GetSaveAsFilename _ (FileFilter:="Excel Files (*.xls),*.xls)") If fName = False Then Exit Sub On Error Resume Next ActiveWorkbook.SaveAs fName End Sub mac wrote: Hello I am new to macros. I have created a macro that I want to use on a template and once it is run, I want it to ask me what file name to save as. Could someone help me with this. Any help will be greatly appreciated. -- thank you mac |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
macro
hI jw:
I am getting an unexpected expression for the expression below it highlights the colon and equial (FileFilter:="Excel Files (*.xls),*.xls)") -- thank you mac "JW" wrote: Sub likeThis() Dim fName As Variant fName = Application.GetSaveAsFilename _ (FileFilter:="Excel Files (*.xls),*.xls)") If fName = False Then Exit Sub On Error Resume Next ActiveWorkbook.SaveAs fName End Sub mac wrote: Hello I am new to macros. I have created a macro that I want to use on a template and once it is run, I want it to ask me what file name to save as. Could someone help me with this. Any help will be greatly appreciated. -- thank you mac |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
using a cell value to control a counter inside a macro and displaying macro value | Excel Worksheet Functions | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) |