Worksheet_Calculate

Olay yordamı nereye yazılır​

• 1. Adım: Alt+F11 tuşlarıyla Visual Basic Düzenleyicisi'ni (VBE) açın.
• 2. Adım: Proje Gezgini'nde (Project Explorer) ilgili sayfaya (ör. Sayfa1) çift tıklayın.
• 3. Adım: Kod penceresinin sol üstündeki listeden Worksheet, sağ üstteki listeden Calculate seçeneğini seçin. VBE boş yordam iskeletini kendisi oluşturur.

Söz dizimi​

Private Sub Worksheet_Calculate()
    ' Hesaplama sonrası yapılacak işlemler
End Sub

• Parametre: Bu olayın bağımsız değişkeni yoktur. Worksheet_Change olayındaki Target gibi bir değişen hücre bilgisi gelmez.
• Me: Sayfa modülünde Me, olayın bağlı olduğu çalışma sayfasını temsil eder; hücrelere Me.Range ile başvurmak kodu güvenli kılar.
• Dönüş değeri: Yoktur; olay yordamı bir Sub olarak yazılır ve adı değiştirilmemelidir.

Olay ne zaman tetiklenir​

• Change olayından farkı: Worksheet_Change hücreye sabit değer girildiğinde, Worksheet_Calculate ise formüller yeniden hesaplandığında çalışır. Girdiğiniz değer hiçbir formülü etkilemiyorsa Calculate tetiklenmeyebilir.
• Uçucu işlevler: ŞİMDİ, RASTGELEARALIK, DOLAYLI ve KAYDIR gibi uçucu işlevler her hesaplamada yeniden çalıştığı için olayı çok sık tetikleyebilir.
• Manuel hesaplama: Hesaplama modu elle ise olay, siz hesaplamayı başlatana kadar çalışmaz.
• Application.EnableEvents: Bu özellik False iken olaylar çalışmaz.

Sonsuz döngüden kaçınma​

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    ' Formülleri etkileyebilecek yazma işlemleri
    Application.EnableEvents = True
End Sub

1. Toplam limitini aşınca uyarı yazdırma​

Option Explicit

' Bu kod Satış Kontrol sayfasının kod modülüne yazılır
Private Sub Worksheet_Calculate()
    ' Toplam hücresi hesaplandıktan sonra limit kontrolü yapılır
    If Me.Range("D7").Value > 5000 Then
        Me.Range("E7").Value = "Limit aşıldı"
    Else
        Me.Range("E7").Value = "Normal"
    End If
End Sub

2. Önceki değerle karşılaştırıp yalnızca değişimde işlem yapma​

Option Explicit

' Bu kod Stok Takip sayfasının kod modülüne yazılır
Private Sub Worksheet_Calculate()
    ' Static değişken, yordam bittikten sonra da değerini korur
    Static oncekiKritik As Long
    Dim kritik As Long

    ' Durum sütununda Sipariş ver yazan satırlar sayılır
    kritik = Application.WorksheetFunction.CountIf(Me.Range("D2:D8"), "Sipariş ver")

    ' Yalnızca sayı değiştiyse sonuç yazılır
    If kritik <> oncekiKritik Then
        Me.Range("E2").Value = kritik
        Me.Range("F2").Value = "Kritik ürün sayısı değişti"
        oncekiKritik = kritik
    End If
End Sub

3. Hedef gerçekleşmesine göre durum yazma ve renklendirme​

Option Explicit

' Bu kod Hedef Takip sayfasının kod modülüne yazılır
Private Sub Worksheet_Calculate()
    Dim hucre As Range

    ' Gerçekleşme oranı sütunundaki her hücre sırayla denetlenir
    For Each hucre In Me.Range("D2:D7")
        If IsError(hucre.Value) Then
            ' Formül hata veriyorsa karşılaştırma yapılmaz
            hucre.Offset(0, 1).Value = "Hata"
        ElseIf hucre.Value >= 1 Then
            hucre.Offset(0, 1).Value = "Hedef tamam"
            hucre.Offset(0, 1).Interior.Color = RGB(198, 239, 206)
        Else
            hucre.Offset(0, 1).Value = "Eksik"
            hucre.Offset(0, 1).Interior.Color = RGB(255, 199, 206)
        End If
    Next hucre
End Sub

Kullanırken dikkat edin​

• Hangi hücrenin değiştiği bilinmez: Worksheet_Calculate olayı parametre almaz. Hangi hücrenin değiştiğini öğrenmeniz gerekiyorsa bu değişimi kendiniz izlemelisiniz; örneğin önceki değerleri Static değişkenlerde ya da gizli bir alanda saklayıp yeni değerlerle karşılaştırın.
• Olayın çok sık çalışabileceğini unutmayın: Sayfada uçucu işlevler (ŞİMDİ, BUGÜN, RASTGELEARALIK, DOLAYLI, KAYDIR) varsa olay her hesaplamada tetiklenir. Ağır işlemleri olay içine yazmayın; önce bir koşul denetimi yapın ve yalnızca gerektiğinde işlem yürütün.
• Hücreye yazarken sonsuz döngüye dikkat edin: Olay içinde formül dayanağı olan bir hücreye yazarsanız yeni bir hesaplama doğar ve olay tekrar çalışır. Yalnızca sabit sonuç hücrelerine yazın ya da Application.EnableEvents özelliğini geçici olarak False yapın; işiniz bitince mutlaka True değerine döndürün.
• Hata değerlerini denetleyin: Başvurduğunuz hücre #BÖL/0! gibi bir hata değeri taşıyorsa karşılaştırma satırı çalışma zamanı hatası verir. Bu nedenle değeri okumadan önce IsError işleviyle denetleyin.
• Kodun yeri ve makro güvenliği: Yordam standart modüle yazılırsa hiçbir zaman otomatik çalışmaz; ilgili sayfanın kod modülünde olmalıdır. Dosyayı Excel Makro Etkin Çalışma Kitabı (*.xlsm) olarak kaydedin ve makroların etkinleştirildiğinden emin olun; aksi halde olay tetiklenmez.
• Excel Online ve diğer ortamlar: VBA olayları yalnızca masaüstü Excel'de çalışır. Excel Online gibi ortamlarda makrolar ve bu olay çalışmaz.
• İlgili konular:
  • Worksheet_Change: Hücreye sabit değer girildiğinde çalışan olay.
  • Worksheet_SelectionChange: Seçim değiştiğinde çalışan olay.
  • Workbook_SheetCalculate: Çalışma kitabındaki tüm sayfalar için hesaplama olayı.
  • Application.EnableEvents: Olayların çalışmasını açıp kapatan özellik.
  • Application.Calculation: Hesaplama modunu (otomatik ya da elle) belirleyen özellik.
  • Calculate yöntemi: Koddan hesaplamayı başlatır ve olayı tetikler.
  • Static deyimi: Değişkenin değerini yordamlar arasında korur.
  • EĞER, EĞERSAY, TOPLA: Örneklerdeki durum ve sayım hesaplarında kullanılan işlevler.
  • ŞİMDİ ve RASTGELEARALIK: Olayı sık tetikleyen uçucu işlevler.