Bir tabloda renkli ile işaretlenmiş olan hücreleri filtrelemek?

[cigahagi]

Merhabalar;

Ekteki tabloda sarı,mavi,kırmızı ile işaretlenmiş olan hücreler var,bunlardan sarı ile olanları filtrelemek istiyorum,yani ayrı bir tablo olarak görmek için,nasıl yapılabilir?
Teşekkürler,iyi çalışmalar.


Not:Office Xp kullanıyorum

 

[ffff7]

Filtrelediğin zaman nasıl bir sonuç almak istiyorsun?
Örnekler misin?

 

[cigahagi]

Filtrelediğin zaman nasıl bir sonuç almak istiyorsun?
Örnekler misin?

Mesela ekteki dosyada sadece sarı olanlar filtrelenmiş gibi

 

[ffff7]

Çalışılan alandaki satır ve sütunların sadece görmek istediğin rengi içermeyenlerini makro ile gizledim.

A1 hücresine görmek istediğin renkteki bir hücreden kopyala yapıştır yap. Ya da A1 hücresindeki dolgu rengini görmek istediğin renk yap. 'A1 e göre gizle' tuşu a1 hücresi rengine göre gizleme yapar. 'Hepsini göster' butonu da adı üstünde gizleme yapılan alanda bütün gizlenmişleri yeniden görünür kılar.

Sub A1_e_gore_gizle()
  renk = Sheets(1).[A1].Interior.ColorIndex
  sonY = Sheets(1).[IV1].End(1).Column
  sonX = Sheets(1).[A65536].End(3).Row
  For l = 2 To sonX
   vr = 0
   For k = 2 To sonY
    renk1 = Sheets(1).Cells(l, k).Interior.ColorIndex
    If renk1 = renk Then vr = 1
   Next
  If vr = 0 Then Sheets(1).Rows(l & ":" & l).EntireRow.Hidden = True
  Next
  'Stop
  For l = 2 To sonY
   vr = 0
   For k = 2 To sonX
    renk1 = Sheets(1).Cells(k, l).Interior.ColorIndex
    If renk1 = renk Then vr = 1
   Next
  If vr = 0 Then Sheets(1).Columns(l).EntireColumn.Hidden = True
  Next
  
End Sub

Sub hepsini_göster()

    Sheets(1).Rows("1:30").EntireRow.Hidden = False
    Sheets(1).Columns("A:Z").EntireColumn.Hidden = False

End Sub

Dosyanız ektedir.