Farklı Kaydetmede Dosya Yolunu Seçmek

[mustafa1205]

Sheets("Sayfa1").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Mustafa\Desktop\" & Range("A1") & ".xls"
ActiveWindow.Close

Yukarıdaki kodlarda sayfayı masa üzerine hücredeki değeri isim baz alarak kaydetme yapılabiliyor. Kodlarda nasıl bir değişiklik yapmalıyım ki kaydet butonuna bastığımda kaydeceğim yeri ve ismi ben seçebileyim. Umarım anlatabilmişimdir...

 

[cenk e.]

Merhaba, şunu kodlarınıza uyarlayabilirsiniz:

Sub farklıKaydet()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

 

[mustafa1205]

Teşekkür ederim sayın Cenk e. İşimi gördü. Çok sağolun...

 

[cenk e.]

Rica ederim, kolay gelsin.