High Lighting cells with conditional colour formats
This is what i have & it works it is high lighting B cells column now i want
to high light AH cells column at the same time & from there i need to do rows 43 to 74 ,80 to 111,117 to 148,154 to 185,191 to 222, 228 to 259 also in the same manner also B & AH columns have a conditional colour format red green or yellow when these colours are in place it will not high light i believe if you or someone can make this happen YOU MUST BE A GOD Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Data As Range Dim i As Integer Dim j As Integer Dim K As Integer i = 2 j = 6 K = ActiveCell.Column() Set Data = Range("B6:AH37") Data.Interior.ColorIndex = xlNone If ActiveCell.Row < 6 Or ActiveCell.Row 37 Or _ ActiveCell.Column < 2 Or ActiveCell.Column 54 Then Exit Sub End If ActiveCell.Offset(0, -(K - i)). _ Resize(1).Interior.ColorIndex = 40 End Sub |
High Lighting cells with conditional colour formats
If you have a conditional format on the cells and you want to add a different
"interior color", that color will only display if no conditions are met. I think this is what you're looking for Sub Test() Dim aWS As Excel.Worksheet Dim myRange As Excel.Range Set aWS = ActiveSheet Set myRange = aWS.Range("43:74,80:110, 117:148, 154:185, 191:222, 228:259, AH:AH") myRange.Interior.ColorIndex = 40 End Sub -- HTH, Barb Reinhardt "Mike" wrote: This is what i have & it works it is high lighting B cells column now i want to high light AH cells column at the same time & from there i need to do rows 43 to 74 ,80 to 111,117 to 148,154 to 185,191 to 222, 228 to 259 also in the same manner also B & AH columns have a conditional colour format red green or yellow when these colours are in place it will not high light i believe if you or someone can make this happen YOU MUST BE A GOD Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Data As Range Dim i As Integer Dim j As Integer Dim K As Integer i = 2 j = 6 K = ActiveCell.Column() Set Data = Range("B6:AH37") Data.Interior.ColorIndex = xlNone If ActiveCell.Row < 6 Or ActiveCell.Row 37 Or _ ActiveCell.Column < 2 Or ActiveCell.Column 54 Then Exit Sub End If ActiveCell.Offset(0, -(K - i)). _ Resize(1).Interior.ColorIndex = 40 End Sub |
All times are GMT +1. The time now is 08:27 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com