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

[karakaçan]

Bir hücrenin değerini 1 artırarak den başlamak suretiyle adı sırasıyla 1 , 2 , 3 …..... olan pdf dosyası oluşturmak istiyorum yardımcı olur musunuz? link

https://dosya.co/6a0ewjj8lve5/Yeni_Microsoft_Office_Excel_Çalışma_Sayfası_(3).xlsx.html

 

[Korhan Ayhan]

Deneyiniz.

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

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

 

[karakaçan]

teşekkür ederim hayırlı cumalar olsun.