still having trouble
I am trying to insert additional logic here ******
Sub HiLite() For Each cll In Range("A:A") If cll.Value = "C" Or cll.Value = "c" Then If IsEmpty(cll.Offset(0, 1)) Then cll.Offset(0, 1).Interior.ColorIndex = 6 _ Else: cll.Offset(0, 1).Interior.ColorIndex = xlNone If IsEmpty(cll.Offset(0, 2)) Then cll.Offset(0, 2).Interior.ColorIndex = 6 _ Else: cll.Offset(0, 2).Interior.ColorIndex = xlNone ***** If cells R - U are ALL empty, then high-light. R - U; if ONE of them is NOT empty then NONE of the cells are high-lighted ********* End If Next End Sub Thanks for any help!! |
still having trouble
Theo,
Maybe this Sub HiLite() For Each cll In Range("A1:A10") If cll.Value = "C" Or cll.Value = "c" Then If IsEmpty(cll.Offset(0, 1)) Then cll.Offset(0, 1).Interior.ColorIndex = 6 Else: cll.Offset(0, 1).Interior.ColorIndex = xlNone End If If IsEmpty(cll.Offset(0, 2)) Then cll.Offset(0, 2).Interior.ColorIndex = 6 Else: cll.Offset(0, 2).Interior.ColorIndex = xlNone End If Set myrange = Range(cll.Offset(0, 17), cll.Offset(0, 20)) For Each c In myrange If Not IsEmpty(c) Then myrange.Interior.ColorIndex = xlNone GoTo 100 End If Next myrange.Interior.ColorIndex = 6 100: End If Next End Sub Mike "Theo" wrote: I am trying to insert additional logic here ****** Sub HiLite() For Each cll In Range("A:A") If cll.Value = "C" Or cll.Value = "c" Then If IsEmpty(cll.Offset(0, 1)) Then cll.Offset(0, 1).Interior.ColorIndex = 6 _ Else: cll.Offset(0, 1).Interior.ColorIndex = xlNone If IsEmpty(cll.Offset(0, 2)) Then cll.Offset(0, 2).Interior.ColorIndex = 6 _ Else: cll.Offset(0, 2).Interior.ColorIndex = xlNone ***** If cells R - U are ALL empty, then high-light. R - U; if ONE of them is NOT empty then NONE of the cells are high-lighted ********* End If Next End Sub Thanks for any help!! |
still having trouble
Extremely fabulous!!
Thank you T "Mike H" wrote: Theo, Maybe this Sub HiLite() For Each cll In Range("A1:A10") If cll.Value = "C" Or cll.Value = "c" Then If IsEmpty(cll.Offset(0, 1)) Then cll.Offset(0, 1).Interior.ColorIndex = 6 Else: cll.Offset(0, 1).Interior.ColorIndex = xlNone End If If IsEmpty(cll.Offset(0, 2)) Then cll.Offset(0, 2).Interior.ColorIndex = 6 Else: cll.Offset(0, 2).Interior.ColorIndex = xlNone End If Set myrange = Range(cll.Offset(0, 17), cll.Offset(0, 20)) For Each c In myrange If Not IsEmpty(c) Then myrange.Interior.ColorIndex = xlNone GoTo 100 End If Next myrange.Interior.ColorIndex = 6 100: End If Next End Sub Mike "Theo" wrote: I am trying to insert additional logic here ****** Sub HiLite() For Each cll In Range("A:A") If cll.Value = "C" Or cll.Value = "c" Then If IsEmpty(cll.Offset(0, 1)) Then cll.Offset(0, 1).Interior.ColorIndex = 6 _ Else: cll.Offset(0, 1).Interior.ColorIndex = xlNone If IsEmpty(cll.Offset(0, 2)) Then cll.Offset(0, 2).Interior.ColorIndex = 6 _ Else: cll.Offset(0, 2).Interior.ColorIndex = xlNone ***** If cells R - U are ALL empty, then high-light. R - U; if ONE of them is NOT empty then NONE of the cells are high-lighted ********* End If Next End Sub Thanks for any help!! |
All times are GMT +1. The time now is 11:54 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com