filtreleme talebi

[cuneytturkoglu]

Merhaba seçilen bayi nin alt bölümde filtrelemesini istiyorum. bana yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.

Sayfa1'in kod sayfasına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2")) Is Nothing Then Exit Sub
    Range("$A$5:$L$24").AutoFilter Field:=1, Criteria1:=Range("C2").Value
End Sub

 

[cuneytturkoglu]

Merhaba.

Sayfa1'in kod sayfasına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2")) Is Nothing Then Exit Sub
    Range("$A$5:$L$24").AutoFilter Field:=1, Criteria1:=Range("C2").Value
End Sub

Çalıştıramadım yardımcı olabilir misiniz

 

[Muzaffer Ali]

Dosyanız ekte.
C2 hücresinde bir değişiklik yaptığınızda filitreleme yapacaktır.