Workbook_SheetSelectionChange

Olay yordamı nereye yazılır​

• Adım 1: Alt+F11 tuşlarıyla Visual Basic Düzenleyicisi'ni açın.
• Adım 2: Proje Gezgini'nde (Project Explorer) ilgili kitabın altındaki ThisWorkbook öğesine çift tıklayın.
• Adım 3: Kod penceresinin üstündeki sol açılır listeden Workbook, sağ listeden SheetSelectionChange seçin. Excel yordamın ilk ve son satırını kendisi yazar.

Söz dizimi​

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' Kodunuz buraya
End Sub

• Sh: Seçimin değiştiği sayfayı temsil eden nesnedir (Object); zorunludur. Sayfa adına Sh.Name ile, hücrelerine Sh.Range ve Sh.Cells ile ulaşırsınız.
• Target: Yeni seçilen hücre ya da aralıktır (Range); zorunludur. Tek hücre seçildiyse tek hücreli, bloğu seçildiyse çok hücreli bir aralık gelir.

Ne zaman tetiklenir, nelere dikkat edilir​

• Sonsuz döngü riski: Yordamın içinde Select ile yeni bir seçim yaparsanız olay yeniden tetiklenir. Bunu önlemek için seçimi değiştirmeden önce Application.EnableEvents = False yazın, sonra mutlaka True yapın.
• Değer yazmak seçimi değiştirmez: Hücrelere Value yazmak bu olayı tetiklemez; ancak Worksheet_Change ve Workbook_SheetChange olaylarını tetikleyebilir.
• Sık çalışır: Her ok tuşu basışında olay çalıştığı için kodunuzu kısa ve hızlı tutun; ilk satırlarda Sh.Name ve Target ile gereksiz çalışmayı erkenden bitirin.

1. Seçilen adresi ve hücre sayısını yazdırma​

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' Yalnızca Stok Takip sayfasında çalış
    If Sh.Name <> "Stok Takip" Then Exit Sub

    ' Seçilen adresi $ işaretleri olmadan yaz
    Sh.Range("D2").Value = Target.Address(False, False)

    ' Seçilen hücre sayısını yaz
    Sh.Range("E2").Value = Target.Cells.Count
End Sub

2. Seçilen personelin satırını işaretleme​

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' Yalnızca Personel Listesi sayfasında çalış
    If Sh.Name <> "Personel Listesi" Then Exit Sub

    ' Birden çok hücre seçildiyse işlem yapma
    If Target.Cells.Count > 1 Then Exit Sub

    ' Seçim veri alanı (A2:D9) dışındaysa işlem yapma
    If Intersect(Target, Sh.Range("A2:D9")) Is Nothing Then Exit Sub

    ' Önceki işaretleri temizle
    Sh.Range("E2:E9").ClearContents

    ' Seçili satırın E hücresine personel adını yaz
    Sh.Cells(Target.Row, "E").Value = "Seçili: " & Sh.Cells(Target.Row, "A").Value
End Sub

3. EnableEvents ile seçimi yönlendirme​

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' Yalnızca Fiyat Listesi sayfasında çalış
    If Sh.Name <> "Fiyat Listesi" Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub

    ' A sütunundaki ürün adı seçilirse fiyat hücresine geç
    If Target.Column = 1 And Target.Row > 1 Then
        On Error GoTo Cikis
        Application.EnableEvents = False
        Target.Offset(0, 1).Select
        Sh.Range("D2").Value = Target.Address(False, False) & " -> " & Target.Offset(0, 1).Address(False, False)
    End If

Cikis:
    ' Olaylar her durumda yeniden açılır
    Application.EnableEvents = True
End Sub

Kullanırken dikkat edin​

• EnableEvents'i mutlaka geri açın: Application.EnableEvents özelliğini False yaptıktan sonra True'ya döndürmeyi unutursanız Excel hiçbir olayı çalıştırmaz; kod yazmış olsanız bile olaylar sessizce devre dışı kalır. Hata ihtimaline karşı On Error ile etiketli bir çıkış kullanın. Sorun yaşarsanız Doğrudan Çalışma Penceresi'ne (Immediate Window) Application.EnableEvents = True yazarak durumu düzeltebilirsiniz.
• Yanlış modüle yazmak: Yordam ThisWorkbook dışındaki bir modüle yazılırsa çalışmaz. Yordamın adı ve parametreleri de birebir doğru olmalıdır. En güvenli yol, kod penceresindeki açılır listelerden olayı seçmektir.
• Sayfa düzeyi olayla birlikte çalışır: Aynı sayfada Worksheet_SelectionChange yordamı da varsa ikisi de çalışır. Aynı hücrelere yazan iki yordam birbirini ezebilir; görevleri bölüştürmeye özen gösterin.
• Grafik sayfaları ve Geri Al: Olay yalnızca çalışma sayfalarında tetiklenir, grafik sayfalarında tetiklenmez. Ayrıca olay içinden hücreye değer yazan ya da biçimlendiren kodlar Excel'in Geri Al (Undo) yığınını temizler; bu yüzden kullanıcı yapılan işlemleri geri alamayabilir.
• Çoklu seçimi ve performansı düşünün: Target tek hücre olmayabilir; Ctrl ile yapılan çoklu seçimlerde Target.Cells.Count ve Target.Areas.Count değerlerini denetleyin. Olay her seçimde çalıştığı için ağır döngüler, büyük aralık işlemleri ve ekran yenileme gerektiren kodlardan kaçının.
• Makroların açık olması gerekir: Dosya .xlsx olarak kaydedilirse kod saklanmaz; makro içeren çalışma kitabı olarak .xlsm biçiminde kaydedin. Makrolar devre dışıysa olay hiç çalışmaz.
• İlgili konular:
  • Worksheet_SelectionChange: Tek bir sayfanın seçim değişikliği olayı.
  • Workbook_SheetChange: Herhangi bir sayfada hücre değeri değiştiğinde çalışan olay.
  • Workbook_SheetActivate: Bir sayfa etkinleştirildiğinde çalışan olay.
  • Workbook_SheetBeforeDoubleClick: Çift tıklamadan önce çalışan kitap olayı.
  • Application.EnableEvents: Olayların çalışmasını açıp kapatan özellik.
  • Intersect: İki aralığın kesişimini bulan yöntem.
  • Range.Select ve Range.Offset: Hücre seçme ve kaydırma işlemleri.
  • ThisWorkbook: Kod içeren kitabı temsil eden nesne.