Filtreleme ve tekrar eden isimleri listeleme

[Serdarrk]

Merhaba,

Aşağıdaki dosyada her 5 sütunda bir tekrarlayan veriler bulunmakta. Bu 5 sütunun ilkinde > işareti olanları filtrelemem gerekiyor ancak baştan sona kadar bunu yapamadım. Filtrelemeden sonra filtrelenmiş verilerde en baştaki 2. sütundaki kısaltma isimlere göre diğer verilerin hepsinde aynı ismi taşıyanları bulmam gerekiyor. Amacım filtrelemeden sonra örneğin; en baştaki isim listesinde ADANA.E isminin tüm sayfa boyunca listelerde olup olmadığını kontrol edip her listede yok ise otamatik o ismin geçtiği satırın baştan sona silinmesi. Sonucunda elde etmek istediğim, sayfada > işaretine göre filtrelenmiş ve bütün sayfadaki isim listelerinde bulunan verilerin kalması diğerlerinin silinmesi. Bu konuda yardımcı olabilir misiniz?
http://s7.dosya.tc/server4/h92s6w/i_Microsoft_Office_Excel_Calisma_Sayfasi.xlsx.html

 

[hamitcan]

Koşullu Biçimlendirme >Hücre Kurallarını Vurgula > Yinelenen Değerler.

 

[Serdarrk]

Koşullu Biçimlendirme >Hücre Kurallarını Vurgula > Yinelenen Değerler.

İlginiz için teşekkür ederim ancak söylediğiniz yöntemi aşağıda eklediğim dosyada uyguladığımda aynı veri iki kez tekrarladıysa onuda dahil ediyor. Benim amacım ilk sütundaki her hücredeki veri tüm sütunlarda varsa eğer aynı veri o şekilde renklendirmesi her hangi birinde dahi o veri yoksa onuda ona göre renklendirmesi. İlk sütunu baz alarak ilk sütunda olup diğer bütün sütunlarda da var olanları belirleyebilmek.

http://s7.dosya.tc/server4/x4o6lx/ornek.xls.html

 

[hamitcan]

Sub Renk()
    Columns(1).Interior.ColorIndex = xlNone
 
    Z = 18
    For i = 3 To [a65536].End(3).Row
    y = WorksheetFunction.CountIf(Columns("b:t"), Cells(i, 1))
       If y = Z Then Cells(i, 1).Interior.Color = vbYellow
    Next
End Sub

 

[Serdarrk]

Çok teşekkür ederim Hamit Bey.