Highlight entire row when cell selected or being edited

[dim4x4]

Hello!

I want to have an entire row highlighted when I select or edit a cell in that row. Then when I select or edit a cell in a different row, I want initial row "unhighlighted" (i.e. returned to previous state), and the new row highlighted. Basically, I want to see which row I am working on right now.

Thank you!

 

[dim4x4]

If I record a macro that adds a forumula to CF. And a macro that removes CF. Then assign a button for each macro. Will this work?

 

[Fluff]

Yes that will work.

 

[dim4x4]

Thank you!

PS. Unfortunately macro recorder does not record changes to conditional formatting ((

 

[Fluff]

It does if you select conditional, new rule, use a formula.

 

[dim4x4]

Indeed. Thank you!

 

[Fluff]

My pleasure.

 

[dim4x4]

Sorry for bothering you Fluff, but my macro does not select row. Here's my code:

Sub Macro1()

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ROW()=CELL(""ROW"")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599963377788629
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    
End Sub

It only highlights the previous selection. I want it to highlight rows and be applicable to $A$2:$DG$3000 range. Maybe I should put my macro not in the Module, but in Sheet1?

 

[Fluff]

What is the name of the sheet?

 

[dim4x4]

What is the name of the sheet?

Mail Merge

 

[Fluff]

Ok, try

Sub Macro1()

   With Sheets("Mail Merge").Range("A2:DG3000")
      .FormatConditions.Add Type:=xlExpression, Formula1:="=ROW()=CELL(""ROW"")"
      .FormatConditions(.FormatConditions.Count).SetFirstPriority
      With .FormatConditions(1).Interior
          .PatternColorIndex = xlAutomatic
          .ThemeColor = xlThemeColorAccent4
          .TintAndShade = 0.599963377788629
      End With
      .FormatConditions(1).StopIfTrue = False
   End With
End Sub