Hesaplama Modunu Sayfa Bazında Yapmak

[baydeniro]

Merhaba Arkadaşlar,

Hesaplama modunu bildiğim kadarıyla tüm dosya için Otomatik veya El İle yapılabiliyor. Acaba bu ayarı sayfa sayfa yapmak mümkün müdür ?

Şöyle ki, varsayalım b,r DATA sayfası ve bir de KAYIT sayfası var. DATA sayfasındaki formüller için hesaplama modu "El İle" iken, KAYIT sayfası seçilince hesaplama modu Otomatik oluyor ama DATA sayfası için El İle olarak kalıyor. DATA sayfası seçilince de hesaplama modu Otomatik oluyor ama KAYIT sayfasındaki formüller için hesaplama modu "El İle" durumuna geliyor.

böyle bir uygulama mümkün mü ?

 

[Haluk]

ThisWorkbook modülüne yazılacak kod:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "KAYIT" Then
        Application.Calculation = xlCalculationManual
    Else
        Application.Calculation = xlCalculationAutomatic
    End If
End Sub

.

 

[baydeniro]

ThisWorkbook modülüne yazılacak kod:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "KAYIT" Then
        Application.Calculation = xlCalculationManual
    Else
        Application.Calculation = xlCalculationAutomatic
    End If
End Sub

.

Haluk üstadım kod için çok teşekkür ediyorum. Bu kodu mutlaka kullanacağım. Sanırım aynı anda 2 mod birden mümkün değil. yani DATA sayfasına geçince DATA için Otomatik ama KAYIT için El ile 1

 

[Haluk]

"KAYIT" sayfasına geçince elle, diğer tüm sayfalara geçince otomatik ...

.