|
The question I have is as follows:
I have a sheet called (Master) I have fields within the sheet that I would like to color code.
I have four different fields that I will be checking on each column.
When there is a missing value in a particular field I want the color to highlight the entire Row in say green.
When another field is missing in the next row. I want that to be a different color.
I am using the follow code. It works on the orignal worksheets but it will not work now.
private sub workbook_sheetchange(byval sh as abject, byval target as range)
If target.Column = 12 then --purchase order--
if target ="" then
Thisworkbook.worksheets('MASTER").Rows(target.row).Interior.color =activeworkbook.colors(4) --green--
else if target ="NOTFOUND" then
thisworkbook.worksheets("Master").Rows(target.row).Interior.color = activeworkbook.colors(15) --Brown--
end if
I was wondering if I need to empty the sheet and then replace the code?
These are the fields on the top. Range A1 is the auto number I created.
RFI A2
Revsion B2
Request Date C2
Customer E-mail
Request Organization
Address/city/state/zip
Cell/office #'s
Respond By
Project
System
Unit
Po L2 OR Column 12
Info Request
Attachments
S Impact
C Impact
Add Days
Add Mat
Add Lab
Total
RPI Response
RPI Attachment
Responders name
Title
Response Date
Notes
I really need to have the entire rows to change colors based on the information that is missing.
|