Different data with color code...

[sksanjeev786]

Hi Team

Need your support i need the data in Column F format if I get data =>5 or =<5 while calculating column different B-C

book1
	A	B	C	D	E	F
1		2021	2020	Diff		Need in this formate Only if scores are =5> or =<-5
2
3	Are nutritious	22	28	-6		22 (-6)
4	Helps my child lead a healthy lifestyle	24	30	-6		24 (-6)
5	Are a good source of nutrients and/or vitamins	17	15	2		17
6	Are made with natural ingredients	15	10	5		15 (+5)
7	Offer a good variety of flavours	34	19	15		34 (+15)
8	Are great tasting	52	45	7		52 (+7)
9	Brand I trust	43	43	0		43
Sheet1

Cell Formulas
Range	Formula
D3:D9	D3	=B3-C3

Thanks
Sanjeev

 

[sksanjeev786]

Please refer column F for color in diff. score

 

[Fluff]

Are the values in col F hard values or formulae?

 

[sksanjeev786]

Are the values in col F hard values or formulae?

Hey Fluff,

I need the data mentioned in "F" column as of now I have entered manually for the example ,also i have added image as I need color after bracket .

Let me know if you need more info. with this

thanks for checking

Regards,
Sanjeev

 

[Fluff]

as of now I have entered manually for the example

Yes but will they always be values, or will you be putting a formula in that column?

 

[sksanjeev786]

Yes but will they always be values, or will you be putting a formula in that column?

I need column F data in the formula

 

[sksanjeev786]

I need column F data in the formula

Like Column B - Column C diff. score but data need in Column F formate

Hope this make sense

 

[Fluff]

If you do not my question, I cannot help you. Will col F have a formula in it?

 

[sksanjeev786]

If you do not my question, I cannot help you. Will col F have a formula in it?

No Column F doesn't have any formula

 

[Fluff]

Ok, how about

Sub sksanjeev()
   Dim Cl As Range
   Dim x As Long
   
   For Each Cl In Range("F3", Range("F" & Rows.Count).End(xlUp))
      If Cl.Offset(, -2) >= 5 Then
         x = InStr(1, Cl.Value, "(")
         Cl.Characters(x, Len(Cl)).Font.Color = vbGreen
      ElseIf Cl.Offset(, -2) <= -5 Then
         x = InStr(1, Cl.Value, "(")
         Cl.Characters(x, Len(Cl)).Font.Color = vbRed
      End If
   Next Cl
End Sub