tek düğme ile dosyalarım kaydolup kapansın

[ah_excel_ah]

bütün arkadaşlara selamlar

bu forma yeni katıldım ama yaptığım en hayırlı iş buymuş :hihoho:
birçok arkadaş gibi excel'in acemisiyim ama azmettim bu programı öğreneceğim.

dostlarım 2 gündür uğraşıp yapamadığım bir şey var
birbirine bağlantılı birçok dosyam var ve hepsi "ana menü" isimli dosyama bağlı
yapmaya çalıştığım "anamenü" dosyasının içine "programı kapat" diye bir düğme koyup açık olan bütün excel dosyalarını kaydedip kapatmasını istiyorum. acaba böyle birşey mümkünmüdür. Eğer mümkünse bilen arkadaşlardan yardım bekliyorum. sonsuz teşekkürler

 

[Metin Karaağaç]

Sub kaydet_kapat()
For Each w In Application.Workbooks
    w.Save
Next w
Application.Quit
End Sub

 

[ah_excel_ah]

tşk

Acemi.. size ne kadar teşekkür etsem yetmez . sayenizde yeni birşey daha öğrendim cevabın bu kadar çabuk geleceğinide hiç tahmin etmezdim tekrar teşekkürler hayırlı geceler....:hey:

 

[Metin Karaağaç]

Rica ederim.
Size de iyi geceler..

 

[Excelmen]

Kopyala-simge durumuna kücült

Selamlar
Öncelikle sayin Acemi1 tesekkürler.Böyle :kopyala-simge durumuna kücült butonun kodlari nedir?Fakat simge durumuna kültürken komple sayfa kücülecek yani baslat menüsünün oldugu yere inecek.Bunu nasil yaparim?
Saygilar!

 

[seismic]

işte bunlar

Application.WindowState = xlMinimized 'simge durumuna küçült
Application.WindowState = xlNormal 'normal durumuna getir

 

[Excelmen]

Application.WindowState = xlMinimized 'simge durumuna küçült
Application.WindowState = xlNormal 'normal durumuna getir

Sayin seismic ,
Eline saglik,tesekkürler.

 

[seismic]

Hehehe

Rica ederim ama bende pek fazla şey bilmiyorum makrolar ile ilgili.Bu site sayesinde birşeyler öğrenmeye çalışıyorum işte

 

[Excelmen]

Kizmazsaniz bir soru daha

Selamlar
Sadece kapat butonu yapmak icin hangi kodu yazmam gerek.Yani kayit etmeden kapatsin istiyorum.

 

[mustafa155]

Selamlar
Sadece kapat butonu yapmak icin hangi kodu yazmam gerek.Yani kayit etmeden kapatsin istiyorum.

hocam sanırım. ThisWorkBook.Close olması lazım

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
Application.Quit
ActiveWorkbook.Close Save = 1
End Sub

 

[eyboli]

Harika

gerçekten güzel birşey teşekkür ederim