My Online Training Hub

Learn Dashboards, Excel, Power BI, Power Query, Power Pivot

You are here: Home / Save Copy of file Leave Blank Template Open|VBA & Macros|Excel Forum|My Online Training Hub
Avatar
sp_LogInOut Log In sp_Registration Register
sp_Search Search
Advanced Search|Last Search Results
Search
Forum Scope



Match



Forum Options



Minimum search word length is 3 characters - maximum search word length is 84 characters
sp_Search Search
sp_RankInfo
Lost password?
sp_PrintTopic sp_TopicIcon
Save Copy of file Leave Blank Template Open
Avatar
Sherry Fox
Poinciana, FL
Member
Members
Level 0
Forum Posts: 71
Member Since:
December 4, 2021
sp_UserOfflineSmall Offline
1
April 23, 2022 - 4:36 am
sp_Permalink sp_Print

Macro needs some help.  This macro works, but I want it to do one more thing.  I have a button for it on my ribbon, as I use it often.  I have a hard coded path for this macro, and the filename is in cell B28 of the file.  What I want to accomplish is to save a COPY of the file with the file name in cell B28, and leave my template open, with no cells entered.  I have done this before, but I cannot find the code.  Can anyone help?  Thanks in advance.

 

Sub SaveAppSubmit()

Dim SaveName As String
SaveName = ActiveSheet.Range("B28").Text
ActiveWorkbook.SaveAs filename:="D:\Documents\New\" & _
SaveName & ".xlsx"

End Sub

sp_AnswersTopicSeeAnswer See Answer
Avatar
Catalin Bombea
Iasi, Romania
Admin
Level 10
Forum Posts: 1810
Member Since:
November 8, 2013
sp_UserOnlineSmall Online
2
April 25, 2022 - 1:46 pm
sp_Permalink sp_Print

Hi Sherry,

Instead of SaveAs, use SaveCopyAs, will leave the current workbook intact.

sp_AnswersTopicAnswer
Answers Post
Avatar
Sherry Fox
Poinciana, FL
Member
Members
Level 0
Forum Posts: 71
Member Since:
December 4, 2021
sp_UserOfflineSmall Offline
3
April 26, 2022 - 2:50 am
sp_Permalink sp_Print

@Catalin Bombea,

Such a simple subtle difference is the answer.  Thanks so much.  I was so close, but just could not see it!  Thanks again for your assistance!

sp_Feed
Go to top
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Catalin Bombea, Murat Hasanoglu
Guest(s) 10
Currently Browsing this Page:
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 871
Purfleet: 412
Frans Visser: 346
David_Ng: 306
lea cohen: 219
Jessica Stewart: 204
A.Maurizio: 202
Aye Mu: 201
jaryszek: 183
Newest Members:
Murat Hasanoglu
Brett Dryland
Saeed Aldousari
Bhuwan Devkota
Kathryn Patton
Maria Conatser
Jefferson Granemann
Glen Coulthard
Nikki Fox
Rachele Dickie
Forum Stats:
Groups: 3
Forums: 24
Topics: 6222
Posts: 27291

 

Member Stats:
Guest Posters: 49
Members: 31913
Moderators: 3
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: MOTH Support, Velouria, Riny van Eekelen