Makro kısaltması

SSAFFAK

Altın Üye
Katılım
10 Aralık 2020
Mesajlar
107
Excel Vers. ve Dili
2016 ingilizce
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,315
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Döngüleri araştırınız.

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

 

SSAFFAK

Altın Üye
Katılım
10 Aralık 2020
Mesajlar
107
Excel Vers. ve Dili
2016 ingilizce
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,315
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
İşin özü döngü de..

Video bahane..
 

SSAFFAK

Altın Üye
Katılım
10 Aralık 2020
Mesajlar
107
Excel Vers. ve Dili
2016 ingilizce
Yardımlarınız için teşekkürler
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,315
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

Altın Üye
Katılım
10 Aralık 2020
Mesajlar
107
Excel Vers. ve Dili
2016 ingilizce
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.
 
Üst