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.

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

ALMAZROUIMEDICALICALCHEMICALSUPPLIES

ALMAZROUIMEDICALICALCHEMICALSUPPLIES

INTERNATIONALAERADIOEMI

INTERNATIONALAERADIOEMIRATE

GULFDRUG

GULFDRUGESTABLISHMENT

<tbody>
</tbody>

INTERNATIONALAERADIOEMI

INTERNATIONALAERADIOEMIRATE

<tbody>
</tbody>

 

[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