change the color of font

[Memar]

I want to change the color of fonts or cells by matching the date from a different workbook. I have a projection of sales in one workbook and actual sales in a different workbook. Whenever we get the actual total sold product types for the month, I want to deduct those form the projection workbook. Thus, I want to differentiate the by coloring the fonts or changing the color of the cell. Would you please help me how I can do this in Excel?

Data in the first workbook
Projected Sells by month

	1/31/2019	2/28/2019	3/31/2019	4/30/2019	5/31/2019	6/30/2019	7/31/2019	TOTAL
Product A	1000	1000	1000	1000	1000	1000	1000	7000
Product B	100	100	100	100	100	100	100	700
Product C	500	500	500	500	500	500	500	3500
Product D	300	300	300	300	300	300	300	2100
Product F	600	600	600	600	600	600	600	4200
ProductG	200	200	200	200	200	200	200	1400

<tbody>
</tbody>

Data in the second workbook
Actual Sales

Accounting date	Product Type	Amount Sold
1/31/2019	Product A	600
1/31/2019	Product B	100
1/31/2019	Product C	100
1/31/2019	Product F	500
2/28/2019	Product C	600
2/28/2019	Product D	400
2/28/2019	Product F	300
3/31/2019	Product A	200
3/31/2019	Product B	150
3/31/2019	Product C	500

<tbody>
</tbody>

DESIRED RESULT

	1/31/2019	2/28/2019	3/31/2019	4/30/2019	5/31/2019	6/30/2019	TOTAL
Product A	1000	1000	1000	1000	1000	1000	1000	7000
Product B	100	100	100	100	100	100	100	700
Product C	500	500	500	500	500	500	500	3500
Product D	300	300	300	300	300	300	300	2100
Product F	600	600	600	600	600	600	600	4200
ProductG	200	200	200	200	200	200	200	1400

<tbody>
</tbody>

Thank you for your help and time.

 

[nej12]

Hi Memar,
Warning: I am no expert. But I love trying to color things. I tried this and it works for me.

Sub colorCodeGreenOrRed()
'
' colorCode
'


'


   If Range("A21") <= 1000 Then
   
   Range("A21").Interior.Color = -16776961
   
   Else
   
   If Range("A21") > 1000 Then
      
   Range("A21").Interior.Color = 5287936
   
   
    
    End If
    End If

end sub

You can run it by applying to a button or manually running it. Macro>Run.

thanks,
Nej

 

[mikerickson]

If "1/13/2019" is in B1, you could use Conditional Formatting on B2 with the formula
=(B$1 < MAX(Sheet2!$A:$A) )


Its not clear to me how coloring the cells will help "deduct them from the projection workbook".