Sub PDF_Programini_Baslatma()
 
    Dim AdobeApp As String
    Dim AdobeFile As String
    Dim StartAdobe
    
    AdobeApp = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
    AdobeFile = "C:\users\kullanici\desktop\RDS\dosyaAdi.pdf" 'Buraya dosyanın yerini ve adını girin.
    
    StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)
    
    Application.OnTime Now + TimeValue("00:00:05"), "FirstStep"
 
End Sub
Private Sub ikinci_adim()

Bu sadece pdf olarak indirmeye yarar belki işinize yarar ama filitreleyerek istediğin veri alma konusunda bende bir şey diyemem . Yapan olursa kullanırım o kodları takipteyim.

bahsettiğim dosyada verileri Grafik Ekle butonuna basarak Excel dosyasına alıyor ve yazdırmak istediğinizde de zaten ilgili sayfayı yada tümünü pdf olarak kaydedebiliyorsunuz

(19/08/2020, 23:14)berduş yazdı: bahsettiğim dosyada verileri Grafik Ekle butonuna basarak Excel dosyasına alıyor ve yazdırmak istediğinizde de zaten ilgili sayfayı yada tümünü pdf olarak kaydedebiliyorsunuz

Ama Vba program olarak çalışırken Excel arkada açık olarak çalışmaz o nedenle o verileri pdf olarak alamazsınız. Sadece yapılan program üzerinden verileri indirme bilirsiniz. Bu nedenle programa indirme seceneği eklenmeli. Sanırım koyu açan arkadaşta ondan istemiş şuan program bitmemiş bittiğinde Excel şuan açıldığı gibi açılmayacak sadece program açık kalacak.

(19/08/2020, 23:24)ahmet66 yazdı:

(19/08/2020, 23:14)berduş yazdı: bahsettiğim dosyada verileri Grafik Ekle butonuna basarak Excel dosyasına alıyor ve yazdırmak istediğinizde de zaten ilgili sayfayı yada tümünü pdf olarak kaydedebiliyorsunuz

Ama Vba program olarak çalışırken Excel arkada açık olarak çalışmaz o nedenle o verileri pdf olarak alamazsınız. Sadece yapılan program üzerinden verileri indirme bilirsiniz. Bu nedenle programa indirme seceneği eklenmeli. Sanırım koyu açan arkadaşta ondan istemiş şuan program bitmemiş bittiğinde Excel şuan açıldığı gibi açılmayacak sadece program açık kalacak.

Net güzel anatmışsın. Evet konuyu açan arkadaş programı daha bitirmemiş bu nedenle indirme seceneği istemiş. Zaten arkada Excel açık olsa neden verileri indirmek için ayrı bir şey için kod istensin ki. Program bittiğinde sadece program açık kalacak Excel arkada saklı olarak çalışacak.

Evet program bittiğinde ana excelde olan ve çekilen verileri göramez sadece programda olanları göre bilirsiniz. Bu nedenle filitreleme ile indirme seçeneği olması gerek yoksa istediğiniz verileri ayırarak alamazsınız. Kolay gelsin bende bakıyorum bulursam atarım. Ama zor yapa bilmem. Yapan olursa dediğim gibi kullanırım.

pdf yapma kod:
mesela verileriniz barajtablo Excel sayfasında ise bahsettiğim dosyadaki grafikformuna bir buton ekleyip butona aşağıdaki kodu yazıp deneyin

dosyaAdıAdresi = ThisWorkbook.Path & "\PdfYap.pdf"

Sheets("barajtablo").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

    Filename:=dosyaAdıAdresi, _

    Quality:=xlQualityStandard, _

    IncludeDocProperties:=True, _

    IgnorePrintAreas:=False, _

    OpenAfterPublish:=True