bütün hepsi bir arada olsun (farklı kaydet penceresi)

[webasto]

Sub numaratör()
[a1] = [a1] + 1
Sheets("emir").Select
ActiveWorkbook.Save
End Sub

böyle bir formülüm var bunda butona tıklayınca sadece kaydediyor buna ne eklersem farklı kaydet ekranı önüme cıkar tesekkürler ( direk kayıt yerine farklı kaydet olacak )

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub numaratör()
[a1] = [a1] + 1
Sheets("emir").Select
Application.Dialogs(xlDialogSaveAs).Show
End Sub