SSAFFAK
Altın Üye
- Katılım
- 10 Aralık 2020
- Mesajlar
- 107
- Excel Vers. ve Dili
- 2016 ingilizce
- Altın Üyelik Bitiş Tarihi
- 12-12-2027
Merhabalar şöyle bir makrom var bu liste 30 a kadar gidiyor fakat makro dizisi baya büyüyor. Bu makronun daha kısa yolu varmıdır acaba?
Sub PDF()
'
' PDF Makro
'
'
Range("L11").Select
ActiveCell.FormulaR1C1 = "1"
Range("D6:K6").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Westhealth\Desktop\DENEMEE\1.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("L11").Select
ActiveCell.FormulaR1C1 = "2"
Range("D6:K6").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Westhealth\Desktop\DENEMEE\2.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("L11").Select
ActiveCell.FormulaR1C1 = "3"
Range("D6:K6").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Westhealth\Desktop\DENEMEE\3.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("L11").Select
ActiveCell.FormulaR1C1 = "4"
Range("D6:K6").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Westhealth\Desktop\DENEMEE\4.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sub PDF()
'
' PDF Makro
'
'
Range("L11").Select
ActiveCell.FormulaR1C1 = "1"
Range("D6:K6").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Westhealth\Desktop\DENEMEE\1.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("L11").Select
ActiveCell.FormulaR1C1 = "2"
Range("D6:K6").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Westhealth\Desktop\DENEMEE\2.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("L11").Select
ActiveCell.FormulaR1C1 = "3"
Range("D6:K6").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Westhealth\Desktop\DENEMEE\3.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("L11").Select
ActiveCell.FormulaR1C1 = "4"
Range("D6:K6").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Westhealth\Desktop\DENEMEE\4.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True