Pdf kayıt yeri

[sinnernekolens]

Merhabalar aşağıdaki koda pdf yi kayıt edeceği yeri ekleyebilir miyiz.
örnek: "C:\Users\Sinnernekolens\Desktop\" konumuna kaydetmesini sağlayabilir miyiz.
Herkese iyi akşamlar,

Private Sub CommandButton6_Click() 'PDF YE ÇEVİR
Yol = ThisWorkbook.Path
isim = Format(Sheets("PDA").Range("G1") & ".pdf")

'Sheets("PDA").Select
Sheets("PDA").Range("A1:G62").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True

MsgBox "Hesap Tablosunun Bulunduğu Sayfaya Kaydedilmiştir.", vbInformation, "P D F"

Dim Adres
Adres = ThisWorkbook.Path
If Adres <> "" Then
CreateObject("Shell.Application").Open (Adres)
End If

End Sub

 

[Korhan Ayhan]

Kodun içindeki YOL ile başlayan satırı silin ve aşağıdaki satırı yazın.

Yol = "C:\Users\Sinnernekolens\Desktop\"