"AutoCalculate" macro ile aktif-pasif yapma?

[mith]

Arkadaşlar,
AutoCalculate (F9) özelliğini, menüden aktif yada pasif yapabiliyoruz. Fakat kullandığım dosya icabı AutoCalculate özelliğinin sürekli açık olması lazım. Kullandığım makrolarda var. Makro çalışırken AutoCalculate özelliği açık ise bilg kitlenme noktasına geliyor. İstiyorum ki makronun başlangıç kısmında AutoCalculate özelliği kapalı kalsın, makro sonunda da aktif olsun. Hem forumda hemde nette aradım ama tam sonuca ulaşamadım.
Application.Commondbars("AutoCalculate").Enable=False
kullandım ama işe yaramadı.
Yardımlarınızı bekliyorum..

 

[Mahmut Bayram]

Hesaplamayı el ile yapabilirsiniz. Makrolarınızdan önce aşağıdaki kodu kullanın.
[vb:1:358bc08b05]'kodlarınız
'
With Application
.Calculation = xlManual
End With[/vb:1:358bc08b05]
daha sonra hesaplamayı eski haline getirin
[vb:1:358bc08b05]With Application
.Calculation = xlAutomatic
End With[/vb:1:358bc08b05]
veya el ile hesaplatın
[vb:1:358bc08b05]Calculate[/vb:1:358bc08b05]

 

[mith]

Çok teşekkür ettim, Aradığım şey aynen buydu.. :mutlu:

 

[AS3434]

Peki şöyle bir makro nasıl olur, A sütunundan G sütununa (G hariç) kadar olan hesaplamalar açık , diğer sütunlar Butona basınca hesaplasın. Makro yazmayı bilmediğim yapamıyorum.
Teşekkürler.

 

[Mahmut Bayram]

Sn AS3434, bu dediğinizi tablo ekleyerek yapılabilir. Tabloları ve haricindekileri hesaplatmak mümkün.
"Ara" tın. Tablo ile yapılmış programlar var inceleyin. Tablonuzu oluşturduktan sonra buradan devam ederiz.
Kolay gelsin.

 

[AS3434]

Sn Partner
İlginiz için teşekkür ederim.

 

[Mahmut Bayram]

Sn AS3434, biraz uğraştırdı fakat sonunda çözdüm. Belki yaptınız mı bilemiyorum, fakat tablo oluşturmadan da yapılabiliyor.

[vb:1:9438ade69b]Sub Autpen()
Application.Calculation = xlCalculationManual 'hesaplamayı el ile yapar
Application.OnKey "{F9}", "sec_hesapla" 'F9 tuşuna basınca sec_hesapla makrosunu çalıştırır
End Sub

Sub Auto_Close()
Application.Calculation = xlCalculationAutomatic 'çıkışta otomatik hesaplama yapar.
End Sub

Sub sec_hesapla()
Dim sec 'sec sabiti
sec = Range("A1:A9").Select 'sec sabitinin aralığı tanımlanır ve seçilir (A1:A9 arasında formüllerin olduğunu varsayıorum)
Selection.Calculate 'seçili olan aralık F9 tuşuna basılınca hesaplanır
End Sub[/vb:1:9438ade69b]