Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set initial filename before saving
When a new workbook is created from a template the proposed (initial)
filename when saving the workbook is the "template name".xls. I would like to have this proposed name (initial name) to be equal to cell content. Would you please help me with the coding. Here is what I have so far: Private Sub Worksheet_Change(ByVal Target As Range) ' ' How do I run a macro every time a certain cell changes its value? ' Event called Worksheet_Change which is triggered when a ' value is entered (it will not fire when a formula result changes). ' If Intersect(Target, Range("A2")) Is Nothing Then ' Exit Sub ' Else ' Call Set_InitialFname ' End If End Sub ---------- Sub Set_InitialFname() ' ' Propose a preset file name when the user will save the file ' ' Set the initial file name before saving ? =Range("A2").Value & ".xls" End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set initial filename before saving
I think what you're looking for looks something like the following:
Sub Set_InitialFname() ' ' Propose a preset file name when the user will save the file ' ' Set the initial file name before saving Dim initialname as String initialname = Range("A2").Value & ".xls" End Sub You can then use 'initialname' in a variety of ways further along in your sub. -- -SA "Pierre" wrote: When a new workbook is created from a template the proposed (initial) filename when saving the workbook is the "template name".xls. I would like to have this proposed name (initial name) to be equal to cell content. Would you please help me with the coding. Here is what I have so far: Private Sub Worksheet_Change(ByVal Target As Range) ' ' How do I run a macro every time a certain cell changes its value? ' Event called Worksheet_Change which is triggered when a ' value is entered (it will not fire when a formula result changes). ' If Intersect(Target, Range("A2")) Is Nothing Then ' Exit Sub ' Else ' Call Set_InitialFname ' End If End Sub ---------- Sub Set_InitialFname() ' ' Propose a preset file name when the user will save the file ' ' Set the initial file name before saving ? =Range("A2").Value & ".xls" End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set initial filename before saving
Thanks StumpedAgain. But it doesn't work! I've typed "Allo" in Cell A2 (so
the sub is then executed) and it doesn't change the default filename when I click on Save or SaveAs. In the SaveAs window the Filename by default is still the Template Name. "StumpedAgain" wrote: I think what you're looking for looks something like the following: Sub Set_InitialFname() ' ' Propose a preset file name when the user will save the file ' ' Set the initial file name before saving Dim initialname as String initialname = Range("A2").Value & ".xls" End Sub You can then use 'initialname' in a variety of ways further along in your sub. -- -SA "Pierre" wrote: When a new workbook is created from a template the proposed (initial) filename when saving the workbook is the "template name".xls. I would like to have this proposed name (initial name) to be equal to cell content. Would you please help me with the coding. Here is what I have so far: Private Sub Worksheet_Change(ByVal Target As Range) ' ' How do I run a macro every time a certain cell changes its value? ' Event called Worksheet_Change which is triggered when a ' value is entered (it will not fire when a formula result changes). ' If Intersect(Target, Range("A2")) Is Nothing Then ' Exit Sub ' Else ' Call Set_InitialFname ' End If End Sub ---------- Sub Set_InitialFname() ' ' Propose a preset file name when the user will save the file ' ' Set the initial file name before saving ? =Range("A2").Value & ".xls" End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set initial filename before saving
I apologize I misunderstood your question. The following is the only way in
which I know to save using a cell reference: ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\username\My Documents\" & A2 & ".xls" I am not aware of any way to change the default saveas name. Good luck! -- -SA "Pierre" wrote: Thanks StumpedAgain. But it doesn't work! I've typed "Allo" in Cell A2 (so the sub is then executed) and it doesn't change the default filename when I click on Save or SaveAs. In the SaveAs window the Filename by default is still the Template Name. "StumpedAgain" wrote: I think what you're looking for looks something like the following: Sub Set_InitialFname() ' ' Propose a preset file name when the user will save the file ' ' Set the initial file name before saving Dim initialname as String initialname = Range("A2").Value & ".xls" End Sub You can then use 'initialname' in a variety of ways further along in your sub. -- -SA "Pierre" wrote: When a new workbook is created from a template the proposed (initial) filename when saving the workbook is the "template name".xls. I would like to have this proposed name (initial name) to be equal to cell content. Would you please help me with the coding. Here is what I have so far: Private Sub Worksheet_Change(ByVal Target As Range) ' ' How do I run a macro every time a certain cell changes its value? ' Event called Worksheet_Change which is triggered when a ' value is entered (it will not fire when a formula result changes). ' If Intersect(Target, Range("A2")) Is Nothing Then ' Exit Sub ' Else ' Call Set_InitialFname ' End If End Sub ---------- Sub Set_InitialFname() ' ' Propose a preset file name when the user will save the file ' ' Set the initial file name before saving ? =Range("A2").Value & ".xls" End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set initial filename before saving
ActiveWorkbook.SaveAs Filename doesn't work well for my need. Any voluntrer?
"StumpedAgain" wrote: I apologize I misunderstood your question. The following is the only way in which I know to save using a cell reference: ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\username\My Documents\" & A2 & ".xls" I am not aware of any way to change the default saveas name. Good luck! -- -SA "Pierre" wrote: Thanks StumpedAgain. But it doesn't work! I've typed "Allo" in Cell A2 (so the sub is then executed) and it doesn't change the default filename when I click on Save or SaveAs. In the SaveAs window the Filename by default is still the Template Name. "StumpedAgain" wrote: I think what you're looking for looks something like the following: Sub Set_InitialFname() ' ' Propose a preset file name when the user will save the file ' ' Set the initial file name before saving Dim initialname as String initialname = Range("A2").Value & ".xls" End Sub You can then use 'initialname' in a variety of ways further along in your sub. -- -SA "Pierre" wrote: When a new workbook is created from a template the proposed (initial) filename when saving the workbook is the "template name".xls. I would like to have this proposed name (initial name) to be equal to cell content. Would you please help me with the coding. Here is what I have so far: Private Sub Worksheet_Change(ByVal Target As Range) ' ' How do I run a macro every time a certain cell changes its value? ' Event called Worksheet_Change which is triggered when a ' value is entered (it will not fire when a formula result changes). ' If Intersect(Target, Range("A2")) Is Nothing Then ' Exit Sub ' Else ' Call Set_InitialFname ' End If End Sub ---------- Sub Set_InitialFname() ' ' Propose a preset file name when the user will save the file ' ' Set the initial file name before saving ? =Range("A2").Value & ".xls" End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Saving Multiple Sheets to Another Spreadsheet Without Leaving the Initial Workbook | Excel Programming | |||
Saving FileName | Excel Programming | |||
Saving with a filename already in a cell | Excel Programming | |||
Saving filename same as import filename | Excel Programming | |||
Saving Cell value as filename | Excel Programming |