Renk ve Kelime Filtreleme

[megapascal]

Arkadaşlar;

örnek amaçlı dosyayı eke ilave ettim. hem renge hem de kelimeye göre filtre yapmak istiyorum.
yardımlarınız için şimdiden teşekkür ederim.

 

[hamitcan]

Önce renge göre filtreleyip sonra "Evet" yazanları süzebilirsiniz. Yada prarik olsun derseniz aşağıda makro kaydet yöntemi ile yaptığım makroyu kullanabilirsiniz.

Sub Makro1()
    ActiveSheet.Range("$C$2:$C$6").AutoFilter Field:=1, Criteria1:=RGB(255, 0, _
        0), Operator:=xlFilterFontColor
    ActiveSheet.Range("$C$2:$C$6").AutoFilter Field:=1, Criteria1:="Evet"
End Sub

 

[Merhum İdris SERDAR]

Arkadaşlar;

örnek amaçlı dosyayı eke ilave ettim. hem renge hem de kelimeye göre filtre yapmak istiyorum.
yardımlarınız için şimdiden teşekkür ederim.

.

Dosyanız ekte.

.

 

[megapascal]

arkadaşlar, teşekkürler