I am currently using this code,...
Dim SaveStr As Variant
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Input") 'change as needed
SaveStr = False
Do Until SaveStr <> False
SaveStr = Application.GetSaveAsFilename(CurDir & "\LOT # " & ws.[LotNumber] & " - CUST # " & ws.[CustomerNumber] & " - " & UCase(ws.[CustomerName]) & ".xlsm", "Excel Workbooks (*.xlsm), *.xlsm", , _
"Select file name and folder:")
If SaveStr = False Then
SaveStr = MsgBox("Please make a selection!", vbRetryCancel)
If SaveStr = 4 Then SaveStr = False
If SaveStr <> 2 Then
I have a few alterations I would like in the code above, I just have no idea how to code them myself. (I have done some searching and found other codes, that somewhat do what I'm looking for. But I don't know how to incorporate them into my existing code.)
When running this macro, user is presented with a dialog box that says,...
Title: Save Version
Body: "You are about to save a copy of this file, named - 'LOT # 439648 - CUST # 496331 - PICKLE SHOP.xlsm' to the network folder. Do you wish to continue?" YES/NO
Please Note: The file name in my example above, is figured out by the code in my VBA. So I assume the dialog box will have that line of code copied into it as well?
I would like the default save location to be,...
But come Monday, I will be changing the location to something like,...
After the save is completed, I would like the workbook (NOT EXCEL ITSELF - user might be working in other workbooks) to automatically close.
Upon closing of the workbook, I would like Windows Explorer to automatically open - to the default save location.
Item 2 - is the MOST important to me, and the others would only be extras for me.
I hope they're all possible, but I have a feeling Item 4, isn't possible?
If you have any questions, please let me know. I will be following this post closely as I need this completed very soon. So if you respond, I should have a response back to you within minutes.
Thank you in advance for your help.