ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   question about creating a message box (https://www.excelbanter.com/excel-programming/292515-question-about-creating-message-box.html)

slim[_2_]

question about creating a message box
 
I have a macro that I created (thanks to the help of this board), and in the
macro, I've created a message box in which it prompts you to enter the
directory path of where you want to save the files. The box works
correctly.

Is there someway that I have default writing in the message box where you
enter the data? I would like a default path to come up, but if the user
wants to change the path, they should be able to overwrite the path, simply
by highlighting the default path and typing over it.

Thanks for everyone's help.



Frank Kabel

question about creating a message box
 
Hi
try something like the following:

path_name = inputbox("Enter your path","Path-Entry","C:\")
where "C:\" is the default value

--
Regards
Frank Kabel
Frankfurt, Germany

slim wrote:
I have a macro that I created (thanks to the help of this board), and
in the macro, I've created a message box in which it prompts you to
enter the directory path of where you want to save the files. The
box works correctly.

Is there someway that I have default writing in the message box where
you enter the data? I would like a default path to come up, but if
the user wants to change the path, they should be able to overwrite
the path, simply by highlighting the default path and typing over it.

Thanks for everyone's help.



Jean-Yves[_2_]

question about creating a message box
 
Hi,

Small correction :I think you have an "InputBox", not a "messagebox"
In order to have a correct path, I sugest you would use the XL dialogue
Dim strNameToSaveAs As String
ChDrive ("C:\")
ChDir ("C:\YourProject\")
'here you show the dialog
strNameToSaveAs =
Application.GetSaveAsFilename(InitialFilename:="Yo urProposalName",
FileFilter:="Microsoft Excel File (*.xls),*.xls")
'it return -but does nothing yet - the file name tho saveas
If strNameToSaveAs = "False" Then
Exit Sub
Else
ActiveWorkbook.SaveAs FileName:=strNameToSaveAs, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End If
HTH

Regards,
JY


"slim" wrote in message
...
I have a macro that I created (thanks to the help of this board), and in

the
macro, I've created a message box in which it prompts you to enter the
directory path of where you want to save the files. The box works
correctly.

Is there someway that I have default writing in the message box where you
enter the data? I would like a default path to come up, but if the user
wants to change the path, they should be able to overwrite the path,

simply
by highlighting the default path and typing over it.

Thanks for everyone's help.





slim[_2_]

question about creating a message box
 
Thanks Frank. That did it!

"Frank Kabel" wrote in message
...
Hi
try something like the following:

path_name = inputbox("Enter your path","Path-Entry","C:\")
where "C:\" is the default value

--
Regards
Frank Kabel
Frankfurt, Germany

slim wrote:
I have a macro that I created (thanks to the help of this board), and
in the macro, I've created a message box in which it prompts you to
enter the directory path of where you want to save the files. The
box works correctly.

Is there someway that I have default writing in the message box where
you enter the data? I would like a default path to come up, but if
the user wants to change the path, they should be able to overwrite
the path, simply by highlighting the default path and typing over it.

Thanks for everyone's help.






All times are GMT +1. The time now is 02:12 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com