Path Not Fount Hatası

[kadir78]

İyi günler. Aşağıdaki makro kodlarında "fath not fount" uyarısı alıyorum. Kırmızı ile işaretlediğim yerde hata veriyor. Çözümü için yardımcı olur musunuz.

Sub Yedekle()
    
    newFileFullName = ActiveWorkbook.Name

    Application.ScreenUpdating = False
    DN1 = Sheets("Bilgiler").Range("B5")
    DN2 = Sheets("Bilgiler").Range("B3")
    DN3 = Sheets("Bilgiler").Range("B7")
    DN4 = Sheets("Bilgiler").Range("B8")
    DN5 = Sheets("Bilgiler").Range("D3")
    DN6 = Sheets("Bilgiler").Range("F3")
    DN7 = Sheets("Bilgiler").Range("E13")
    DN8 = Sheets("Bilgiler").Range("E15")
     
    
    [COLOR="Red"]yol = "D:\Yedekler " & " \ " & DN7 & " \ " & DN8[/COLOR]
    If Dir(yol, vbDirectory) = "" Then MkDir (yol)
      
    
    Sheets(Array("1.Sayfa", "2.Sayfa")).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs yol & "\" & DN1 & "-" & DN2 & "-" & DN5 & "-" & DN6 & "-" & DN3 & "-" & DN4 & ".xlsx"
    
    
    ActiveWorkbook.Close 0
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    MsgBox ("KOPYALAMA İŞLEMİ TAMAMLANDI"), vbInformation
    
    Application.DisplayAlerts = False
    Application.Quit
      
End Sub

 

[Necdet]

Merhaba,

Birleştirmelerde araya boşluk karakteri eklemişsiniz. Onları kaldırıp deneyin, yani :
yol = "D:\Yedekler" & "\" & DN7 & "\" & DN8

gibi.

 

[kadir78]

Çok teşekkür ederim. Gözümden kaçmış.