Çözüldü Masaüstü Klasör Oluşturma ve Pdf Kaydetme

Path = ThisWorkbook.Path yazan kısmı
Path="C:\Users\bilgisayarınadı\Masaüstü\Yeni klasör" şekline getirin

Adnan' Alıntı:

Path = ThisWorkbook.Path yazan kısmı
Path="C:\Users\bilgisayarınadı\Masaüstü\Yeni klasör" şekline getirin

Genişletmek için tıkla...

Adnan Bey cevabınız için teşekkür ederim. Fakat klasör oluşturmada sıkıntı yaşamıyorum. Pdflerimi oluşturduğum klasörün içerisine otomatik kaydedemiyorum.
Klasör açmasını
Sub dosya_olustur()

Path = ThisWorkbook.Path
For i = 1 To 2
MkDir Path & "\Girisler\" & range("A" & i)
Next
End Sub

bu şekilde sorunsuz dinamik şekilde A hücresine yazılan şekilde isimle açıyorum. Fakat pdfleri açılacak her farklı isimde klasör içerisine kaydedemiyorum

Ufak bir düzeltme:
Sayın himmgarip Hocamın kodlarına ufak bir iki ekleme yaptım.
Module 4 içeriğini şu şekilde değiştirin.

Sub isegiriskaydet()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
Hazırlanan = Worksheets("BİLGİ").Range("D4").Value
Path = ds.CreateFolder(Worksheets("Ayarlar").Range("B1").Value & "\" & Hazırlanan) & "\"

Worksheets("A1").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A1" & ".pdf"
Worksheets("A2").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A2" & ".pdf"
Worksheets("A3").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A3" & ".pdf"
Worksheets("A4").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A4" & ".pdf"
Worksheets("A5").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A5" & ".pdf"
Worksheets("A6").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A6" & ".pdf"
End Sub


Ayrıca Masaüstü klasörünü şu kodla elde edebilirsiniz.
mst = environ("userprofile") & "\Desktop"

himmgarip' Alıntı:

Pdf makrosunu aşağıdaki gibi değiştiriniz.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

Hocam çok teşekkür ederim. Halloldu sorunum çözüldü Allah razı olsun sizden.