Jose Zavala
Member
Members
Forum Posts: 47
Member Since:
October 25, 2017
October 25, 2017
Offline
Hi,
False Then MsgBox "Save as " & save_name End If End Sub>
have the code below how can I modify it that can use the value in cell A105 as the file name.
Code:
Sub Save_Workbook_NewName()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
' Change initial folder as needed or store it in a cell and reference that
fd.InitialFileName = "\\mtlnas01\EFT_backup\2021\"
'fd.AllowMultiSelect = True
FilePicked = fd.Show
ActiveSheet.Shapes("Button 13").Delete
ActiveSheet.Shapes("Button 15").Delete
ActiveSheet.Shapes("Button 17").Delete
ActiveSheet.Shapes("Button 19").Delete
ActiveSheet.Shapes("CommandButton1").Delete
Worksheets("USD_WIRES").Range("A1").ClearComments
Worksheets("USD_WIRES").Range("J1").ClearComments
Worksheets("USD_WIRES").Range("K1").ClearComments
save_name = Application.GetSaveAsFilename(fileFilter:="Excel File (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Filename:=save_name, FileFormat:=51
[COLOR=rgb(184, 49, 47)][B]ThisWorkbook.SaveAs Range("A1"), 51 [/B][/COLOR]
If save_name <> False Then
MsgBox "Save as " & save_name
End If
End Sub
Thank you,
Catalin Bombea
Iasi, Romania
Member
Dashboards
Power Query
Power Pivot
Xtreme Pivot Tables
Excel for Decision Making
Excel for Finance
Excel Analysis Toolpak
Power BI
Excel
Word
Outlook
Excel Expert
Excel Customer Service
Power Query
Power Pivot
Xtreme Pivot Tables
Excel for Decision Making
Excel for Finance
Excel Analysis Toolpak
Power BI
Excel
Word
Outlook
Excel Expert
Excel Customer Service
Forum Posts: 1917
Member Since:
November 8, 2013
November 8, 2013
Offline
Catalin Bombea
Iasi, Romania
Member
Dashboards
Power Query
Power Pivot
Xtreme Pivot Tables
Excel for Decision Making
Excel for Finance
Excel Analysis Toolpak
Power BI
Excel
Word
Outlook
Excel Expert
Excel Customer Service
Power Query
Power Pivot
Xtreme Pivot Tables
Excel for Decision Making
Excel for Finance
Excel Analysis Toolpak
Power BI
Excel
Word
Outlook
Excel Expert
Excel Customer Service
Forum Posts: 1917
Member Since:
November 8, 2013
November 8, 2013
Offline
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Riny van Eekelen
Guest(s) 8
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
Catalin Bombea: 1917
SunnyKow: 1432
Anders Sehlstedt: 900
Purfleet: 414
Frans Visser: 346
David_Ng: 306
Hans Hallebeek: 287
lea cohen: 246
Jessica Stewart: 219
A.Maurizio: 216
Newest Members:
manoj Ka
Chris Cowan
Pawel Ganczarski
Molly King
Faraz Rafi
Anthony Blake
Jackb57
Ben Tooke
Kelsey Fennell
Jeffree Bunning
Forum Stats:
Groups: 3
Forums: 24
Topics: 6873
Posts: 30124
Member Stats:
Guest Posters: 49
Members: 33675
Moderators: 2
Admins: 3
Administrators: Mynda Treacy, Philip Treacy, Jessica
Moderators: Velouria, Riny van Eekelen
© Simple:Press —