| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
hi-lite missing field with macro
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
hi-lite missing field with macro
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 "Theo" skrev i meddelelsen ... 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
hi-lite missing field with macro
Thank you so much !
It was perfect. T "Lazzzx" wrote: 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 "Theo" skrev i meddelelsen ... 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Data missing in field in pivot table | Excel Discussion (Misc queries) | |||
| Missing values from a pivot table field | Excel Worksheet Functions | |||
| Pivot table field list missing | Excel Worksheet Functions | |||
| count missing field | Excel Discussion (Misc queries) | |||
| Pivot table field missing | Excel Worksheet Functions | |||
Linear Mode
