Color code if 80% length has same string else yellow color

[aayaanmayank]

Hi Can some one help me with the code that if 80% Length matched then give green color else yellow color.

i have written below code however it is doing green color if 80% length has same string
e.g.

[TABLE="width: 216"]
<tbody>[TR]
[TD]GULFDRUGGU (Length 8)
GULFDRUGGULFDRUGESTABLISHMENT (Lenghth 21)

so it should through yellow color

Dim rng As Range, cel As RangeWith Worksheets("Grouping Data_Underwriters")
    Set rng = .Range([F2], .Range("F" & Rows.Count).End(xlUp))
End With
For Each cel In rng
    If Left(cel, Len(cel) * 0.8) = Left(cel(2), Len(Left(cel, Len(cel) * 0.8))) Then _
    cel.Resize(2).Interior.Color = vbGreen
    
Next

Name[/TD]
[/TR]
[TR]
[TD]ALMAZROUIMEDICALICALCHEMICALSUPPLIES[/TD]
[/TR]
[TR]
[TD]ALMAZROUIMEDICALICALCHEMICALSUPPLIES[/TD]
[/TR]
[TR]
[TD]INTERNATIONALAERADIOEMI[/TD]
[/TR]
[TR]
[TD]INTERNATIONALAERADIOEMIRATE[/TD]
[/TR]
[TR]
[TD]GULFDRUG[/TD]
[/TR]
[TR]
[TD]GULFDRUGESTABLISHMENT[/TD]
[/TR]
</tbody>[/TABLE]

[TABLE="width: 216"]
<tbody>[TR]
[TD]INTERNATIONALAERADIOEMI[/TD]
[/TR]
[TR]
[TD]INTERNATIONALAERADIOEMIRATE[/TD]
[/TR]
</tbody>[/TABLE]

 

[Puertorekinsam]

I'm not 100% sure what you are asking, but based upon the code you provided, I assume you just need an if/then/else statement

    If Left(cel, Len(cel) * 0.8) = Left(cel(2), Len(Left(cel, Len(cel) * 0.8))) Then
         cel.Resize(2).Interior.Color = vbGreen
    Else
        cel.Resize(2).Interior.Color = vbYellow
    End If