Workbook_SheetChange

Olay yordamı nereye yazılır​

• Adım 1: Alt+F11 tuşlarıyla Visual Basic Düzenleyicisi'ni (VBE) açın.
• Adım 2: Proje Gezgini'nde (Project Explorer) ThisWorkbook öğesine çift tıklayın.
• Adım 3: Kod penceresinin üstündeki sol açılır listeden Workbook, sağ listeden SheetChange seçin. Düzenleyici yordamın iskeletini sizin için yazar.
• Adım 4: Dosyayı makro içerebilen biçimde (.xlsm) kaydedin ve makroların çalışmasına izin verin.

Söz dizimi​

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' Değişiklik olduğunda çalışacak kod
End Sub

• Sh: Değişikliğin yapıldığı sayfayı temsil eder. Türü Object olduğu için Sh.Name ile sayfa adını alıp hangi sayfada çalışacağınızı belirleyebilirsiniz. Zorunludur, siz değer vermezsiniz; Excel gönderir.
• Target: Değişen hücre ya da hücre aralığıdır (Range nesnesi). Birden çok hücre aynı anda değişmişse (yapıştırma, Ctrl+Enter, aralığa değer yazma, silme) olay tek kez çalışır ve Target tüm aralığı gösterir. Zorunludur.

Ne zaman tetiklenir, ne zaman tetiklenmez​

• Yeniden hesaplama: Bir formülün sonucunun değişmesi bu olayı tetiklemez. Bunun için Workbook_SheetCalculate olayı kullanılır.
• Biçim değişiklikleri: Yalnızca renk, yazı tipi ya da sayı biçimi değiştirildiğinde olay oluşmaz.
• Grafik sayfaları: Olay yalnızca çalışma sayfalarındaki hücreler için geçerlidir.
• Olaylar kapalıyken: Application.EnableEvents özelliği False ise hiçbir olay çalışmaz.

Sonsuz döngüyü önleme​

Application.EnableEvents = False
On Error GoTo Cikis
' hücreleri değiştiren kod
Cikis:
Application.EnableEvents = True

1. Stok düşünce durum etiketi yazma​

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim alan As Range
    Dim hucre As Range

    ' Yalnızca Stok Kontrol sayfasını izle
    If Sh.Name <> "Stok Kontrol" Then Exit Sub

    ' Değişiklik B2:B7 dışındaysa çık
    Set alan = Intersect(Target, Sh.Range("B2:B7"))
    If alan Is Nothing Then Exit Sub

    Application.EnableEvents = False
    On Error GoTo Cikis

    For Each hucre In alan.Cells
        If IsNumeric(hucre.Value) And Not IsEmpty(hucre.Value) Then
            If hucre.Value < 10 Then
                hucre.Offset(0, 1).Value = "Kritik"
            Else
                hucre.Offset(0, 1).Value = "Yeterli"
            End If
        End If
    Next hucre

Cikis:
    Application.EnableEvents = True
End Sub

2. Değişiklik notunu Target ile yazma​

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim alan As Range
    Dim not_metni As String

    If Sh.Name <> "Maaş Listesi" Then Exit Sub

    ' Yalnızca B2:B7 aralığındaki değişiklikleri ele al
    Set alan = Intersect(Target, Sh.Range("B2:B7"))
    If alan Is Nothing Then Exit Sub

    not_metni = Sh.Name & " sayfasında " & alan.Address(False, False) & " değişti (" & alan.Cells.Count & " hücre)"

    Application.EnableEvents = False
    On Error GoTo Cikis

    ' Notu, değişen hücrelerin hemen sağındaki hücrelere yaz
    alan.Offset(0, 1).Value = not_metni

Cikis:
    Application.EnableEvents = True
End Sub

3. Girilen metni otomatik temizleme​

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim alan As Range
    Dim hucre As Range

    If Sh.Name <> "Şehir Girişi" Then Exit Sub

    Set alan = Intersect(Target, Sh.Range("A2:A11"))
    If alan Is Nothing Then Exit Sub

    ' Kendi yazdığımız değişiklikler olayı yeniden tetiklemesin
    Application.EnableEvents = False
    On Error GoTo Cikis

    For Each hucre In alan.Cells
        ' Baştaki ve sondaki boşlukları sil
        hucre.Value = Trim(hucre.Value)
        ' Temizlenmiş metnin uzunluğunu yan hücreye yaz
        hucre.Offset(0, 1).Value = Len(hucre.Value)
    Next hucre

Cikis:
    Application.EnableEvents = True
End Sub

Kullanırken dikkat edin​

• Olayları kapatmayı ve açmayı unutmayın: Olay içinde hücre değiştiriyorsanız Application.EnableEvents özelliğini önce False yapın, sonra mutlaka True yapın. Hata durumunda da açılması için On Error GoTo ile bir çıkış etiketi kullanın; aksi halde Excel kapatılıp açılana kadar hiçbir olay çalışmaz.
• Target birden çok hücre olabilir: Yapıştırma, silme, Ctrl+Enter ile doldurma ya da aralığa değer yazma durumunda Target tek hücre değil aralıktır. Target.Value gibi tek hücre varsayan kodlar bu durumda hata verir. Her zaman For Each ile hücreleri tek tek dolaşın ya da Target.Cells.Count değerini denetleyin.
• Alanı sınırlayın: Olay kitaptaki her sayfadaki her değişiklikte çalışır. Gereksiz çalışmayı önlemek için önce Sh.Name ile sayfayı, sonra Intersect ile alanı denetleyin ve ilgisiz değişikliklerde hemen Exit Sub ile çıkın. Büyük kitaplarda bu, yavaşlamayı önler.
• Geri alma (Undo) geçmişi silinir: Olay yordamı içinde VBA ile hücre değiştirmek Excel'in geri alma geçmişini temizler. Kullanıcılar kendi girdilerini Ctrl+Z ile geri alamayabilir; bunu kullanıcılara önceden belirtin.
• Formül sonuçları tetiklemez: Başka bir hücreye bağlı formülün sonucu değiştiğinde bu olay çalışmaz; yalnızca hücrenin kendisine yazılan değer ya da formül sayılır. Hesaplama sonrası işlem gerekiyorsa Workbook_SheetCalculate olayını kullanın.
• Olay çalışmıyorsa: Kodun ThisWorkbook modülünde olduğunu, yordam adının ve parametrelerin birebir doğru yazıldığını, dosyanın .xlsm olarak kaydedildiğini ve makroların etkin olduğunu kontrol edin. Önceki bir hata yüzünden EnableEvents kapalı kalmış olabilir; Hemen Pencere'de bu özelliği yeniden True yaparak deneyin.
• İlgili konular:
  • Worksheet_Change: Tek bir sayfanın kod modülünde çalışan benzer olay.
  • Workbook_SheetSelectionChange: Seçim değiştiğinde çalışan olay.
  • Workbook_SheetCalculate: Sayfa yeniden hesaplandığında çalışan olay.
  • Workbook_Open: Kitap açıldığında çalışan olay.
  • Application.EnableEvents: Olayları açıp kapatan özellik.
  • Intersect: İki aralığın kesişimini veren yöntem.
  • Application.Undo: Son işlemi geri alan yöntem.
  • Range.Address: Aralığın adresini metin olarak veren özellik.
  • Veri > Veri Araçları > Veri Doğrulama (Data > Data Tools > Data Validation): Kod yazmadan girdi denetimi için alternatif.