Change background color of a cell when the cell is selected

[bluefeather8989]

C4:Q5 if A CELL IN THIS RANGE is selected then background color changes to yellow (I may change this later). If I select another cell then the previous cell will return to background color (black). The new selected cell in the range background color changes to yellow.

 

[hrayani]

try below code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Define the range to monitor
    Dim rngMonitor As Range
    Set rngMonitor = Me.Range("C4:Q5")
    
    ' Check if the selected cell is within the monitored range
    If Not Intersect(Target, rngMonitor) Is Nothing Then
        ' Reset background color for all cells in the monitored range
        rngMonitor.Interior.Color = RGB(0, 0, 0) ' Change to black
        
        ' Set the background color of the selected cell to yellow
        Target.Interior.Color = RGB(255, 255, 0) ' Change to yellow
    End If
End Sub

 

[MARK858]

Try the code below in the worksheet module if you don't have other conditional formatting

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C4:Q5")) Is Nothing Then
      
        If Target.CountLarge = 1 Then
            Application.EnableEvents = False
          
            With Target
                Range("C4:Q5").FormatConditions.Delete
                .FormatConditions.Add xlExpression, , "TRUE"
                .FormatConditions(1).Interior.Color = vbYellow
            End With
      
        End If
    Else
        Range("C4:Q5").FormatConditions.Delete
  
    End If
  
    Application.EnableEvents = True
End Sub

 

[bluefeather8989]

Try the code below in the worksheet module if you don't have other conditional formatting

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C4:Q5")) Is Nothing Then
     
        If Target.CountLarge = 1 Then
            Application.EnableEvents = False
         
            With Target
                Range("C4:Q5").FormatConditions.Delete
                .FormatConditions.Add xlExpression, , "TRUE"
                .FormatConditions(1).Interior.Color = vbYellow
            End With
     
        End If
    Else
        Range("C4:Q5").FormatConditions.Delete
 
    End If
 
    Application.EnableEvents = True
End Sub

how would you do conditional formatting for this?

 

[MARK858]

It is conditional formatting triggered by VBA (it needs the VBA to work).
The condition is

 

[bluefeather8989]

It is conditional formatting triggered by VBA (it needs the VBA to work).
The condition is
View attachment 108503

Try the code below in the worksheet module if you don't have other conditional formatting

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C4:Q5")) Is Nothing Then
     
        If Target.CountLarge = 1 Then
            Application.EnableEvents = False
         
            With Target
                Range("C4:Q5").FormatConditions.Delete
                .FormatConditions.Add xlExpression, , "TRUE"
                .FormatConditions(1).Interior.Color = vbYellow
            End With
     
        End If
    Else
        Range("C4:Q5").FormatConditions.Delete
 
    End If
 
    Application.EnableEvents = True
End Sub

FOR SOME REASON THIS CODE WONT work in my workbook. it will work if i put it in a new blank workbook.(forgot the caps were on)

 

[MARK858]

In the Immediate window paste

Application.EnableEvents = True

and press Enter

Then see if the code works