Seçilen Hücredeki Verileri Süzmek

[ataniyazi]

Arkadaşlar Merhabalar;

SQL Server da bulunan bi özellik vardı acaba onu excel tablolarına uygulamak mümkün mü? Herhangi bir hücrenin üzerinde sağ tıklama yapınca "Ayıkla" diye bir menü (Norma sağ tuş menüsüne ek olarak) çıksa onu seçince o sütündaki seçtiğimiz hücredeki verileri süzen bi makro yazılabilir mi? Çok büyük tablolarda bu süzme işlemi aradığımız veriye ulaşmada büyük kolaylık sağlıyor. Teşekkür ederim.

 

[Kemal Demir]

Örnek Bir dosya Yollayabilirmisiniz.

 

[ataniyazi]

Dosyayı Ekledim

Dosya Ektedir. Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızdaki sayfanın kod bölümüne aşağıdaki kodu uygulayınız. Herhangi bir hücrede çift tıklama yaptığınızda aktif hücredeki veriye filtre uygulanacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Row = 1 Then
    Cancel = True
    Exit Sub
    End If
    Cancel = True
    Selection.AutoFilter ' Bu satırı silerseniz ilk süzme iptal edilmez.
    X = ActiveCell
    Y = ActiveCell.Column
    Cells(1, Y).AutoFilter Field:=Y, Criteria1:=X
    Range("A1").Select
End Sub

 

[ataniyazi]

Çözümünüz çok güzel Sn Cost Control yanlız bir şey daha rica edecem müsadenizle. bir kere süzdürdükten sonra ikinci defa süzdürürken eski süzmeyi iptal etmese bir kaç defa birlikte süzme yaptırabilir miyiz?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki koda silinecek satırı belirttim. Buna göre kendinizdeki kodu düzeltiniz.

 

[Recep İpek]

Sn.COST CONTROL,

Bu kodlara süzmeyi iptal etmek içinde bir kod ekleyebilirmiyiz?

 

[ataniyazi]

Çok Sağolun Sayın Cost Control çözüm için teşekkür ederim.

 

[Recep İpek]

Aşağıdaki ilave ile surunu çözdüm..Kodlarınız için teşekkürler..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If ActiveCell.Row = 1 Then
    ActiveSheet.ShowAllData
    Selection.AutoFilter
    Exit Sub
    End If
    Cancel = True
    'Selection.AutoFilter ' Bu satırı silerseniz ilk süzme iptal edilmez.
    X = ActiveCell
    Y = ActiveCell.Column
    Cells(1, Y).AutoFilter Field:=Y, Criteria1:=X
    Range("A1").Select
End Sub

 

[orrhankaya]

Sayın, COST CONTROL
Kodunuzu denedim. İşlerimi çok pratikleştirecek.
Ancak Ondalıklı sayıları filtreleyemiyor.
Para tutarlarında sıkça ihtiyaç duyabiliriz.