Can you change a cell color just by clicking it?

[donutboy]

I would like to turn a group of cells red or green just by using mouse clicks. Click one time and it turns red, click it again it turns green. Is that possible?


If that is not possible I would like to turn them colors by entering "y" for yes = green and "n" for no = red.



Thanks you guys/gals

 

[aspence]

On click I am not sure about.

If you plan on entering Y or N, you can make the cell color change using Conditional Formatting.

Highlight the cell or cells you want to change color. Click on Format -> Conditional Formatting. Set Cell Value -> Equal -> Y (format the cell to the color red). Add another condition, Set Cell Value -> Equal -> N (format the cell to the color green).

That should add the colors if nobody can determine the color change on click.

 

[phxsportz]

 

[VoG]

Hello and welcome to MrExcel.

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.ColorIndex = 3
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.ColorIndex = 4
End Sub

Press ALT + Q to return to your sheet. Double click a cell to turn it red or right click to turn it green.

 

[donutboy]

The code worked to change them to red but nothing to green. it also seems to be stuck on red once it turns red. Could there be a third click to turn it red white again?

my bad it is a right click to go green. GOT THAT!

can I do something to turn it back to white?

 

[phxsportz]

It's RIGHT CLICK to turn Green

 

[phxsportz]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex >= 3, -4142, 3)
End Sub

 

[Alphacsulb]

That code worked nicely VoG.

Saved for future reference.

 

[VoG]

The previous code worked for me but try this. Double click once for red, double click again for green and so on, right click to remove the color

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Interior.ColorIndex
    Case xlNone, 4: Target.Interior.ColorIndex = 3
    Case Else: Target.Interior.ColorIndex = 4
End Select
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.ColorIndex = xlNone
End Sub

 

[Fasteddie]

Hi there, I have just tried the code to change colours, it works a treat. Can the code be altered to change from red to orange and then to green.