Highlight active rows in a 2 or more table

[Rayreloj10]

Hello!

I'm trying to highlight the active row in a table. I have multiple table in 1 sheet and I already formatted the sheet to highlight the row when selected. However, when selecting the row in a table, it also highlight the same row in all the tables. is there a way to only highlight the row in specific table.

Thank you in advance!

 

[Jeffrey Mahoney]

How did you format the sheet to highlight the row? Conditional formatting? VBA?

 

[Rayreloj10]

Thank for the reply, yes, both. I just used simple code. newbie here.

in the conditional formatting

=ROW()=CELL("row")

VBA

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Target.Calculate

End Sub

However, since the table are in the same rows, it also highlight the other rows in the other table.

 

[Rayreloj10]

in the conditional formatting I used "Use a formula to determine which cells to format"

=ROW()=CELL("row")

VBA

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Target.Calculate

End Sub

However, since the table are in the same rows, it also highlight the other rows in the other table.

 

[Jeffrey Mahoney]

These are just suggestions. Trying to work towards a solution

So, a couple things. see this post about refreshing the conditional formatting

Solution: Update Conditional Formatting Without Calculating Sheet

In many of my workbooks with large tables I like to have the active row and column highlighted; it's much easier to see across many rows. I use conditional formatting (CF) with Sub Worksheet_SelectionChange in VBA to highlight the active row and column. The problem was that I was using...

www.mrexcel.com

it uses this code

On Error Resume Next
    ActiveSheet.EnableFormatConditionsCalculation = False
    ActiveSheet.EnableFormatConditionsCalculation = True
    On Error GoTo 0

Concerning restricting what gets highlighted. You need to specify the range that gets affected. In your conditional formatting (CF) range or "Applies to", you need to limit the range to each table you want to affect. I think you'll need to create a different CF for each table. The CF formula will also need to test which column the active cell is in. Something like below where the table columns begin in column 11 and ends on column 19.
=AND(Cell("Column")>10,Cell("Column")<20,=ROW()=CELL("row"))

 

[Rayreloj10]

Thank you for your suggestion. upon researching I was able to come-up with a solution. As you said, I apply 3 different CF since I have 3 table. I just saw this code in the youtube and modify i,t since the highlight is visible to the table even though you click in the other table. I added the Else commad to disagage the CF to the table once you click to the other table. So as you can see I have 3 different CF which is assigned to each table.

=$A$1=ROW()

=$B$1=ROW()

=$C$1=ROW()

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A7:F224")) Is Nothing Then
Range("A1").Value = Target.Row

Else: Range("A1") = Target.Row = False
 
   End If
  
    If Not Intersect(Target, Range("H7:M224")) Is Nothing Then
        Range("B1").Value = Target.Row
       
        Else: Range("B1") = Target.Row = False
       
        End If
       
        If Not Intersect(Target, Range("O7:T224")) Is Nothing Then
            Range("C1").Value = Target.Row

Else: Range("C1") = Target.Row = False

End If

End Sub