Hey guys,
This is my first time posting on the forum but I've been following the posts for quite some time. Im a novice Macro user and took the first step by looking through all of the old posts. Here is what Im trying to do but Im really struggling.
1. When a user clicks the save button or presses the save disk the excel file is saved to two locations. I don't want to use a macro command button as the individuals using the tool will definitely forget.
C:\Users\g068716\Desktop\Drop\Dropbox\Ancaster\
C:\Users\g068716\Desktop\Personal\
2. When it saves it doesn't ask if its ok to overwrite the file. Just overwrite and save.
I've looked through piles of examples and the ones that look promising just dont seem to work. Here is what I have right now.
Sub Main()
'All saves should be placed between display alert toggle
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\g068716\Desktop\Drop\Dropbox\Ancaster\Book3.xlsm"
ActiveWorkbook.SaveAs Filename:="C:\Users\g068716\Desktop\Personal\"
Application.DisplayAlerts = True
End Sub
It successful overwrites without being asked if it wants to overwrite the current file which is great but it still requires a command button whereas Im looking for it to activate when the user selects File -> Save or Clicks the save disk.
Thanks in advance. I've really been stuck on this for a while.
This is my first time posting on the forum but I've been following the posts for quite some time. Im a novice Macro user and took the first step by looking through all of the old posts. Here is what Im trying to do but Im really struggling.
1. When a user clicks the save button or presses the save disk the excel file is saved to two locations. I don't want to use a macro command button as the individuals using the tool will definitely forget.
C:\Users\g068716\Desktop\Drop\Dropbox\Ancaster\
C:\Users\g068716\Desktop\Personal\
2. When it saves it doesn't ask if its ok to overwrite the file. Just overwrite and save.
I've looked through piles of examples and the ones that look promising just dont seem to work. Here is what I have right now.
Sub Main()
'All saves should be placed between display alert toggle
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\g068716\Desktop\Drop\Dropbox\Ancaster\Book3.xlsm"
ActiveWorkbook.SaveAs Filename:="C:\Users\g068716\Desktop\Personal\"
Application.DisplayAlerts = True
End Sub
It successful overwrites without being asked if it wants to overwrite the current file which is great but it still requires a command button whereas Im looking for it to activate when the user selects File -> Save or Clicks the save disk.
Thanks in advance. I've really been stuck on this for a while.