[ÇÖZÜLDÜ] Sütundaki benzer hücreleri belirginleştirmek

[enteresan]

Eklediğim örnekte izah etmeye çalıştığım uygulamada, bir sütundaki hücrelerde yazılan metinlerin içerisinde bir kez geçen kelimenin, diğer hücrelerde de bulunması halinde, tekrarlanan hücrelerin boyanmasını istiyorum. Yani, diyelim ki hücrenin içerisinde Ali okula gitti yazıyor. Aşağıdaki hücrelerin birinde ise Bugün Ali ödevini yapmadı yazıyor ise o hücrenin sarıya boyanması.

Bu konuda yardımcı olabileceklere teşekkür eder, saygılar sunarım....

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[enteresan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Hocam taşakkür ederim. Çok güzel fakat, orada aliye ismini de sarıya boyuyor. İçerisinde Ali kelimesi bulunduğu için sanırım. Kelimeyi iki boşluk arasındaki tam kelime olarak dikkate alması mümkün mü acaba. Saygılarımla....

 

[Korhan Ayhan]

Selamlar,

İstediğiniz kriteri uygularsak örnek dosyanıza göre hiçbir veri renklenmez. Çünkü iki boşluk uygulanan veri yok. Ama ben kodu bu şekilde uygulamak istiyorum derseniz aşağıdaki şekilde kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Application.Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    [A:A].Interior.ColorIndex = xlNone
    For X = [A65536].End(3).Row To 1 Step -1
    If Cells(X, 1) <> "" Then
    SAY = WorksheetFunction.CountIf([A:A], "* " & Cells(X, 1) & " *")
    If SAY > 1 Then
    For Y = 1 To SAY
    For Z = 1 To [A65536].End(3).Row
    Set BUL = Range("A" & Z & ":A65536").Find("* " & Cells(X, 1).Text & " *")
    If Not BUL Is Nothing Then
    Cells(BUL.Row, 1).Interior.ColorIndex = 6
    End If: Next: Next
    End If: End If: Next
    Application.ScreenUpdating = True
End Sub

 

[enteresan]

cost_control hocama teşekkür eder, saygılar sunarım...