Kaydederken sormasın

[domino]

ActiveWorkbook.saveas Filename:="D:\CARİ KARTLAR\" & ActiveSheet.Range("A18")
kaydederken soru sormasın direk kaydetsin istiyorum kodu nasıl değiştirebilirim yardımlarınızı bekliyorum

 

[asi_kral]

Merhaba

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:" & ActiveSheet.Range("A18") & ".xlsm"
Application.DisplayAlerts = True

Bu kodu dener misiniz_?

 

[domino]

çok teşekkürler tamamdır

 

[asi_kral]

çok teşekkürler tamamdır

Kolay Gelsin.