Soru Koşula Göre PDF Yapma

[anemis]

Herkese merhaba;

Bir excel çalışma kitabında, farklı sheetlerde br çok sayfa bulunmakta. Bu excel dosyasındaki sayfaların bazılarında renkli yazılmış hücreler bulunuyor. Bazı sayfalar da tamamen siyah yazılar mevcut.
Şöyle birşey istiyorum.

• Eğer sayfanın içerisinde resim YADA renkli bir hücre dolgusu YADA renkli yazılmış bir değer varsa bu sayfa seçilecek ve renkli olarak PDF yapılacak
• Eğer sayfada hiç resim YADA renkli bir dolgu YADA renkli bir yazı yoksa bu sayfa seçilecek ve siyah olarak PDF yapılacak.

Kısacası 120 sayfalık bir excel dökümanının 1-7-9-11-59-68-71 vs gibi renkli sayfaları tek bir PDF dosyası, kalan sayfaları (renk yada resim olmayan sayfaları) ayrı bir pdf dosyası olarak nasıl kayıt edebilirim?
Şimdiden teşekkür ederim uğraş verip zaman ayıran herkese.

 

[kulomer46]

Merhaba

Fikir vermesi açısından normal bir Excel Dosyasında,
Excel Sayfalarını Ayrı Ayrı PDF yapan ve Excel Dosyasının tamamını tek seferde PDF yapan kodları paylaşıyorum.

Eklenen PDF Dosyaları, Excel dosyasının bulunduğu klasöre atılmaktadır.

Selamlar...

Sub Excel_Sayfalarını_Ayrı_Ayrı_PDF_yap()
For i = 1 To Sheets.Count
    Sheets(i).Select
    Sheets(i).Activate 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ActiveWorkbook.Path & "\" & Sheets(i).Name & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True      
Next

End Sub

Sub Excel_Dosyasını_PDF_yap()
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
     
     
End Sub

 

[anemis]

Sayın @kulomer46
Vakit ayırdığınız için teşekkür ederim. Ekteki örnek dosyayı da bu vesile ile buraya da ekleyeyim.

 

[halit3]

Merhaba
400 'e yakın mesajınız olmuş bu tür sorularda mutlaka örnek dosyanızı ekleyiniz yoksa biri cevap verecek diye bekler durursunuz.
örnek dosyanız ile ilgili üç adet kod yazdım ilk önce sayfada (SAYFALARI LİSTELE) komut dügmesini tıklayın kod AG ve AH sutununa hücre adreslerini ve renk olanları yazmakta daha sonra diğer düğmelere tıklayınız.

not : burada yapılın renkli sayfaları ayrı diğerlerini ayrı pdf dosyası yapılmakta

 

[anemis]

Sayın @halit3 çok teşekkür ederim. Hemen kodları inceliyorum.


EDİT: Sayın @halit3
Sayfaları listele düğmesine bastığım zaman ag hücresinde yazılanları siliyor ve yerine yenilerini yazmıyor. Onun haricinde kod sorunsuz çalışmakta. Bu sorunu da giderebilirsek tam istediğim olacaktır. Tekrar teşekkür ediyorum.
Excel in sınırı yok galiba.

 

[halit3]

Bu dosyada yardımcı sutünlar kullanılmadan yapılmıştır.

 

[anemis]

Bu dosyada yardımcı sutünlar kullanılmadan yapılmıştır.

Halit Bey, sizleri uğraştırıyorum kusura bakmayınız ancak, düğmelere bastığımda yada makroyu çalıştırdığımda sayfa seçilmedi diye hata veriyor. 64 bit office 2019 kullanıyorum acaba ondan mı hata alıyorum?

 

[anemis]

Bu dosyada yardımcı sutünlar kullanılmadan yapılmıştır.

Sayın Halit Bey;

Kodları incelerken Türkçe excel e uygun olarak yazıldığını fark ettim. Formüllerin içerisindeki tanım ayraçları benim pc ayarlarında "," işareti ile yapılıyor. ";" ile değil. Bunu düzeltince kodunuz harika çalıştı çok teşekkür ediyorum.

Elinize, emeğinize, bilginize ve yüreğinize sağlık. Çok çok çok teşekkür ederim size. Allah razı olsun.

 

[halit3]

Teşekkürler iyi çalışmalar