VBA kodu ile çalışma kitabı açmak ve ismini değiştirmek

[cemilbenek]

Herkese kolay gelsin iyi çalımalar

butona atayacağım kod ile TEKLİFLER klasöründeki EXCELLER klasörünün içine yeni çalışma kitabı açsın ismini'de
TEKLİF çalışma kitabının Teklif sayfasındaki C7 hücresinde yazan isim ile değiştirsin kaydedip kapatsın

şimdiden yardımlarınız için teşekür ederim.

 

[AdemCan]

Merhaba, TEKLİF çalışma kitabında modül içerisinde şu kodları ekleyiniz.
TEKLİF çalışma kitabının bulunduğu konumdaki Teklifler\Exceller klasörüne çalışma kitabı ekler.

Sub test()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim s1 As Worksheet
Set s1 = Sheets("Teklif")

isim = s1.Range("C7")
yol = ThisWorkbook.Path & "\Teklifler\Exceller\"
Workbooks.Add
ActiveWorkbook.SaveAs yol & isim & ".xlsx"
ActiveWorkbook.Close False

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[cemilbenek]

Hocam ilginiz için teşekür ederim
Bu kod dan sonra ilerlemiyor hata veriyor
ActiveWorkbook.SaveAs yol & isim & ".xlsx"

 

[AdemCan]

Test ederek paylaştım ancak yol bilgisini farklı kullanıyor olabilirsiniz.
Hatanın ekran görüntüsünü ekler misiniz?