Koşullu Filtreleme

[ozgurpeh]

Merhaba,

ekli dosyada F sütününda hücrelerde 0(sıfır) ve daha küçük bir değer olduğu zaman tüm satırı nasıl gizleyebiliriz.

 

[Ömer]

Merhaba,

Tabloya filtre uygulayıp, F sütununa göre "sayı filtre" seçeneğinden büyük veya eşit bölümünde 1 yazıp istediğiniz sonucu alabilirsiniz.

Aynı işlemin makroya dökülmüş hali:

Sub Filtre()

    Dim son As Long

    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    Columns("A:F").AutoFilter
    
    ActiveSheet.Range("A1:F" & son).AutoFilter Field:=6, Criteria1:=">=1"
    
End Sub

.

 

[ozgurpeh]

Merhaba,

Tabloya filtre uygulayıp, F sütununa göre "sayı filtre" seçeneğinden büyük veya eşit bölümünde 1 yazıp istediğiniz sonucu alabilirsiniz.

Aynı işlemin makroya dökülmüş hali:

Sub Filtre()

    Dim son As Long

    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    Columns("A:F").AutoFilter
    
    ActiveSheet.Range("A1:F" & son).AutoFilter Field:=6, Criteria1:=">=1"
    
End Sub

.

Teşekkürler