Çalışma Kitabındaki Seçeceğim Sayfanın Formül Hesaplamasını Kapatmak.

[neyzenburak]

Merhabalar,

Bir çalışma kitabım var ve içerisinde 14 adet sayfa var.

Formülleri hesaplaması çok uzun sürdüğü için bazı sayfaları pasife almak istiyorum. Değişiklik yaptığımda o sayfadaki formülleri hesaplamakla vakit kaybetmeyecek.

Şöyle bir formül buldum ancak pek işe yaramadı ;

Sub Kapat()
Worksheets("Sayfa7").Calculation = xlCalculationManual
End Sub

Öneriniz var mıdır?

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız, o sayfa açıldığında hesaplama manuel olur, sayfadan çıkıldığında otomatik olur:

Private Sub Worksheet_Activate()
ActiveSheet.Calculation = xlCalculationManual
End Sub

Private Sub Worksheet_Deactivate()
ActiveSheet.Calculation = xlCalculationAutomatic
End Sub

 

[neyzenburak]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız, o sayfa açıldığında hesaplama manuel olur, sayfadan çıkıldığında otomatik olur:

Private Sub Worksheet_Activate()
ActiveSheet.Calculation = xlCalculationManual
End Sub

Private Sub Worksheet_Deactivate()
ActiveSheet.Calculation = xlCalculationAutomatic
End Sub

Yusuf Bey Merhaba,

Bunu deniyorum işimi görüyor şuanda. Teşekkür ediyorum.

Aynı kodu command buttona tanımlarsam çalışacaktır değil mi? Nerede değişiklik yapmam gerekiyor? Çünkü bazı durumlarda anlık değişimi görmem gerekebiliyor.

 

[YUSUF44]

Commandbutton için sizin kullandığınız kod daha uygun. O kodu şöyle uyarlayabiliriz:

Private Sub CommandButton1_Click()
a = Selection.Address
If Application.Calculation = xlCalculationManual Then
    Application.Calculation = xlCalculationAutomatic
    CommandButton1.Caption = "Hesaplamayı Manuel Yap"
Else
    Application.Calculation = xlCalculationManual
    CommandButton1.Caption = "Hesaplamayı Otomatik Yap"
End If
Range(a).Select
End Sub