Change color in cells
 

When I click on a particular cell i want it to change to a particular color
and when i click on it again i want it to change back to the original color

Change color in cells
 

Here is one way

'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Cells.FormatConditions.Delete
With Target
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 36
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"garr" wrote in message
...
When I click on a particular cell i want it to change to a particular
color
and when i click on it again i want it to change back to the original
color

Change color in cells
 

I guess I didn't explain very good what I wanted. but here goes again
Cell is white
Click on cell
Cell changes to color (orange) and stays the color
Click on cell again
Cell changes back to white
or
Click on cell
Cell changes to color (Green) and stays the color
Click on cell again
Cell changes to white

I would like to work with two colors
I want to be able to do this with any cell.

"Bob Phillips" wrote:

Here is one way

'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Cells.FormatConditions.Delete
With Target
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 36
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"garr" wrote in message
...
When I click on a particular cell i want it to change to a particular
color
and when i click on it again i want it to change back to the original
color

Change color in cells
 

Okay, but this gives some interesting effects

'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Const iColor As Long = 10

With Target.Interior
If .ColorIndex = iColor Then
.ColorIndex = xlColorIndexNone
Else
.ColorIndex = iColor
End If
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"garr" wrote in message
...
I guess I didn't explain very good what I wanted. but here goes again
Cell is white
Click on cell
Cell changes to color (orange) and stays the color
Click on cell again
Cell changes back to white
or
Click on cell
Cell changes to color (Green) and stays the color
Click on cell again
Cell changes to white

I would like to work with two colors
I want to be able to do this with any cell.

"Bob Phillips" wrote:

Here is one way

'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Cells.FormatConditions.Delete
With Target
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 36
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"garr" wrote in message
...
When I click on a particular cell i want it to change to a particular
color
and when i click on it again i want it to change back to the original
color

Change color in cells
 

Is there a way to add ctl or alt and click to do this

"Bob Phillips" wrote:

Okay, but this gives some interesting effects

'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Const iColor As Long = 10

With Target.Interior
If .ColorIndex = iColor Then
.ColorIndex = xlColorIndexNone
Else
.ColorIndex = iColor
End If
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"garr" wrote in message
...
I guess I didn't explain very good what I wanted. but here goes again
Cell is white
Click on cell
Cell changes to color (orange) and stays the color
Click on cell again
Cell changes back to white
or
Click on cell
Cell changes to color (Green) and stays the color
Click on cell again
Cell changes to white

I would like to work with two colors
I want to be able to do this with any cell.

"Bob Phillips" wrote:

Here is one way

'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Cells.FormatConditions.Delete
With Target
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 36
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"garr" wrote in message
...
When I click on a particular cell i want it to change to a particular
color
and when i click on it again i want it to change back to the original
color

Change color in cells
 

You could maybe use the BeforeDoubleClick event.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"garr" wrote in message
...
Is there a way to add ctl or alt and click to do this

"Bob Phillips" wrote:

Okay, but this gives some interesting effects

'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Const iColor As Long = 10

With Target.Interior
If .ColorIndex = iColor Then
.ColorIndex = xlColorIndexNone
Else
.ColorIndex = iColor
End If
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"garr" wrote in message
...
I guess I didn't explain very good what I wanted. but here goes again
Cell is white
Click on cell
Cell changes to color (orange) and stays the color
Click on cell again
Cell changes back to white
or
Click on cell
Cell changes to color (Green) and stays the color
Click on cell again
Cell changes to white

I would like to work with two colors
I want to be able to do this with any cell.

"Bob Phillips" wrote:

Here is one way

'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Cells.FormatConditions.Delete
With Target
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 36
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"garr" wrote in message
...
When I click on a particular cell i want it to change to a
particular
color
and when i click on it again i want it to change back to the
original
color