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

 

[GarrettH]

Peter_Ss, this works much better. Thank you.

One more thing, if I wanted to make it change on RightClick, would it be as simple as changing from DoubleClick to RightClick?

 

[GarrettH]

Yeah, sorry, answered my own question.

 

[alansidman]

Change the color index numbers. Look at this link for the numbers.

Color Palette and the 56 Excel ColorIndex Colors

Excel Color Index, coloring of fonts, cell interiors

dmcritchie.mvps.org

 

[akhenaton2]

Hi everyone. Thank you for your help thus far. I need to do a slight modification to what has been posted, but I can't figure out how to. On a given spreadsheet, I need the cells B5:B16 to turn green if I double click; the cells on C5:C16 to turn yellow if I double click; and the cells on D5:D16 to turn red. And as before, right click would remove the colour.
Is this possible? TIA

 

[Peter_SSs]

the cells on C5:C16 to turn yellow if I double click

Welcome to the MrExcel board!

If you double-click on a single cell in C5:C16 do you want the whole 12 cells to turn yellow, or just the cell that was double-clicked?
Same for other ranges I assume.

 

[akhenaton2]

Thank you!

just the clicked cell

 

[Peter_SSs]

just the clicked cell

Then try this. Use double-click to add or remove colour from the cell

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Clrs As Variant
  
  Clrs = Split("5296274 65535 255")
  If Not Intersect(Target, Range("B5:D16")) Is Nothing Then
    Cancel = True
    If Target.Interior.Color = 16777215 Then
      Target.Interior.Color = Clrs(Target.Column - 2)
    Else
      Target.Interior.Color = xlNone
    End If
  End If
End Sub

 

[akhenaton2]

This works so well! Thank you so much!

 

[Peter_SSs]

This works so well! Thank you so much!

You're welcome. Thanks for the confirmation.

 

[VBABEGINER]

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.

Hello Vog Sir.. this code works for me in great way.. Thanks for always supporting us.. You're simple great.. ?