I am using the code below attached to a "Submit Request" button that converts the file into a PDF and then automtically saves it to a folder on the network drive. Depending on if other cells are "true", I need the converted PDF to be emailed instead of saved when other cells are "true" such as:
E7 = TRUE AND E17 OR E18 OR E19 OR E20 = TRUE, then email .pdf to "person1@email.com"
Sub clicksubmit01()
Dim FileName As String
FileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"S:\Folder\" & Cells(2, 2).Value & " - " & Cells(6, 2).Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("A1:D27").Select
End Sub
Bookmarks