Worksheet_SelectionChange

Olay yordamı nereye yazılır​

• Sayfa sekmesinden: Sayfa sekmesine sağ tıklayıp Kodu Görüntüle (View Code) komutunu seçin.
• VBA düzenleyicisinden: Alt+F11 ile düzenleyiciyi açın, Proje Gezgini'nde (Project Explorer) ilgili sayfanın adına çift tıklayın.
• Yordamı seçerek eklemek: Kod penceresinin sol üstündeki listeden Worksheet, sağ üstündeki listeden SelectionChange öğesini seçin. Excel yordamın ilk ve son satırını sizin için yazar.

Söz dizimi​

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Seçim değişince çalışacak kodlar
End Sub

• Target: Yeni seçilen hücre ya da hücre aralığını temsil eden Range nesnesi; zorunludur ve Excel tarafından otomatik verilir. Tek hücre, çok hücreli aralık, tüm satır ya da tüm sütun olabilir.

Ne zaman tetiklenir​

• Target.Address: Seçimin adresini verir.
• Target.Cells.Count / Target.CountLarge: Seçilen hücre sayısını verir. Çok büyük seçimlerde CountLarge güvenlidir.
• Target.Row ve Target.Column: Seçimin ilk satır ve sütun numarasını verir.
• Intersect(Target, Range(...)): Seçimin belirli bir bölgeyle kesişip kesişmediğini denetler; kesişmiyorsa Nothing döner.

1. Seçimin adresini ve hücre sayısını yazma​

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Seçimin adresini C2 hücresine yazar
    Me.Range("C2").Value = Target.Address(False, False)
    ' Seçilen hücre sayısını D2 hücresine yazar
    Me.Range("D2").Value = Target.CountLarge
End Sub

2. Yalnızca belirli sütunda uyarı verme​

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim notHucre As Range
    Dim urun As String

    Set notHucre = Me.Range("D2")
    notHucre.ClearContents

    ' Birden fazla hücre seçildiyse işlem yapma
    If Target.CountLarge > 1 Then Exit Sub
    ' Seçim stok sütununun dışındaysa çık
    If Intersect(Target, Me.Range("B2:B7")) Is Nothing Then Exit Sub
    ' Boş ya da sayısal olmayan hücreleri atla
    If IsEmpty(Target.Value) Then Exit Sub
    If Not IsNumeric(Target.Value) Then Exit Sub

    urun = Me.Cells(Target.Row, 1).Text

    If Target.Value < 20 Then
        notHucre.Value = urun & " için stok kritik"
    Else
        notHucre.Value = urun & " için stok yeterli"
    End If
End Sub

3. Seçilen aralığın toplamını gösterme​

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim bolge As Range

    ' Çok büyük seçimlerde (ör. tüm sütun) hiçbir şey yapma
    If Target.CountLarge > 10000 Then Exit Sub

    ' Seçimin B2:D7 ile kesişen kısmını al
    Set bolge = Intersect(Target, Me.Range("B2:D7"))
    If bolge Is Nothing Then Exit Sub

    ' Kesişen hücrelerin toplamını E2'ye yaz
    Me.Range("E2").Value = Application.WorksheetFunction.Sum(bolge)
End Sub

Kullanırken dikkat edin​

• Yordam yanlış yere yazılırsa çalışmaz: Worksheet_SelectionChange yordamı yalnızca ilgili sayfanın kod modülünde çalışır. Standart modüle ya da başka bir sayfanın modülüne yazılan yordam, adı aynı olsa bile olay olarak tetiklenmez.
• Olay çok sık çalışır: Her seçim değişikliğinde yordam yeniden çalışır. Ağır işlemleri (döngüler, büyük aralık hesapları) bu olaya koymak sayfanın yavaşlamasına yol açar. En başta Intersect ve hücre sayısı denetimleriyle gereksiz çalışmayı engelleyin.
• Tek hücre varsayımı yapmayın: Target birden fazla hücre içerebilir. Çok hücreli bir seçimde Target.Value kullanmak tür uyuşmazlığı hatası verir. Önce Target.CountLarge ile hücre sayısını denetleyin ya da yalnızca Target.Cells(1) hücresiyle çalışın.
• Seçimi kod içinde değiştirirken dikkat: Yordam içinde Select kullanırsanız olay yeniden tetiklenir ve döngüye girebilirsiniz. Bu durumda Application.EnableEvents = False yazıp işiniz bitince True yapın. Hata oluşursa olaylar kapalı kalabilir; bu yüzden hata yakalama bloğunda EnableEvents özelliğini mutlaka yeniden açın.
• Geri Al geçmişi temizlenir: Olay yordamı içinde hücre değerlerini ya da biçimlerini değiştirirseniz Excel'in Geri Al (Undo) geçmişi silinir. Bu davranış, kullanıcının önceki işlemlerini geri almasını engeller; gereksiz yazma işlemlerinden kaçının.
• Korumalı sayfalarda hata alabilirsiniz: Sayfa korumalıysa yordamın yazmaya çalıştığı hücreler kilitliyse çalışma zamanı hatası oluşur. Yazılacak hücreleri kilitsiz yapın ya da sayfayı UserInterfaceOnly:=True seçeneğiyle koruyun.
• İlgili konular:
  • Worksheet_Change: Hücre içeriği değiştiğinde çalışan sayfa olayı.
  • Workbook_SheetSelectionChange: Tüm sayfalar için seçim değişikliğini izleyen çalışma kitabı olayı.
  • Worksheet_Activate: Sayfa etkinleştirildiğinde çalışan olay.
  • Application.EnableEvents: Olayları açıp kapatan özellik.
  • Intersect: İki aralığın kesişimini veren yöntem.
  • Range.CountLarge: Büyük aralıklarda hücre sayısını veren özellik.
  • TOPLA: Seçilen aralığın toplamını bulmak için kullanılan çalışma sayfası işlevi.