Soru Sayfaları Birleştir ve PDF Yap

[Hsn55]

İyi günler ekli örnek dosyada 5 Adet farklı isimlerde sayfam var. Ana sayfa üzerinde de bu isimlerde 5 adet bu sayfaların isminde 5 adet CheckBox var . Benim yapmak istediğim ana sayfada hangi CheckBox seçili ise butona bastığımda bunları birleştirerek masa üstüne ana sayfada C2 hücresindeki isimle bir klasör oluşturacak. Bu klasörün içerisine ise ana sayfada ki C3 hücresindeki isimle dosya oluşturacak. Not: Her bir sayfa daki B8:AS47 hücre aralığı bir sayfa olacak şekilde PDF oluşturulacak. Destek ve yardımıcı olursanız sevinirim

https://dosyam.org/X2t/örnek.xlsx

 

[babaof]

PDF’ten Excell’e online dönüştürme – ÜCRETSİZ, mail adresine gerek yok

Taranmış veya normal PDF dosyalarınızı doğrudan Google Drive, Dropbox ve OneDrive’dan dönüştürün. Tamamen ücretsiz PDT’ten Excel’e dönüştürücümüzü deneyin. Mail adresine gerek yok.

www.pdftoexcel.com

 

[Hsn55]

Sayın babaof O şekilde zaten yapıyorum. Fakat pratiklik açısından makro ile daha basit ve kullanışlı olacağına inanıyorum.

 

[babaof]

dosya yolunu belirleyiniz..

 

[Hsn55]

Dosyayı link olarak yükleyebilir misiniz

 

[babaof]

baska bir dosya attım.

Soru - Sayfaları Birleştir ve PDF Yap

İyi günler ekli örnek dosyada 5 Adet farklı isimlerde sayfam var. Ana sayfa üzerinde de bu isimlerde 5 adet bu sayfaların isminde 5 adet CheckBox var . Benim yapmak istediğim ana sayfada hangi CheckBox seçili ise butona bastığımda bunları birleştirerek masa üstüne ana sayfada C2...

www.excel.web.tr

 

[Hsn55]

Dosyayı indiremiyorum. Bana link olarak yüklermisiniz?

 

[babaof]

https://www.excel.web.tr/attachments/pdf-yapma-xlsm.226523/

 

[Hsn55]

Farklı bir siteye yükler misiniz.Dosy TC gibi

 

[Hsn55]

Merhabalar,

https://www.excel.web.tr/attachments/pdf-yapma-xlsm.226523/

Ekli dosyayı farklı bir siteye yükleyebilir misiniz?

 

[Korhan Ayhan]

Linkten erişebilirsiniz.

Bilgi

Bilgi

dosyam.org

 

[Hsn55]

Korhan beye çok teşekkür ederim. Yalnız sayın babaof un göndermiş olduğu dosya benim 1. mesajdaki talebim den çok uzak. Saygıdeğer hocalarımdan destek bekliyorum .Umarım talebime uygun makro yapılabilir. Beklemekteyim.İyi geceler

 

[Hsn55]

Merhabalar,
1.mesajımdaki konuya destek ve yardımlarınızı bekliyorum.Saygılarımla

 

[Korhan Ayhan]

Eklediğiniz dosyalarda sürekli PUHANTAJ olarak yazdığınızı görüyorum. Doğru yazılış PUANTAJ olmalıdır. Düzeltirseniz sanki daha iyi olacak gibi.

 

[Hsn55]

Teşekkür ederim bilgilendirme için

 

[Hsn55]

Çözümden sonra düzelteceğim . Korhan bey

 

[Korhan Ayhan]

İnceleyiniz.

Sorgu için arama sonuçları: ExportAsFixedFormat

www.excel.web.tr

 

[Hsn55]

Korhan bey sayın Ömer Bey'in yapmış olduğu bir kodu buldum. Bu benim işime yarıyor. Fakat bu kodda makro da anladığım kadarıyla tanımlı 2 sayfayı birleştirip masa üstünde tek bir PDF dosyası oluşturuyor. Oysa ben checkbox karda tik olanları yaptırmak istiyorum. Bu da beni aşıyor .

 

[Hsn55]

Korhan bey sayın Ömer Bey'in yapmış olduğu bir kodu buldum. Bu benim işime yarıyor. Fakat bu kodda makro da anladığım kadarıyla tanımlı 2 sayfayı birleştirip masa üstünde tek bir PDF dosyası oluşturuyor. Oysa ben checkbox karda tik olanları yaptırmak istiyorum. Bu da beni aşıyor

Private Sub CommandButton1_Click()

    Dim syf(), yol As String, deg As String

    syf = Array("KDV1-ÖNYÜZ", "KDV1-ARKAYÜZ")

    Application.ScreenUpdating = False
    yol = ThisWorkbook.Path
    deg = "KDV1_On_Arka_" & Format(Now, "dd-mm-yyyy hh-mm-ss")
   
    Sheets(syf).Select
    ChDir yol
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        yol & "\" & deg & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
   
    Sheets("KDV1-ÖNYÜZ").Select
    MsgBox "Pdf Olarak Kaydedildi.", vbInformation
   
End Sub

 

[Hsn55]

Ayrıca Korhan bey ilgili kod sayfanın tamamını birleştirip tek PDF yapıyor. Oysa ben hücre tanımlı yani B8:AS47 hücre aralığını yaptırmak istiyorum