Excel Yavaşlama Sorunu

[uygaroz]

Excel de yaklasık 53 sütünda işlem yapıyorum. nerdeyse 40 tane hücrede formül var,
ve veri girişi yapıldığında tüm formülleri hesapladığı için excel baya yavaşladı.

Forumda incelediğim kadarıyla, en kolay çözümler
a. kullanılmayan hücrelerden formülleri silmek
b. hesaplamaları manuele cevirip veri girişi bittikten sonra "F9" tuşuna basmak.

Bu çözüm yerine mesela;
"Z" sütünuna veri girilmeden geri kalan tüm hesaplamaları durdurmak,
ancak Z sütünundaki hücreye veri girildiğinde diğer hesaplamaları yaptırmak mümkün olabilir mi?
Teşekkürler.
Uygar

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına;

Private Sub Workbook_Open()
     Application.Calculation = xlManual
End Sub
''
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.Calculation = xlAutomatic
End Sub

Çalıştığınız sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
 
    With Application
        If Split(Target.Address(1, 0), "$")(0) = "Z" Then
            .Calculation = xlAutomatic
        Else
            .Calculation = xlManual
        End If
    End With
 
End Sub

 

[uygaroz]

Ömer Bey
yardımınız ve emeğiniz çok teşekkür ederim.
hemen deniyorum.
Selamlarımla
Uygar