Revised Blinking cell- sorry

J

joeldsmt

Hello,

I dont know if this is possible, but is there any way that i can make
cell flash if the number in the cell = a negative number. Right now
have this cell counting down how much money i need to make in order t
reach my goal.

For instance, my goal for this month is 5200. at this point i have no
had any profits so the cell (Q2) adds up the total of one colum an
subtracts 5200. Since i have no values in there it gives me a total o
-5200. This is how much i still need to make.

What i want it to do is flash until the number is a positive numbe
like 100 or 123 so i know i have made my goal at a quick glance.

Any ideas
 
A

AlfD

Hi!

Honestly, I wouldn't do it.

Think instead, perhaps, of conditional formatting so it goes red/gree
etc. Even get the cell to change colour when you are more than half wa
to your target.

Al
 
J

joeldsmt

how would i do that? red to green would work. I would settle for re
for if i am negative, and green when i make a buck. any idea how to d
that?

j
 
E

ElsiePOA

To change a cell from green to red you use CONDITIONAL FORMATTING.
Select the cell(s) and then select FORMAT,CONDITIONAL FORMATTING.
Select "Cell is" and select "less than or equal to" and enter "0".
Then click on "format" and choose the color you want (either for th
font or the pattern of the cell.

Then, click on "add" and add a second format for a different color i
the cell is Greater than" "0
 
A

AlfD

Hi!

Select the cell you want to change colour.

Click Format> Conditional formatting...
Choose 'Cell value is' in the first dropdown box.
Choose 'Less than' in the second dropdown box.
Put 0 (zero) in the third box.
Select Format... Then Patterns and choose a red colour.
Click OK :OK.

That will set up red for negative values.

To set up green for positive values (what about zero?) do the sam
thing as a second condition by using the Add button in the Conditiona
Format dialogue.

Al
 
S

ste mac

Hi there, if you want the text to flash, you can use this:

Public Sub flashone()
ActiveSheet.Cells(1, 1) = "look"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = ""
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = "look"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = ""
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = "look"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = ""
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = "look"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = ""
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = "look"
Application.Wait (Now + TimeValue("0:00:01"))
End Sub

have fun

seeya ste
 
Top