I need a cell to get shaded when i click on it. how can i do that?

'----------------------------------------------------------------
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

(replace somewhere in email address with gmail if mailing direct)

"Lavanya" wrote in message
...
I need a cell to get shaded when i click on it. how can i do that?

Caution!!
This will, of course, "destroy" any and all other conditional
formatting you have or need to maintain in the sheet.


"Bob Phillips" wrote:

'----------------------------------------------------------------
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

(replace somewhere in email address with gmail if mailing direct)

"Lavanya" wrote in message
...
I need a cell to get shaded when i click on it. how can i do that?

Right click sheet tabview codeinsert this

'McCurdy.Here is something inspired by Don Guillett.
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim MyRng As Range
Set MyRng = Target '.EntireRow
Application.EnableEvents = False
On Error GoTo end1
Application.Cells.FormatConditions.Delete
'Application.Cells.Font.Size = 10
With MyRng
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ROW()=ROW(INDIRECT(CELL(""address"")))"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 1
End With
'.Font.Size = 20
.FormatConditions(1).Interior.ColorIndex = 36
End With
end1:
Application.EnableEvents = True
End Sub

--
Don Guillett
SalesAid Software

"Lavanya" wrote in message
...
I need a cell to get shaded when i click on it. how can i do that?

The one I posted will NOT

--
Don Guillett
SalesAid Software

"JMay" wrote in message
...
Caution!!
This will, of course, "destroy" any and all other conditional
formatting you have or need to maintain in the sheet.


"Bob Phillips" wrote:

'----------------------------------------------------------------
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

(replace somewhere in email address with gmail if mailing direct)

"Lavanya" wrote in message
...
I need a cell to get shaded when i click on it. how can i do that?

You sure?

Application.Cells.FormatConditions.Delete

Looks like it would destroy any existing conditional formats.



Don Guillett wrote:

The one I posted will NOT

--
Don Guillett
SalesAid Software

"JMay" wrote in message
...
Caution!!
This will, of course, "destroy" any and all other conditional
formatting you have or need to maintain in the sheet.


"Bob Phillips" wrote:

'----------------------------------------------------------------
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

(replace somewhere in email address with gmail if mailing direct)

"Lavanya" wrote in message
...
I need a cell to get shaded when i click on it. how can i do that?




--

Dave Peterson

Dave,

Test it. You can even add new.

--
Don Guillett
SalesAid Software

"Dave Peterson" wrote in message
...
You sure?

Application.Cells.FormatConditions.Delete

Looks like it would destroy any existing conditional formats.



Don Guillett wrote:

The one I posted will NOT

--
Don Guillett
SalesAid Software

"JMay" wrote in message
...
Caution!!
This will, of course, "destroy" any and all other conditional
formatting you have or need to maintain in the sheet.


"Bob Phillips" wrote:

'----------------------------------------------------------------
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

(replace somewhere in email address with gmail if mailing direct)

"Lavanya" wrote in message
...
I need a cell to get shaded when i click on it. how can i do that?




--

Dave Peterson

I did before I posted.

I put 7 in A1.
I used a CF rule #1 of value = 7 and changed the fill color.
I finished up and the CF was in effect.

I added your code behind the worksheet and selected a different location. Then
back to A1 and my shading was gone. I looked at the CF rule and yours was in
its place.

What am I missing?

Don Guillett wrote:

Dave,

Test it. You can even add new.

--
Don Guillett
SalesAid Software

"Dave Peterson" wrote in message
...
You sure?

Application.Cells.FormatConditions.Delete

Looks like it would destroy any existing conditional formats.



Don Guillett wrote:

The one I posted will NOT

--
Don Guillett
SalesAid Software

"JMay" wrote in message
...
Caution!!
This will, of course, "destroy" any and all other conditional
formatting you have or need to maintain in the sheet.


"Bob Phillips" wrote:

'----------------------------------------------------------------
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

(replace somewhere in email address with gmail if mailing direct)

"Lavanya" wrote in message
...
I need a cell to get shaded when i click on it. how can i do that?




--

Dave Peterson

--

Dave Peterson

Sorry, I missed the CF reference.

--
Don Guillett
SalesAid Software

"Dave Peterson" wrote in message
...
I did before I posted.

I put 7 in A1.
I used a CF rule #1 of value = 7 and changed the fill color.
I finished up and the CF was in effect.

I added your code behind the worksheet and selected a different location.
Then
back to A1 and my shading was gone. I looked at the CF rule and yours was
in
its place.

What am I missing?

Don Guillett wrote:

Dave,

Test it. You can even add new.

--
Don Guillett
SalesAid Software

"Dave Peterson" wrote in message
...
You sure?

Application.Cells.FormatConditions.Delete

Looks like it would destroy any existing conditional formats.



Don Guillett wrote:

The one I posted will NOT

--
Don Guillett
SalesAid Software

"JMay" wrote in message
...
Caution!!
This will, of course, "destroy" any and all other conditional
formatting you have or need to maintain in the sheet.


"Bob Phillips" wrote:

'----------------------------------------------------------------
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

(replace somewhere in email address with gmail if mailing direct)

"Lavanya" wrote in message
...
I need a cell to get shaded when i click on it. how can i do
that?




--

Dave Peterson

--

Dave Peterson

Whew! <vbg

Don Guillett wrote:

Sorry, I missed the CF reference.

--
Don Guillett
SalesAid Software

"Dave Peterson" wrote in message
...
I did before I posted.

I put 7 in A1.
I used a CF rule #1 of value = 7 and changed the fill color.
I finished up and the CF was in effect.

I added your code behind the worksheet and selected a different location.
Then
back to A1 and my shading was gone. I looked at the CF rule and yours was
in
its place.

What am I missing?

Don Guillett wrote:

Dave,

Test it. You can even add new.

--
Don Guillett
SalesAid Software

"Dave Peterson" wrote in message
...
You sure?

Application.Cells.FormatConditions.Delete

Looks like it would destroy any existing conditional formats.



Don Guillett wrote:

The one I posted will NOT

--
Don Guillett
SalesAid Software

"JMay" wrote in message
...
Caution!!
This will, of course, "destroy" any and all other conditional
formatting you have or need to maintain in the sheet.


"Bob Phillips" wrote:

'----------------------------------------------------------------
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

(replace somewhere in email address with gmail if mailing direct)

"Lavanya" wrote in message
...
I need a cell to get shaded when i click on it. how can i do
that?




--

Dave Peterson

--

Dave Peterson

--

Dave Peterson

FYI.................

Hey Guys... On this subject a few days back -- I was rummaging around
In my treasure-chest of macros and came across the following (which
allows
for the highlighting of the activecell WITHOUT affecting any previously
established Conditional Formatting.. << Pretty neat Your Comments?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldCell As Range
If Application.CutCopyMode = 0 Then
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
OldCell.Borders.LineStyle = xlLineStyleNone
End If
Set OldCell = Target
OldCell.Interior.ColorIndex = 6
OldCell.Borders.LineStyle = xlContinuous
Else
If OldCell Is Nothing Then
Set OldCell = Target
Else
Set OldCell = Union(OldCell, Target)
End If
End If
End Sub


Happy New Year !!
Thanks for all your help in 2006, 2005, 2004...!!



"Don Guillett" wrote in message
:

Sorry, I missed the CF reference.

--
Don Guillett
SalesAid Software

"Dave Peterson" wrote in message
...
I did before I posted.

I put 7 in A1.
I used a CF rule #1 of value = 7 and changed the fill color.
I finished up and the CF was in effect.

I added your code behind the worksheet and selected a different location.
Then
back to A1 and my shading was gone. I looked at the CF rule and yours was
in
its place.

What am I missing?

Don Guillett wrote:

Dave,

Test it. You can even add new.

--
Don Guillett
SalesAid Software

"Dave Peterson" wrote in message
...
You sure?

Application.Cells.FormatConditions.Delete

Looks like it would destroy any existing conditional formats.



Don Guillett wrote:

The one I posted will NOT

--
Don Guillett
SalesAid Software

"JMay" wrote in message
...
Caution!!
This will, of course, "destroy" any and all other conditional
formatting you have or need to maintain in the sheet.


"Bob Phillips" wrote:

'----------------------------------------------------------------
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

(replace somewhere in email address with gmail if mailing direct)

"Lavanya" wrote in message
...
I need a cell to get shaded when i click on it. how can i do
that?




--

Dave Peterson

--

Dave Peterson