Adapt some VBA

[j4ymf]

hello I have found this code

how do I change the code to only change the selected cells to turn white
Cells.Interior.ColorIndex = 0

Cells(A12:AE39).Interior.ColorIndex = 0
I only want it to work on A12:AE39



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
'Clear all cell colours
Cells.Interior.ColorIndex = 0
With Target
'Row and column highlightingfor the active cell
.EntireRow.Interior.ColorIndex = 19
.EntireColumn.Interior.ColorIndex = 19
End With
Application.ScreenUpdating = True
End Sub

Thank Jay

 

[mohadin]

How about

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
'Clear all cell colours
Cells.Interior.ColorIndex = 0
With Target
'Row and column highlightingfor the active cell
.Interior.ColorIndex = 19
End With
Application.ScreenUpdating = True
End Sub

 

[mohadin]

Or may be

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    If Not Intersect(Target, Range("A12:AE39")) Is Nothing Then
        Target.Interior.ColorIndex = 19
    End If
    Application.ScreenUpdating = True
End Sub

 

[j4ymf]

Good Morning mohadin

thanks for the code

it works good but what im after is for the code to only change the background colour to white
Cells.Interior.ColorIndex = 0

my code works more like what im after but it changes the whole sheet and I only want it remove the interior colour between A12:AE39

Your just changes the colour that you have selected, I need it to change the whole row colour
does that make sense
thank you

 

[mohadin]

Like this?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR=#333333][FONT=Verdana]Cells.Interior.ColorIndex = 0[/FONT][/COLOR]
    If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    If Not Intersect(Target, Range("A12:AE39")) Is Nothing Then
        Target.EntireRow.Interior.ColorIndex = 19
    End If
    Application.ScreenUpdating = True
End Sub

 

[j4ymf]

hello mohadin

thank you but its still this line what not doing what I need
Cells.Interior.ColorIndex = 0
its chancing the whole sheet white and I only need it to change A12:AE39 white


Cells. range (A12:AE39 Interior.ColorIndex = 0 something like that!!!!!!!

 

[mohadin]

Aha

[COLOR=#333333]'Cells.Interior.ColorIndex = 0
[/COLOR]Range("A12:AE39").Interior.ColorIndex = 0

 

[j4ymf]

whoooooo

Thank you, just what I needed

 

[mohadin]

Glad I can help
Thank you for feedback
Be happy