• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Sayfaları Birleştir ve PDF Yap

  • Konbuyu başlatan Konbuyu başlatan Hsn55
  • Başlangıç tarihi Başlangıç tarihi
H

Hsn55

Katılım
7 Şubat 2021
Mesajlar
594
Excel Vers. ve Dili
2010, Türkiye
İ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
 
Sayın babaof O şekilde zaten yapıyorum. Fakat pratiklik açısından makro ile daha basit ve kullanışlı olacağına inanıyorum.
 
Dosyayı link olarak yükleyebilir misiniz
 
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 www.excel.web.tr
 

Ekli dosyalar

Dosyayı indiremiyorum. Bana link olarak yüklermisiniz?
 
Farklı bir siteye yükler misiniz.Dosy TC gibi
 
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
 
Merhabalar,
1.mesajımdaki konuya destek ve yardımlarınızı bekliyorum.Saygılarımla
 
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.
 
Çözümden sonra düzelteceğim . Korhan bey
 
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 .
Kod:
 
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



Kod: 
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
 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst