çoklu filtreleme

[fiko7474]

arkadaşlar veri sayfasındaki tablodan ana sayfada sorgu yapmak istiyorum yardımcı olursanız memnun olurum

örnek dosya ektedir

http://s9.dosya.tc/server3/2ks0m4/ornek.xlsx.html

 

[çıtır]

anasayfa nın sayfasının kod kısmına kopyalayınız.İsteğiniz bu şekilde mi?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Sheets("anasayfa").Select
If Intersect(Target, Range("a3:b3")) Is Nothing Then Exit Sub
son = Range("A65536").End(3).Row
son1 = Sheets("veri").Range("A65536").End(3).Row
    Range("A7:D" & son).Select
    Selection.Clear
    Application.CutCopyMode = False
Sheets("veri").Range("A1:D" & son1).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A2:D3"), CopyToRange:=Range("A6:D6"), Unique:=False
    Range("A2").Select
    Application.ScreenUpdating = True
End Sub

 

[fiko7474]

Tesekkur ederim
kaydete basınca gizlilik uyarısı veriyor
gizlilik uyarısı: Bu belge makrolar.................. denetci tarafından kaldırılamayan kişisel bilgiler olabilir. şeklinde
bunu nasıl kaldırabilirim

 

[çıtır]

Tesekkur ederim
kaydete basınca gizlilik uyarısı veriyor
gizlilik uyarısı: Bu belge makrolar.................. denetci tarafından kaldırılamayan kişisel bilgiler olabilir. şeklinde
bunu nasıl kaldırabilirim

Rica ederim.Siteden kopyaladım,kaydettim bir sorunla karşılaşmadım.Bu konuda bir bilgim yok.Sorunun çözümünü bilen bir arkadaş çözüme ulaştırır diye düşünüyorum.Kolay gelsin.