COLOUR ACTIVE CELL

[verluc]

Have somebody a macro,which can give a colour to the active cell?
Is this possible in "This workbook"
Many thanks

 

[verluc]

On 2002-08-25 08:26, verluc wrote:
Have somebody a macro,which can give a colour to the active cell?
Is this possible in "This workbook"
Many thanks

I found the following macro,but it does'nt
work for me,because in the range I have protected cells.
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Intersect(Range("A1:Z20"), Range(target(1).Address)) _
Is Nothing Then Exit Sub
Range("A1:Z20").Interior.ColorIndex = xlNone
ActiveCell.Interior.Color = vbCyan
End Sub

 

[JayMenon]

Hi !

The following code can do it !!
Sub colcell()
ActiveCell.Interior.Color = vbRed
End Sub

Thanks

 

[verluc]

On 2002-08-25 08:57, JayMenon wrote:
Hi !

The following code can do it !!
Sub colcell()
ActiveCell.Interior.Color = vbRed
End Sub

Thanks

Sorry,but it does'nt work for me.

 

[Jack in the UK]

This could be how and what protection you have XP has many more issues here,

Can you say what excel vesion and re above, but that codes OK for me also??

|||||||||||||||| Edit
No sorry nope that dont, niether of them??

I should turn off whats already running - teach me ill have a play.

_________________<embed width="200" height="50" src="http://homepage.a5.com/~kristy/misc/jack.swf">
This message was edited by Jack in the UK on 2002-08-25 09:59

 

[Jack in the UK]

Hi try this this one that was effecting my testing i use this : and it will work, DON not put in module but in he sheet required and will work

Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Intersect(Range("A1:IV65536"), Range(target(1).Address)) _
Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.Color = vbCyan
End Sub

 

[verluc]

On 2002-08-25 10:10, Jack in the UK wrote:
Hi try this this one that was effecting my testing i use this : and it will work, DON not put in module but in he sheet required and will work

Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Intersect(Range("A1:IV65536"), Range(target(1).Address)) _
Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.Color = vbCyan
End Sub

Hi Jack,
I get an error on the line:
Cells.Interior.ColorIndex = xlNone
Error 1004
Thanks for help.

 

[johny]

IS THIS WHAT YOUR LOOKING FOR
ANY CELL YOU CHOOSE IS HIGHLIGHTED
OR DID YOU WANT TO LEAVE THE COLOR
I don't remember where I picked this macro up
but here is the example under Change

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldCell As Range

If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set OldCell = Target
End Sub

 

[Jack in the UK]

Im useing that exact code now Windows XP Pro and Office XP Pro both FULL product and full installs???

No error

Try this version.. the code please put in the sheet not in its own module. [Microsoft Excel Object] Sheets as require.



Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Intersect(Range("A1:IV65536"), Range(target(1).Address)) _
Is Nothing Then Exit Sub
Range("A1:IV65536").Interior.ColorIndex = xlNone
ActiveCell.Interior.Color = vbCyan
End Sub

No errors or debug, as tested. Should be OK

 

[verluc]

On 2002-08-25 10:47, Jack in the UK wrote:
Im useing that exact code now Windows XP Pro and Office XP Pro both FULL product and full installs???

No error

Try this version.. the code please put in the sheet not in its own module. [Microsoft Excel Object] Sheets as require.



Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Intersect(Range("A1:IV65536"), Range(target(1).Address)) _
Is Nothing Then Exit Sub
Range("A1:IV65536").Interior.ColorIndex = xlNone
ActiveCell.Interior.Color = vbCyan
End Sub

No errors or debug, as tested. Should be OK

Thanks Jack,
Now it works.I need to use it in the range N7:AX25.
In that range there are cells who have already a colour.Those colours may not change.
Is this possible?