Hücreye tıklayınca süz.

[Muhammet Okumuş]

Arkadaşlar merhaba.
Dosyada A sütununda bulunan alan adına tıkladığımda E sütununa göre süzme işlemi yapmasını istiyorum. Yardımlarınızı bekliyorum.

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfanın kod bölümüne:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
iki = Selection
Sheets("ALAN ADI A-N").Range("B1:E65536").AutoFilter Field:=4, Criteria1:=iki
End Sub

Boş bir modüle:

Sub KOD_İKİ()
    ActiveSheet.ShowAllData
End Sub

Tekrar bütün verileri F1 tuşu ile görünür yapmak için Thisworkbook bölüme:

Private Sub Workbook_Activate()
    Application.OnKey "{F1}", "KOD_İKİ"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{F1}", ""
End Sub

. . .

 

[Muhammet Okumuş]

Sn huseyincoban cevaplarınız için çok teşekkür ederim. İyi çalışmalar.