Macro should only work if other macros has run fully

[ashani]

Hi experts,
i wonder if someone can help me on this please :

I have 2 command buttons in my spreadsheet
1. Create PDF
2. Clear Contents

What I want that clear contents macro should only work if the create PDF macro has run fully othrwise message box come up to say Create PDF first.

Please can someone guide me.

thank you

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

Sub Newday()

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

 

[offthelip]

add these few lines

public pdfrun As Boolean

Sub CreatePDF_Click()
pdfrun = True
''' your code here
End Sub

Sub Newday()
If pdfrun Then
Sheets("Sheet1").Select
With ActiveSheet
.Unprotect
     With Range("A1:O40 ")
        .Locked = False
        .ClearContents
End With
.Protect
End With
Else
MsgBox ("Please create the PDF first")
End If
End Sub

to your code:

 

[ashani]

Thank you sir

The code works perfectly but every time i close and reopen the file it says the same thing. Is it possible that once saved on the location then it works normally ?

Thank you once again.

 

[offthelip]

Add this macro to your current module:

Sub clearpdf()
pdfrun = False

End Sub

and then add this to the workbook code open event:

Private Sub Workbook_Open()
Call clearpdf

End Sub

 

[ashani]

Hi Thank you so much for all your help. Is it possible to put something in the pdf code below so if there is any value in cell F33 than it wouldn't allow the user to close excel file without creating a PDF. That way then it will push user to create PDF file before clearing it.

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