Hi!
Thanks for your interest in my problem!
I have always managed to muddle my way through some of the very limited and small codes i have used in the past but this is starting to bug me.
I have a workbook that contains 4 sheets named Master, Asset list, Material, Quote.
On the master sheet all the necessary info is entered that populates the rest of the workbook.
What i have got it to do is pdf and save the quote sheet in a specific location.
However i would like it to also remove rows with £0.00 in (Rows 45 - 52 if H =0.00) and also (rows 57 - 65 if I = 0.00) This worksheet is the quote sheet so i would like it not to have the 0.00 entries in when it is pdf and sent.
Also is it possible to email and local print "Materials" worksheet using outlook to a specific email address.
i have this working of a macro Button on the "master" sheet.
I have the following code that currently does the pdf and saving.
Can wee add the other function to the existing command button?
Code
Sub SaveToPDF()
Dim strFileName As String, strC9 As String, strWorksheet As String
'Set Variable Values
strC9 = Range("C9").Value
strC16 = Range("C16").Value
strWorksheet = ActiveSheet.Name
strFileName = strC9 & " " & strC16
Application.DisplayAlerts = True
Sheets("Quote").Activate
ActiveSheet.UsedRange.Select
ThisWorkbook.Sheets(Array("Quote")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:where i save my file_
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Thank you in advance for your time!
Thanks for your interest in my problem!
I have always managed to muddle my way through some of the very limited and small codes i have used in the past but this is starting to bug me.
I have a workbook that contains 4 sheets named Master, Asset list, Material, Quote.
On the master sheet all the necessary info is entered that populates the rest of the workbook.
What i have got it to do is pdf and save the quote sheet in a specific location.
However i would like it to also remove rows with £0.00 in (Rows 45 - 52 if H =0.00) and also (rows 57 - 65 if I = 0.00) This worksheet is the quote sheet so i would like it not to have the 0.00 entries in when it is pdf and sent.
Also is it possible to email and local print "Materials" worksheet using outlook to a specific email address.
i have this working of a macro Button on the "master" sheet.
I have the following code that currently does the pdf and saving.
Can wee add the other function to the existing command button?
Code
Sub SaveToPDF()
Dim strFileName As String, strC9 As String, strWorksheet As String
'Set Variable Values
strC9 = Range("C9").Value
strC16 = Range("C16").Value
strWorksheet = ActiveSheet.Name
strFileName = strC9 & " " & strC16
Application.DisplayAlerts = True
Sheets("Quote").Activate
ActiveSheet.UsedRange.Select
ThisWorkbook.Sheets(Array("Quote")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:where i save my file_
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Thank you in advance for your time!