Conditional macros

[samarbac]

Hi,

Is it possible for macro to run only if the other macro has been run fully ? I’ve multiple command button set in a worksheet, 1 to print AJ’s another one to clear all contents, is it possible for clear all contents macro should only work when print macro has been called fully. If print macro hasn’t been run fully then message box appears for the user to print documents first.

Thank you in advance.

[mjr veverka]

??? e.g.:

Option Explicit

Private prmsn As Boolean

Sub Macro1()
    prmsn = False
    
    On Error Resume Next
        'Some code
        
        'if error then an earlier exit from the procedure
        If Err.Number <> 0 Then Exit Sub
        
        'or other condition and an earlier exit from the procedure
        Dim co_pies As Integer
        
        'Some code
        
        If co_pies < 47 Then Exit Sub
        
        'Some code
    On Error GoTo 0
    
    'Some code
    
    prmsn = True
End Sub

Sub Macro2()
    If Not prmsn Then
        MsgBox "Macro1 has not been fully executed"
        Exit Sub
    End If
    
    'Some code
    
    prmsn = False
End Sub

[samarbac]

Thank you - it’s not working for some reason
Let me try and explain in detail

Macro 1 is - print document
Macro 2 is - clear document

Both working fine - but I want to macro 2 to check if macro 1 has run fully before clearing the document. If macro 1 not run fully then stop the process and show message box.

Thank you

[mjr veverka]

... I want to macro 2 to check if macro 1 has run fully ...

That's how it works.
If the variable "prmsn" does not get the value "True" (prmsn = True) when executing "procedure_1", then "procedure_2" will not be executed.

it’s not working for some reason

Give an example of your procedures.

[jindon]

Is Macro 2 always clear after Macro 1?

If so
Make Macro 2 as Private and run Macro 2 from Macro 1 after the print.

[samarbac]

Hi

Thank you for the message- here is my 2 macros : I want 2nd macro to only works if 1st macro of PDF has fully run :

Macro One :

Sub CreatePDF_Click()

pdfName = Sheets("Sheet1").Range("C1").Value
ChDir "C:\User"
fileSaveName = Application.GetSaveAsFilename(pdfName, _
fileFilter:="PDF Files (*.pdf), *.pdf")
If fileSaveName <> False Then
Sheets(Array("Sheet1", "2", "3")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Sheets("Sheet1").Select
Exit Sub
End If
End Sub

2nd Macro

Sub Newday()

Sheets("Sheet1").Select
With ActiveSheet
.Unprotect
     With Range("A1:O40 ")
        .Locked = False
        .ClearContents
End With
.Protect
End With

Thank you

[mjr veverka]

Try:

Option Explicit

Public prmsn As Boolean ' <= This declaration in the standard module

Sub CreatePDF_Click()
    Dim pdfName As String, fileSaveName
    
    prmsn = False
    
    On Error GoTo the_end
    
    ChDir "C:\User"
    pdfName = Application.Trim(Sheets("Sheet1").Range("C1").Value)
    fileSaveName = Application.GetSaveAsFilename(pdfName, "PDF Files (*.pdf), *.pdf", , "Save as ...")
    If fileSaveName = False Then Exit Sub
    
    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    Sheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName, _
                                        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                        IgnorePrintAreas:=False, OpenAfterPublish:=True
    Sheets("Sheet1").Select
    
    If Dir(fileSaveName, vbNormal) = pdfName Then prmsn = True
    
Exit Sub
the_end:
End Sub

Sub Newday()
    If Not prmsn Then
        MsgBox "Procedure 'CreatePDF_Click' has not been fully executed"
        Exit Sub
    End If
    
    With Sheets("Sheet1")
        .Unprotect
        With .Range("A1:O40")
            .Locked = False
            .ClearContents
        End With
        .Protect
    End With
    
    prmsn = False
End Sub

[samarbac]

Hi

thank you for the reply.

Unfortunately, it's not doing anything - like when I try and save PDF - it brings up windows for location and when click save - it doesn't save. Also, when click on Newday macro it shows the message box of procedure not completed fully and then that's it.