hi-lite missing field with macro

  • Thread starter Thread starter Theo
  • Start date Start date
T

Theo

Hi I've seen some samples, but not exactly what I'm looking for

If data entered in column A:

= A, then check the corresponding row, columns B, M and R - if these are
blank highlight them in yellow
= D, then check the corresponding row, columns C, D and S - if these are
blank
highlight them in yellow

Any help is appreciated!!
T
 
Hi Theo,

Made this code, which I think would solve your problem.

Sub ShowMissingInformation()
For Each cll In Range("A:A")
If cll.Value = "A" 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, 12)) Then cll.Offset(0, 12).Interior.ColorIndex
= 6 _
Else cll.Offset(0, 12).Interior.ColorIndex = xlNone
If IsEmpty(cll.Offset(0, 17)) Then cll.Offset(0, 17).Interior.ColorIndex
= 6 _
Else cll.Offset(0, 17).Interior.ColorIndex = xlNone
End If
If cll.Value = "D" Then
If IsEmpty(cll.Offset(0, 2)) Then cll.Offset(0, 2).Interior.ColorIndex =
6 _
Else cll.Offset(0, 2).Interior.ColorIndex = xlNone
If IsEmpty(cll.Offset(0, 3)) Then cll.Offset(0, 3).Interior.ColorIndex =
6 _
Else cll.Offset(0, 3).Interior.ColorIndex = xlNone
If IsEmpty(cll.Offset(0, 18)) Then cll.Offset(0, 18).Interior.ColorIndex
= 6 _
Else cll.Offset(0, 18).Interior.ColorIndex = xlNone
End If
Next

End Sub
regards,
Lazzzx
 
Thank you so much !
It was perfect.

T

Lazzzx said:
Hi Theo,

Made this code, which I think would solve your problem.

Sub ShowMissingInformation()
For Each cll In Range("A:A")
If cll.Value = "A" 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, 12)) Then cll.Offset(0, 12).Interior.ColorIndex
= 6 _
Else cll.Offset(0, 12).Interior.ColorIndex = xlNone
If IsEmpty(cll.Offset(0, 17)) Then cll.Offset(0, 17).Interior.ColorIndex
= 6 _
Else cll.Offset(0, 17).Interior.ColorIndex = xlNone
End If
If cll.Value = "D" Then
If IsEmpty(cll.Offset(0, 2)) Then cll.Offset(0, 2).Interior.ColorIndex =
6 _
Else cll.Offset(0, 2).Interior.ColorIndex = xlNone
If IsEmpty(cll.Offset(0, 3)) Then cll.Offset(0, 3).Interior.ColorIndex =
6 _
Else cll.Offset(0, 3).Interior.ColorIndex = xlNone
If IsEmpty(cll.Offset(0, 18)) Then cll.Offset(0, 18).Interior.ColorIndex
= 6 _
Else cll.Offset(0, 18).Interior.ColorIndex = xlNone
End If
Next

End Sub
regards,
Lazzzx
Click to expand...
 
Back
Top