willywillis
New Member
- Joined
- Aug 14, 2014
- Messages
- 5
I want to add something like this below:
Startrow = Range("h3").Value
Lastrow = Range("h4").Value
Let Copyrange = "A" & Startrow & ":" & "A" & Lastrow
Range(Copyrange).Select
To the ranges in bold, so they are variables.
ActiveSheet.Range("$C$10:$C$106").AutoFilter Field:=1
ActiveSheet.Range("$C$10:$C$106").AutoFilter Field:=1, Criteria1:="=LIVE", _
Operator:=xlOr, Criteria2:="="
ActiveSheet.PageSetup.PrintArea = "$C$1:$G$99"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:fee schedule.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveSheet.PageSetup.PrintArea = "$C$1:$I$99"
Any help would be appreciated.
Thanks
Startrow = Range("h3").Value
Lastrow = Range("h4").Value
Let Copyrange = "A" & Startrow & ":" & "A" & Lastrow
Range(Copyrange).Select
To the ranges in bold, so they are variables.
ActiveSheet.Range("$C$10:$C$106").AutoFilter Field:=1
ActiveSheet.Range("$C$10:$C$106").AutoFilter Field:=1, Criteria1:="=LIVE", _
Operator:=xlOr, Criteria2:="="
ActiveSheet.PageSetup.PrintArea = "$C$1:$G$99"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:fee schedule.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveSheet.PageSetup.PrintArea = "$C$1:$I$99"
Any help would be appreciated.
Thanks