Yasaklanmış
- Katılım
- 28 Tem 2022
- Mesajlar
- 47
Merhaba
elimdeki kodu bir excel dosyasına uygulayabilecek var mı?
Kod bir excel çalışma kitapçığı tüm sayfa sırası sırası ile tek pdf yapıyor ve aynı zamanda ayrı ayrı sayfaları da ayrı ayrı pdf yapıyor
kayıt yeri: Masaüstü TASLAK klasörü olacak şekilde
kodu paylaşıyorum
Sub KOD_PDF()
Application.ScreenUpdating = False
On Error Resume Next
Yol = Environ("USERPROFILE") & "\Desktop\PDFKLASÖRÜ\"
For i = 2 To Sheets.Count
Sheets(i).Select
isim = [a3]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
Next i
Application.ScreenUpdating = True
End Sub
elimdeki kodu bir excel dosyasına uygulayabilecek var mı?
Kod bir excel çalışma kitapçığı tüm sayfa sırası sırası ile tek pdf yapıyor ve aynı zamanda ayrı ayrı sayfaları da ayrı ayrı pdf yapıyor
kayıt yeri: Masaüstü TASLAK klasörü olacak şekilde
kodu paylaşıyorum
Sub KOD_PDF()
Application.ScreenUpdating = False
On Error Resume Next
Yol = Environ("USERPROFILE") & "\Desktop\PDFKLASÖRÜ\"
For i = 2 To Sheets.Count
Sheets(i).Select
isim = [a3]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
Next i
Application.ScreenUpdating = True
End Sub
