Her gün hazırladığınız raporu "Dosya > Farklı Kaydet > PDF" adımlarıyla kaydetmek zaman kaybıdır. Bunu bir makro butonuna atayalım.
Örnek Kod
Sub PDFYap()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Raporlar\Satis_" & Date & ".pdf", _
Quality:=xlQualityStandard
MsgBox "PDF Masaüstüne Kaydedildi"
End Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Raporlar\Satis_" & Date & ".pdf", _
Quality:=xlQualityStandard
MsgBox "PDF Masaüstüne Kaydedildi"
End Sub
Açıklama: Bu kod, aktif sayfayı alır, ismine bugünün tarihini ekler (Satis_19.01.2026.pdf gibi) ve belirtilen klasöre saniyeler içinde kaydeder.
Yorum Yap