Renkli hücreleri filtreleme

[seabiscuit]

Herkese Slm ;

Bir sütunda bazı hücrelerdeki bilgileri kırmızı yaptım, bunları filtrelemem mümkün mü ? Tesekkürler ..

Saygılar...

 

[osmantelci]

Sub filtrele()
For Each i In Range("A:A")
If i.Interior.Color = vbRed Then i.Rows.Hidden = 1: Next
End Sub


Sub filtreleYazılar()
For Each i In Range("A:A"): If i.Font.Color = vbRed Then i.Rows.Hidden = 1
Next
End Sub

 

[Merhum İdris SERDAR]

Ekteki örneği inceleyin

 

[seabiscuit]

Sub filtrele()
For Each i In Range("A:A")
If i.Interior.Color = vbRed Then i.Rows.Hidden = 1: Next
End Sub


Sub filtreleYazılar()
For Each i In Range("A:A"): If i.Font.Color = vbRed Then i.Rows.Hidden = 1
Next
End Sub

Cevabınız için tesekkürler fakat makro kullanmayı bilmiyorum bu yazdıgınız formülü nereye uygulayacagımı yazabilirsiniz sevinirim .

Excel 2003 English


RGDS

 

[osmantelci]

Excelde Alt F11 açılan sayfada iken VBE menüsünden Insert - Module ile açılan sayfaya Paste

 

[seabiscuit]

Excelde Alt F11 açılan sayfada iken VBE menüsünden Insert - Module ile açılan sayfaya Paste

Dediklerinizi yapıyorum ama bir sonuc vermiyor sanırım bir yerde hata yapıyorum. Paste ettim ama filtreleme yapmadı .

 

[osmantelci]

Filtreleme işleminden kastınız ne? Exceldeki AutoFilter'den bahsediyorsanız o işlem ile bu kodun yaptığı benzer bir işlemdir. Renkli hücrelerin gizlenmesi işlemini yerine getiriyor.
sadece kırmızılar görünsün derseniz = yerine <> işaretini kullanın.
Sub filtrele()
Application.ScreenUpdating = 0
For Each i In Range("A1:" & [A65536].End(xlUp).Address)
If i.Interior.Color <> vbRed Then i.Rows.Hidden = 1
Next: Application.ScreenUpdating = 1
End Sub