Çözüldü Makro ile Sectigimiz Raporlari PDF olarak print almak

[maratikkral]

Merhaba Üstadlar

Makro bilgim ileri duzey olmadigindan ve yapilan makrolardan yararlanarak sizlerin sayesinde kendimi gelistiriyorum.

Ornek excelde PWHT REPORT ve HT REPORT da sari ile boyadigim alana Report nuamralarini manuel girip verileri bagli olduklari datadan formulle getirtip Pdf ciktisi aliyorum.

Gunde yaklasik 300-400 arasi rapor basiyoruz.Bunu makro ile rapor numaralarini girdigimizde ornegin 001-010 arasi

raporlarin PDF ciktisini almak istiyorum.Tek tek zaman kaybi olmadan rapor numaralari yazarak makro sayesinde isin hizlandirilmasi konusunda yardimlarinizi bekliyorum.

 

[maratikkral]

Cozumu buldum denedim calisti.
Faydalanmak isteyen arkadaslar icin kod asagidadir.

Sub pdf_print1()
    
 Dim FileName As String
    Dim FilePath As String
    Dim RaparNo1 As Long ' RaparNo1 ve RaparNo2'yi Long türünde tanimlayin
    Dim RaparNo2 As Long
    Dim i As Long
    
    ' Klasör seçme iletisim kutusu göstererek FilePath'i ayarlayin
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Klasör Seçin"
        If .Show <> -1 Then
            MsgBox "Klasör seçilmedi. Makro sonlandiriliyor."
            Exit Sub
        End If
        FilePath = .SelectedItems(1) & "\"
    End With
    
    ' Degerleri Long türüne dönüstür
    RaparNo1 = CLng(Range("Q2").Value)
    RaparNo2 = CLng(Range("Q3").Value)
    
    ' Döngüyü yap
    For i = RaparNo1 To RaparNo2
        Range("I3").Value = "NFE1-TFN-PIP-PWHT-" & i
        
        ' PDF'leri kaydetme islemi
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FilePath & "NFE1-TFN-PIP-PWHT-" & i & ".pdf", Quality:=xlQualityStandard
    Next i
    
    ' Islem tamamlandi mesaji
    MsgBox "PDF dosyalari basariyla kaydedildi."
   
End Sub