Assigning Functions to Toggle Buttons

L

LUKEMUDGE

I'm trying to make a toggle button change the colour of a cell. I've tried
several variations of the 'IF' function and cannot get it to recognise the
button as a true/false answer to the argument. If anyone can help either with
VB script or an 'IF' argument proceedure that would be fantastic.

Thanks

Luke
 
J

JLGWhiz

If Range("A1").Value > 0 Then
Range("B2").Interior.ColorIndex = 3
Else
Range("B2").Interior.ColorIndex = xlNone
End If
 
R

Rick Rothstein

Assuming you wanted to toggle the cell's color between Red and None, just
use this single line of code in your toggle button's event procedure...

Range("A1").Interior.ColorIndex = -4139 - Range("A1").Interior.ColorIndex

The way to figure out the number (-4139 for my example code) is to add -4142
(the value of xlNone) and the ColorIndex value for the color you want (3
being Red in my example code)...

-4142 + 3 = -4139

Just use the ColorIndex in place of the value 3 in above.
 
Top