sayfaları kaydet ve kapat makrosu

[efturgut]

arkadaşlar hazırlamış olduğum programa sayfaları kaydedip kapatmak için buton eklemek istiyorum.bunu nasıl yapabilirim.

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub kaydet_kapat()
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

 

[efturgut]

sayın uzmanamele teşekkür ederim ilginiz için.peki vermiş olduğunuz kod.bütün çalışma sayfasını kaydedip kapatmak içinmi geçerli.

 

[uzmanamele]

sayın uzmanamele teşekkür ederim ilginiz için.peki vermiş olduğunuz kod.bütün çalışma sayfasını kaydedip kapatmak içinmi geçerli.

merhaba
aktif çalışma kitabı içindir.
excel sayfaları değil kitabı kaydeder.

 

[efturgut]

teşekkür ederim.işime yarayan kod bu.

 

[prtkl]

Kopyala-Farklı Kaydet?

Dialogs(wdDialogFileSaveAs).Show
Document1.Save

Merhabalar,

Bu kod, userformdaki kaydet butonuna bastığımda Farklı kaydet menüsünü açıyor ve dosyayı istediğim yere istediğim adı vererek kaydetmemi sağlıyor.

Ancak bu kaydedilen dosya ana dosyanın bir kopyası oluyor ve açtığımda tüm macrolar onun içinde de oluyor.Yardımınızla Şu şekilde yapmak istiyorum:

Farklı kaydetmeden önce Ana dosyanın içeriğini kopyalayacak ve farklı kaydet e bastığımda bu içeriği boş bir word dosyasına kopyalayıp kaydedecek; böylece yeni oluşturulan dosyada, ana dosyadaki macrolar yer almayacak.