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











LinkBack URL
About LinkBacks
Register To Reply
Bookmarks