match highlighted

[Iamsuyog]

Dear All

if column F contains 3 'match' word consecutive then highlight

A column
Match highlighted
Match highlighted
Match highlighted


Match No highlighted
Match No highlighted


Match No highlighted

could you please solve the issue?

 

[Truiz]

Is this what you are looking for???????:

Sub Match3()
Dim i, lrow As Long




lrow = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row
    
srch = Application.InputBox("Enter the word to match", , , , , , , 2)


 For i = 2 To lrow Step 1
    If ActiveSheet.Cells(i, "A").Value = srch Then
      If ActiveSheet.Cells(i + 1, "A").Value = srch Then
       If ActiveSheet.Cells(i + 2, "A").Value = srch Then
         
         ActiveSheet.Range(Cells(i, "A"), Cells(i + 2, "A")).Interior.Color = 65535
    
    End If
      End If
       End If
 Next
End Sub

 

[MickG]

Perhaps this :-

[COLOR="Navy"]Sub[/COLOR] MG24Nov41
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, K [COLOR="Navy"]As[/COLOR] Variant, R [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range("F1", Range("F" & Rows.Count).End(xlUp))
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
        [COLOR="Navy"]If[/COLOR] Not .Exists(Dn.Value) [COLOR="Navy"]Then[/COLOR]
            .Add Dn.Value, Dn
        [COLOR="Navy"]Else[/COLOR]
            [COLOR="Navy"]Set[/COLOR] .Item(Dn.Value) = Union(.Item(Dn.Value), Dn)
        [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR]
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] K [COLOR="Navy"]In[/COLOR] .keys
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] R [COLOR="Navy"]In[/COLOR] .Item(K).Areas
        [COLOR="Navy"]If[/COLOR] R.Count = 3 [COLOR="Navy"]Then[/COLOR] R.Interior.Color = vbYellow
    [COLOR="Navy"]Next[/COLOR] R
[COLOR="Navy"]Next[/COLOR] K
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick