Farklı Raporları PDF Biçimine Çevirme

Farklı Raporları PDF Biçimine Çevirme

Mehmet2321

Mehmet2321

VIP Üye
Kullanıcı
Katılım
28 Tem 2022
Mesajlar
83
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar;
Elimde bir raporum mevcut ben bu raporumda alt sekmede bulunan (Rapor ve Tamliste) yazan sekmelere iki adet pdf butonu bıraktım ben bu raporları ayrı ayrı olacak şekilde tek tıkla PDF Çevirip Masaüstüne kayıt etmesini istiyorum yardımcı olursanız Çok sevinirim. ilgili dosya ve ilgili ekran görüntüsünü ekliyorum.

Not: Her iki raporada ayrı ayrı butonlar oluşturdum. Bir birinden bağımsız çalışmasını istiyorum mümkümü acaba.
İlk kısım
1. Rapor lar yazan kısım
2. Tamliste Yazan kısım

Ekran Alıntısı.webp
 
Formül Sonuçlarını Parantez İçine Alma
Günlere Göre Saat Farklarını Bulma

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Burhan.cesur' Alıntı:
Aşağıdaki kodu deneyiniz."
Sub ExportToPDF()
Dim ws As Worksheet
Dim filePath As String
Dim fileName As String

' Hedef dosyanın adını ve yolunu belirleyin
filePath = Environ("USERPROFILE") & "\Desktop\"
fileName = "Rapor.pdf" ' veya "Tam Liste.pdf"

' Aktif sayfayı kontrol edin ve PDF olarak kaydedin
If ActiveSheet.Name = "Rapor" Or ActiveSheet.Name = "Tam Liste" Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=filePath & fileName
Else
' Hedef sayfa bulunamadıysa kullanıcıya uyarı verin
MsgBox "Aktif sayfa Rapor veya Tam Liste sayfasına eşit değil!", vbExclamation
End If
End Sub"
Genişletmek için tıklayın ...
Burhan Bey Kodu denedim ama çalışmadı yada ben beceremedim tam bilmiyorum yani olduğunu.?
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt