Excel sayfasını farklı kaydetme Butonu

[Sa.NaL]

Merhaba benim excel uzmanı arkadaşlardan ricam ekte bulunan dosyamda aç diye bir butonum var o userformu açıyor onun içindede çıkış butonum var ona öyle kod yazılsın ki mesela excelden çıkmamızı çıkarkende A sayfasındaki A1 hücresindeki SN33 yazısı A2 hücresindeki 9 yazısı ve A3 hücresindeki 1 yazısı aralarına boşluk 2 tire boşluk yapacak şekilde o excel çalışma kitabını D sürüsünde x klasörünün ( D:/x) içine farklı kaydetsin. Ör/SN33 -- 9 -- 1
Bunu yapmak istmemin amacı olası dökümanın herhangi bir değişikliğe uğramadan uğrayan değişiklikler ile bilgisayarımda farklı bir klasöre kaydetmek.YArdımlarınızı bekler şimdiden tşk ederim

 

[ozgretmen]

Aşağıdaki kodu dener misin ?

Private Sub Çıkış_Click()
On Error Resume Next
ad = [A1].Value & " -- " & [A2].Value & " -- " & [A3].Value
ActiveWorkbook.SaveAs Filename:="D:\" & ad & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

 

[Sa.NaL]

Hocam yine mi siz çok teşekkür ederim Excelden çıkışı yazarsanız mutlu olurum orada kalıyor da

 

[ozgretmen]

Hocam yine mi siz çok teşekkür ederim Excelden çıkışı yazarsanız mutlu olurum orada kalıyor da

Private Sub Çıkış_Click()
Application.DisplayAlerts = False
ad = [A1].Value & " -- " & [A2].Value & " -- " & [A3].Value
ActiveWorkbook.SaveAs Filename:="D:\" & ad & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Unload UserForm1
ActiveWorkbook.Save
Application.Quit
Application.DisplayAlerts = False
End Sub