• DİKKAT

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

hücredeki sayıyı ad olarak kabul ederek pdfye çevirme

Deneyiniz.

PDF dosyaları bu kodu uygulayacağınız dosyanın bulunduğu klasörde oluşacaktır.

Kod:
Sub PDF_Kaydet()
    Dim S1 As Worksheet, Yol As String
    
    Yol = ThisWorkbook.Path & "\"
    
    Set S1 = Sheets("Sayfa1")
    
    S1.Range("T1") = S1.Range("T1") + 1
    
    If S1.Range("T1") > S1.Range("S1") Then
        MsgBox "Kayıt limiti dolmuştur.", vbCritical
        Exit Sub
    End If
    
    ActiveWorkbook.ExportAsFixedFormat xlTypePDF, Yol & S1.Range("T1") & ".pdf", , , , , , False
End Sub
 
teşekkür ederim hayırlı cumalar olsun.
 
Geri
Üst