Renkli Hücreleri Süzmek.

[bsen]

Forumda çeşitli başlıklar var ama net bir açıklama çıkaramadım. Alt alta 100 hücre içinden sarı renkte doldurulmuş olanları ya da ne biliyim fontu sarı olanları nasıl listeleyebilirim.
İlginize çok teşekkürler. Kolay gelsin.

 

[Kemal Demir]

Aşağıdaki Kodda 2 sutunda sarı renkli olanların yanına yanı 3 kolona

1.Ã?ncelikle Sarı yazdırılıyor
2.Sayfa İçerisinde 3 kolona göre ismi Sarı olanları Filtreye alıyor


Umarım İşinize yarar

Sub sarırenkliyibul()
For c = 2 To 15
If Cells(c, 2).Interior.ColorIndex = 6 Then
Cells(c, 3).Value = "sari"
Selection.AutoFilter
Range("C1").Select
Selection.AutoFilter Field:=3, Criteria1:="sari"

End If
Next
End Sub

 

[bsen]

İlginiz için çok teşekkürler ancak macro çalışmadı. Ã?rnek bir dosya gönderebilir misiniz?

 

[Kemal Demir]

DOSYA EKTEDIR.