Makro kısaltması

[SSAFFAK]

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

 

[Korhan Ayhan]

Döngüleri araştırınız.

Bir arkadaş basit bir şekilde anlatmış...

 

[SSAFFAK]

Korhan hocam merhabalar; bu videoda aynı döngüleri veriyor. Fakat benim istediğim farklı 30 sayfa nın makroyla pdf olarak kaydettirme olayı.

 

[Korhan Ayhan]

İşin özü döngü de..

Video bahane..

 

[SSAFFAK]

Yardımlarınız için teşekkürler

 

[Korhan Ayhan]

Ben yine de döngüyü paylaşayım...

Sub PDF()
Dim X As Byte

For X = 1 To 30
Range("L11") = X
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Westhealth\Desktop\DENEMEE\" & X & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Next
End sub

 

[SSAFFAK]

Korhan Hocam ve Excel Web hocalarım; yardımlarınız için çok teşekkür ederim. Sayenizde hiç excel bilmiyorken ufakta olsa makro çalışmaları yapmaya başladım.
Takıldığım yada işin içinden çıkamadığım zaman başınızı hep ağrıttım. Kusuruma bakmayın. Hakkınızı helal edin.