Satırda Kelimeyi Filtreleme

[mustafayurt42]

Merhaba Hocalarım,
Ekte gönderdiğim dosyada, bir sütunda ürün adları var. Aşağıya doğru yaklaşık 2000 tane satırda. Ben bu 2000 ürünün arasından arama yaparak ürünleri filrelemek istiyorum. Bunun içinde resimlerini attığım gibi , “ Filtre- Metni Filtrele – İçerir” deyip aradığım kelimeyi yazıyor ve filtreliyorum. Fakat bu işlemi akşama kadar tekrar tekrar yapmak çok uzun sürüyor.

Sizden ricam; ya bu işlemin kısa yolu varsa söylemeniz, ya da yine dosyada olduğu gibi yukarıya bir yazılım yapabilir misiniz ?

Şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Gelişmiş filtre ile yapabilirsiniz. Makro ile yapacaksanız forumda "AdvancedFilter" arama yaparak örnek bulabilirsiniz.

 

[mustafayurt42]

Ömer Bey,

Alakanız için teşekkür ederim. Önerdiğiniz "AdvancedFilter" konusunu araştırdım fakat, burada filtre işlemi sürekli farklı bir sayfaya yapılıyor. Dolayısı ile bulunan verilerde değişiklik yaptığımız zaman ana sayfada değişiklik olmuyor.

Benim ricam, ana sayfada filtreleyip, daha sonra değişiklik yapıp kaydetmek. Daha sonra tüm verileri ekrana getirmek.

 

[Korhan Ayhan]

Deneyiniz.

 

[mustafayurt42]

Korhan Bey,
Çok teşekkür ederim. Tam istediğim gibi olmuş. Ellerinize sağlık.

 

[mustafayurt42]

Deneyiniz.

Korhan Bey ,
A sütununda stok kodları olduğu için ürün isimlerini arama yaptığım zaman makro çalışmıyor.
Ürünleri B sütununda aramasını istiyorum.

benim hatam daha önce söylemem lazımdı.

revize ettim kodu ama yine olmadı. size zahmet tekrar bakabilir misiniz ?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
    If Target <> "" Then
        Range("A3:C" & Rows.Count).AutoFilter
        Range("A3:C" & Rows.Count).AutoFilter 2, "*" & Target & "*"
    Else
        On Error Resume Next
        ActiveSheet.ShowAllData
        On Error GoTo 0
    End If
End Sub

 

[mustafayurt42]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
    If Target <> "" Then
        Range("A3:C" & Rows.Count).AutoFilter
        Range("A3:C" & Rows.Count).AutoFilter 2, "*" & Target & "*"
    Else
        On Error Resume Next
        ActiveSheet.ShowAllData
        On Error GoTo 0
    End If
End Sub

Çok teşekkür ederim. Şimdi oldu.