Ik gebruik de volgende macro op meerdere macro achterelkaar te laten draaien. Nu loop ik tegen het volgende probleem aan.
in de macro SavingWorkbook zit stukje macro die het bestand opslaat bestaat het bestand al dan dan krijg je een melding. Indien je op nee of annuleren drukt dan stop de macro alleen gaat hij wel verder met Macro2. Hoe kan ik de macro aanpassen zodat hij helemaal niet verdergaat.
Gr. Kasper
in de macro SavingWorkbook zit stukje macro die het bestand opslaat bestaat het bestand al dan dan krijg je een melding. Indien je op nee of annuleren drukt dan stop de macro alleen gaat hij wel verder met Macro2. Hoe kan ik de macro aanpassen zodat hij helemaal niet verdergaat.
Code:
Sub myMain()
On Error GoTo ExitMain
Call SavingWorkbook
Call Macro2
Call Macro3
ExitMain:
End Sub
Code:
Sub SavingWorkbook()
Dim strDate As String
Dim strFolder As String
Dim StrName As String
Dim strFile As String
Application.ScreenUpdating = False
strDate = Format(Now, "dd-mm-yyyy")
strFolder = ThisWorkbook.Sheets("Folder").Range("B1").Value
StrName = ThisWorkbook.Sheets("Folder").Range("B2").Value
On Error Resume Next
Err.Clear
ActiveWorkbook.SaveAs Filename:=strFolder & "\" & StrName & " (" & strDate & ")" & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
If Err.Number <> 0 Then MsgBox "File are not saving": Exit Sub
strFile = ActiveWorkbook.FullName
If InStr(strFile, "\") = 0 Then
MsgBox "This workbook hasn't been saved yet", vbExclamation
Exit Sub
End If
ActiveWorkbook.Close SaveChanges:=True ' or False, if you prefer
Workbooks.Open Filename:=strFile
Application.ScreenUpdating = True
End Sub
Gr. Kasper