Changing colour of selected cell

[MrHibs]

Hi guys,

Does anybody have a code that changes the colour of the cell you currently have selected?

So for example if you selected cell b3 that cell would now be green but if you selected b4, b3 would return to it's original colour and b4 would be highlighted green.

I'm also looking for a code that will do something similar but opposed to just changing the colour of the cell it will change the colour of the entire row that cell is in.

Cheers

 

[Brian from Maui]

I forgot where I got this one,

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = -4142
With Target.Interior
.ColorIndex = 4
End With
End Sub

For the active row, select your range go to Format/Conditional formatting and using Formula Is,

=CELL("row")=ROW()

select a pattern, then enter this code

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Application.ScreenUpdating = True
End Sub

 

[MrHibs]

That works a treat thanks!

I don't suppose you know the code that changes the entire row as well?

Thanks again

 

[Brian from Maui]

See my edit....

 

[MrHibs]

Exactly what I'm looking for.

Thanks mate.

 

[MrHibs]

I forgot where I got this one,

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = -4142
With Target.Interior
.ColorIndex = 4
End With
End Sub

With regards to this one, it seems to set all the cells automatically to white (apart from the selected cell) which I'm guessing comes from:

Cells.Interior.ColorIndex = -4142

Is there a way that I can keep any colour formats I already have?

 

[abiram01]

Hi,

Try this code:
I thinks this will help u

Dim i As Integer
Dim name1 As String


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
        if name1<> "" then
          Range(name1).Interior.ColorIndex = i
          i = ActiveCell.Interior.ColorIndex
        endif
    Target.Select
    With Selection.Interior
        .ColorIndex = 50
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With

    name1 = Target.Address
End Sub

 

[MrHibs]

Works great.

Thanks for the help

 

[MrHibs]

I've encountered an issue with this one. It comes up with a runtime error if any of the cells on the page are protected.

Any suggestions?

Hi,

Try this code:
I thinks this will help u

Dim i As Integer
Dim name1 As String


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
        if name1<> "" then
          Range(name1).Interior.ColorIndex = i
          i = ActiveCell.Interior.ColorIndex
        endif
    Target.Select
    With Selection.Interior
        .ColorIndex = 50
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With

    name1 = Target.Address
End Sub

 

[abiram01]

hi,

If sheets are protected then try this code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
   ActiveSheet.Unprotect
   If name1 <> "" Then
        Range(name1).Interior.ColorIndex = i
        i = ActiveCell.Interior.ColorIndex

   End If


    Target.Select
    With Selection.Interior
        .ColorIndex = 50
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With

    name1 = Target.Address
    ActiveSheet.Protect
End Sub