Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save as troubles
Hi
The following fails at the line indicated between asterisks - can anyone tell me why and offer a solution Sub New_Name() Application.EnableEvents = False Application.Run "Open_All_Sheets" Dim inputText As String inputText = Application.InputBox("Enter name here", _ "Persons Name", , , , , 2) Sheets("Data Input").Range("D1:H1").Value = inputText Worksheets("Data Input").Buttons("Name_Button").Visible = False 'Worksheets("Data Input").Buttons("Name_Button").Visible = True Application.Run "Lock_All_Sheets" ********** ThisWorkbook.SaveCopyAs "Personal Data-" & inputText.xls ********** ThisWorkbook.Close SaveChanges:=False Application.EnableEvents = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save as troubles
Hi Sandy,
Try: ThisWorkbook.SaveCopyAs Filename:="Personal Data-" _ & inputText & ".xls" --- Regards, Norman "Sandy" wrote in message ... Hi The following fails at the line indicated between asterisks - can anyone tell me why and offer a solution Sub New_Name() Application.EnableEvents = False Application.Run "Open_All_Sheets" Dim inputText As String inputText = Application.InputBox("Enter name here", _ "Persons Name", , , , , 2) Sheets("Data Input").Range("D1:H1").Value = inputText Worksheets("Data Input").Buttons("Name_Button").Visible = False 'Worksheets("Data Input").Buttons("Name_Button").Visible = True Application.Run "Lock_All_Sheets" ********** ThisWorkbook.SaveCopyAs "Personal Data-" & inputText.xls ********** ThisWorkbook.Close SaveChanges:=False Application.EnableEvents = True End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save as troubles
Shouldn't it be:
ThisWorkbook.SaveCopyAs "Personal Data-" & inputText & ".xls" RBS "Sandy" wrote in message ... Hi The following fails at the line indicated between asterisks - can anyone tell me why and offer a solution Sub New_Name() Application.EnableEvents = False Application.Run "Open_All_Sheets" Dim inputText As String inputText = Application.InputBox("Enter name here", _ "Persons Name", , , , , 2) Sheets("Data Input").Range("D1:H1").Value = inputText Worksheets("Data Input").Buttons("Name_Button").Visible = False 'Worksheets("Data Input").Buttons("Name_Button").Visible = True Application.Run "Lock_All_Sheets" ********** ThisWorkbook.SaveCopyAs "Personal Data-" & inputText.xls ********** ThisWorkbook.Close SaveChanges:=False Application.EnableEvents = True End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save as troubles
Works a treat Norman thank you
Sandy "Norman Jones" wrote in message ... Hi Sandy, Try: ThisWorkbook.SaveCopyAs Filename:="Personal Data-" _ & inputText & ".xls" --- Regards, Norman "Sandy" wrote in message ... Hi The following fails at the line indicated between asterisks - can anyone tell me why and offer a solution Sub New_Name() Application.EnableEvents = False Application.Run "Open_All_Sheets" Dim inputText As String inputText = Application.InputBox("Enter name here", _ "Persons Name", , , , , 2) Sheets("Data Input").Range("D1:H1").Value = inputText Worksheets("Data Input").Buttons("Name_Button").Visible = False 'Worksheets("Data Input").Buttons("Name_Button").Visible = True Application.Run "Lock_All_Sheets" ********** ThisWorkbook.SaveCopyAs "Personal Data-" & inputText.xls ********** ThisWorkbook.Close SaveChanges:=False Application.EnableEvents = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Troubles | Excel Discussion (Misc queries) | |||
COM Add-in Troubles | Excel Discussion (Misc queries) | |||
Chart troubles | Excel Worksheet Functions | |||
IF troubles | Excel Worksheet Functions | |||
troubles with ActiveWorkbook.Save | Excel Programming |