Gelişmiş Filtreleme (Güncellemeli)

[leonadies]

Üstadlar Merhaba sorunum şu resimde A1:A1 kısmında tekrar Eden "AHŞAP" kelimesi geçen satırın yanındaki F2 sütunu itibari ile gelişmiş filtrelenmesini istiyorum(Yani formül sonucunda bu görüntüyü elde etmek istiyorun).Ancak burada şöyle bir problem oluyor. Gelişmiş filtre sadece o an girilmiş olan kısmı çözüyor. Yani ben A20,A25,A38 vb aşağı doğru akan sırada da AHŞAP yazıldıkça otomatik filtreleyip Aynen sağdaki gibi boş olan satırları eleyerek AHŞAP satırlarını elde etmek istiyorum..Bunu nasıl yapabilirim?

Kusura bakmayın Altın üyelik aldım ancak henüz aktif olmadı bu nedenle resim koyuyorum (Üyelik açıldı dosya yüklendi)

 

[Korhan Ayhan]

Özet tablo kullanmayı deneyin.

 

[leonadies]

Hocam özet tablo ile bos satirlrda verilmis oluyor. Bana bu satırların gozukmemesi lazim.var midir radikal bir cozum?

 

[Ömer BARAN]

Merhaba.
Ekteki belgeyi inceleyiniz.

 

[leonadies]

Ömer hocam çok tşk ederim. Emeğinize sağlık

 

[Ömer BARAN]

Ömer hocam çok tşk ederim. Emeğinize sağlık

Estağfurullah, iyi günler dilerim.

 

[vethekimi]

Merhaba
Excel 2013 te gelişmiş filtreleme uyguluyorum. Filtreleme aynı sayfada oluyor ancak hedef olarak başka bir sayfa seçince : "Yalnızca filtre uygulanmış verileri etkin sayfaya kopyalayabilirsiniz." diye bir hata veriyor. Office yardımda yer alan " Filtre uygulanmış verileri Excel'de başka bir konuma kopyalamak için Gelişmiş Filtre özelliğini kullandığınızda bir "Filtre uygulanmış verileri yalnızca etkin sayfaya kopyalayabilirsiniz" hata iletisi alıyorsunuz" başlıklı makalede çözüm olmadı yardımlarınızı bekliyorum.

 

[Vedat Özer]

Merhabalar,

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

I1 Hücresine değer girerek deneyin.

Option Explicit

Sub Özet()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long, Son As Long, Say As Long, Liste(), Veri(), Zaman As Double
    Dim Deger As String
    
    Zaman = Timer
    
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
    
    Set S1 = Sheets("Sayfa1")
    
    
    S1.Range("e2:g" & S1.Rows.Count).ClearContents
    
    Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
    Say = 1
    
    Liste = S1.Range("A2:C" & Son).Value
    ReDim Veri(1 To Son, 1 To 3)

    Deger = S1.Range("ı1").Value
   
    Veri(1, 1) = ""
    Veri(1, 2) = ""
    Veri(1, 3) = ""
   
    For X = LBound(Liste) To UBound(Liste)
                    If Liste(X, 1) = Deger Then
                 
                    ReDim Preserve Veri(1 To Son, 1 To 3)
                    Veri(Say, 1) = Liste(X, 1)
                    Veri(Say, 2) = Liste(X, 2)
                    Veri(Say, 3) = Liste(X, 3)
                    Say = Say + 1
                                   
            End If
        
    Next

    If Say > 0 Then
        S1.Range("e2").Resize(Say, 3) = Veri
        
    End If
    

    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With

    MsgBox "İşlem Tamam " & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
    
End Sub