Farklı Kaydet ileti kutusunu çağırmak

[EKREM1661]

Tüm arkadaşlara iyi geceler..!

Arkadaşlar; farklı kaydet diyalog kutusunu makro ile nasıl çağırıyorduk..

 

[uzmanamele]

merhaba
bu mudur?

ActiveWorkbook.SaveAs Filename:=....

 

[EKREM1661]

merhaba..
makroyu bir düğmeye atadığımız da; "Farklı Kaydet" ileti kutusu ekrana gelmesi lazım.. Daha sonra farklı kaydedilecek kitabın adlandırmasını ve kaydedilecek klasör yolunu manuel olarak devam edeceğim.. Ben sadece Farklı Kaydet ileti kutusunu çağırmak istiyorum..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.


1. Alternatif;

Option Explicit
 
Sub FARKLI_KAYDET()
    Application.Dialogs(xlDialogSaveAs).Show
End Sub

2. Alternatif;

Option Explicit
 
Sub FARKLI_KAYDET()
    Application.SendKeys "{F12}"
End Sub

 

[hurkanpisirici]

Peki korhan hocam bunun gibi başka ekranları çağırabilirmiyiz mesela ctrl+h ctrl+f özellikleri gibi.

 

[Korhan Ayhan]

Selamlar,

Hürkan bey,

Kod bloğuna "Application.Dialogs" yazıp parantez açtığınızda zaten karşınıza dialog ekranları ile ilgili seçenekler gelecektir. Siz hangisini görüntülemek istiyorsanız onu yazabilirsiniz.

 

[hurkanpisirici]

Korhan hocam teşekkürler, yine yararlı bir şey öğrenmiş oldum saynizde.Kolay gelsin.