still having trouble

T

Theo

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!!
 
M

Mike H

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
 
T

Theo

Extremely fabulous!!
Thank you
T

Mike H said:
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top