sorduğum sorunun cevabını buldum: herkese teşekkür ederim iyi çalışmalar.
Dim i As Long
Dim klasor, bak, anaklasor_kontrol, altklasor_kontrol, dosya, altdosya_kontrol
Dim ana_klasor As String, alt_dosya As String, dosya_yolu As String
Set klasor = CreateObject("Scripting.FileSystemObject")
ana_klasor = ThisWorkbook.Path & "\DENEME\"
anaklasor_kontrol = klasor.FolderExists(ana_klasor)

If anaklasor_kontrol <> True Then
klasor.CreateFolder ana_klasor
End If

Rapor.Cells(1, 2) = "Denemepdf"
Rapor.Cells(1, 3) = "Deneme"
Rapor.Cells(1, 4) = "ALtKlasörü"
Rapor.Cells(1, 5) = "Bir"

alt_klasor = ana_klasor & Rapor.Cells(1, 3) & "-" & Rapor.Cells(1, 4) & "-" & Rapor.Cells(1, 5)
altklasor_kontrol = klasor.FolderExists(alt_klasor)
alt_dosya = Rapor.Cells(1, 2)
If altklasor_kontrol <> True Then
klasor.CreateFolder alt_klasor


Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook \ alt_klasor & pdfdosya_adı
Else
dosya_yolu = "ThisWorkbook.Path\DENEME\alt_klasor\"
Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & alt_dosya & ".pdf"


End If

(17/12/2022, 22:39)fenerli6774 yazdı: Hepinize iyi çalışmalar. Yaklaşık 4 gün önce bir konu açtım. Fakat bir yardım bulamadım. Bir yanlışımız mı oldu. Yoksa Excel konuları ile ilgilenilmiyor mu? Bir sıkıntı varsa söyleyiniz. Ya ben bir açıklama yaparım. Yada acaba cevap verilmiş mi diye günde 10 defa açıp bakmam. Teşekkür ederim iyi çalışmalar.

Yoksa Excel konuları ile ilgileniyor mudan başlayıp burada hiçbir karşılık beklemeden yardımcı olmaya çalışan insanlara hesap sorar tarza girer, söyleyiniz direktifine kadar giderseniz aldığınız cevap o minvalde olur. Yaklaşık 30 yıldır yazılım sektöründeyim, kendimi bildim bileli bilgisayardayım, hem F hem Q klavyeyi de 10 parmak kullanırım, o yüzden sizin 10 dakika sandığınız yazıyı yazmam 30 saniyemi alıyor.

Günde 10 defa cevap verildi mi diye tek bir sorunuz için açmak size çok zor geliyor biz günde 10 defa açıp 10 farklı sorun çözüyoruz. Konunuzu takibe alırsanız mailinize cevap geldiğinde bildirim gelir o zaman açar bakarsınız çok büyük zahmete girmezsiniz böylece.