Soru Option buton ile başka sayfada filtreleme yapma

[NADİR YILDIZ]

KULLANILAN MALZEME sayfasındaki yeşil alanda stok adını option buton ile seçim yaptığımda
MALZEME ALIM sayfasında filtreleme yapılabilir mi ?
Benim aklıma option buton geldi başka bir yöntemi olabilir

iyi çalışmalar

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu "KULLANILAN MALZEME" adlı sayfanın kod sayfasına kopyalayın.
KULLANILAN MALZEME sayfasının E sütunundaki hücrelere herhangi bir şey yazdığınızda (Örneğin: "x" yazabilirsiniz yada dilediğiniz başka bir şey) kodlar çalışır ve filtre gerçekleşir. E sütununu temizlediğinizde filtre kaldırılır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Filtre() As String
    Dim Bak As Range
    ReDim Filtre(0)
  
    If Not Intersect(Range("E9:E" & Rows.Count), Target) Is Nothing Then
        If Target.Text = "" Then
            Worksheets("MALZEME ALIM").ShowAllData
        Else
            For Each Bak In Range("E9:E" & Rows.Count).SpecialCells(xlCellTypeConstants, 23)
                Filtre(UBound(Filtre)) = Cells(Bak.Row, "B")
                ReDim Preserve Filtre(UBound(Filtre) + 1)
            Next
            Worksheets("MALZEME ALIM").Range("AH:AM").AutoFilter Field:=1, Criteria1:=Array(Filtre), Operator:=xlFilterValues
        End If
    End If
End Sub

 

[NADİR YILDIZ]

Üstad teşekkürler
elinize & emeğinize sağlık
iyi çalışmalar

 

[Korhan Ayhan]

Alternatif;

Hücrelere çift tıklayarak veriler filtrelenmektedir. Aynı hücrede ikinci kez çift tıklarsanız ilgili hücredeki değer filtreleme dışı kalır.

Seçimleri Temizle hücresine çift tıklarsanız tüm seçimleriniz temizlenir.

Forumun arşivinde bulunması açısından paylaşıyorum.

 

[NADİR YILDIZ]

Korhan üstad teşekkürler
her zamanki gibi farklı çözüm önerilerinizle yardımcı olmuşsunuz

İyi çalışmalar