Satırda Tekrarlayan Kelimeleri Tespit

[baydeniro]

Merhaba arkadaşlar. Bir satırın belli hücrelerinde tekrarlayan kelimeleri tespit etmek mümkün mü ?

Örneğin; A2 - B2 - C2 hücrelerinin içinde "YEŞİL" yazıyor. A3 - C3 hücrelerinin içinde "KIRMIZI" yazıyor. A, B ve C hücrelerinde 2 kere veya 3 kere tekrarlayan kelimeleri bulunduğu satırların D sütunundaki hücrelerine "tekrar" yazdırmak mümkün mü ?

Tekrarlayan kelimeler farklı farklı olabileceği için makroun herhangi bir kelimeye duyarlı olmasında yarar var.

 

[Korhan Ayhan]

Selamlar,

Kelime kontrolü hangi sütuna göre yapılacak? Yani hücredeki sorgulanacak kelimenin ne olduğunu nasıl belirteceğiz?

 

[baydeniro]

İlginize teşekkürler sayın Korhan Ayhan. Kelime kontrolü A sütununa göre yapılacak.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub tekrarara()
For a = 2 To [a65536].End(3).Row
metin = Split(Cells(a, "a"), " ")
For b = 0 To UBound(metin)
If WorksheetFunction.CountIf _
(Range("b" & a & ":c" & a), metin(b)) > 0 Then Cells(a, "d") = "tekrar"
Next
Next
End Sub

 

[baydeniro]

Sayın Levent Menteşoğlu, vallahi büyüksünüz. Harikulade bir iş olmuş. Çok çok teşekkür ederim. İşlerinizde başarılar dilerim, sağlıcakla kalın.