Change cell color in a range by one click

[VeKa27]

Hi all,

Need your assistance. Imagine a worksheet with 2 colored ranges. (Like B2:G7 and B10:G15 colored in yellow). Now I am looking for a code that changes the cell color to green when I once click on a cell within those ranges. When I click on another cell in that range, this one has to turn green and the other one has to turn yellow again. So on the worksheet in the 2 ranges are only 2 green cells (the last clicked one in each range) an all other cells in the ranges are yellow.
I tried to upload an example file but didn't work.
Hope someone can help.

Many thanks in advance

 

[Caleeco]

Hi VeKa,

You could try something like this:

You need to add this code in the ThisWorkbook module in the Visual Basic Editor (More info: https://www.excelwtf.com/learn/visual-basic-editor/)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Range("B2", "G7")) Is Nothing Then
        ActiveSheet.Range("B2:G7").Interior.Color = vbYellow
        Target.Interior.Color = vbGreen
    End If
    
    If Not Intersect(Target, Range("B10", "G15")) Is Nothing Then
        ActiveSheet.Range("B10:G15").Interior.Color = vbYellow
        Target.Interior.Color = vbGreen
    End If
End Sub

Hope that Helps
Caleeco

 

[VeKa27]

Hi Caleeco,

Exactly what I needed! Many many thanks. GBY

Grtz