Highlight Cells in Active Row
On Jun 10, 11:28*pm, Don Guillett wrote:
On Jun 10, 2:51*pm, Pete wrote:
On Jun 8, 11:23*pm, Don Guillett wrote:
Right click sheet tabview codepaste this. Now when you select a row
it will highlight col a & b of that row
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
* * Cells.FormatConditions.Delete
* * * * * *'With Target.EntireRow
* * With Cells(Target.Row, 1).Resize(, 2)
* * * .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
* * * .FormatConditions(1).Interior.ColorIndex = 6 * * *'35
* * End With
End Sub
On Jun 8, 1:00*pm, Pete wrote:
Hi,
Can anyone tell me how to highlight cells in column A & B of the
active row, I wish this to be a Workbook command if possible.
Thanks
Peter- Hide quoted text -
- Show quoted text -
Can this be adapted to work with the Workbook_SelectionChange Sub?
Thanks in advance
Peter- Hide quoted text -
- Show quoted text -
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
* Cells.FormatConditions.Delete
* * * * * *'With Target.EntireRow
* * With Cells(Target.Row, 1).Resize(, 2)
* * * .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
* * * .FormatConditions(1).Interior.ColorIndex = 6 * * *'35
* * End With
End Sub- Hide quoted text -
- Show quoted text -
Don, this is what I want, which is to highlight Column A & B of the
Active Row however I already have conditional formatting applied with
Condition 1 & 2, could you amend so that this Sub allows me to retain
what I have and still highlight column A & B as you have done?
Thanks in advance,
|