Gelişmiş filitre

[kahramang1]

Merhabalar.
Ekli dosyada birkaç modül var. Benim ricam Modüle2 de gerekli düzenlemeleri yaparak "Liste" sayfasındaki tüm verilerin "arama" sayfasında yer almasının sağlanmasıdır. Özellikle "Durum" sütununun gelmesi. Kolay gelsin. Teşekkürler.

 

[YUSUF44]

Şöyle deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:K2]) Is Nothing Then Exit Sub
    Range("A7:L1005").Clear
    Sheets("LİSTE").Range("B1:M1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Olcut"), CopyToRange:=Range("A6:L6"), Unique _
        :=False
End Sub

 

[kahramang1]

Yusuf 44, ilginiz için teşekkürler. Ben gelmesini istedğim sütunları da arama sayfasına yazdım. TES. TARİHİ ve DURUM sütunu bu şekilde geldi.

 

[kahramang1]

Ben biraz uğraşınca problemi çözdüm. İlgilenen herkese çok teşekkür ederim. Kolay gelsin.