Macro to copy range cells from a worksheet to another and color the rows in the new worksheet based on conditions.

need script to copy cells and process them.

Instructions:

[url removed, login to view] buton to start process (c3) in MVP GIS DATA QC

[url removed, login to view] D1 to END to a new spreadsheet(MVP DATA CHECKER)

[url removed, login to view] on below CASES color rows red or green

CASES

--1

IF Pending Replacement= yes and Validation Complete yes

then color entire row in GREEN

--2

IF Pending Replacement= yes and Validation Complete No

then color entire row in RED

--3

IF Pending Replacement= NO then

(

IF Mapping Verification Reqd = NO and

if ANY --> (UnmappedPipe/Fitting,Fitting Errors,Location Errors,Length Errors (>20'),Diameter Errors,Material Errors,Insert Sleeving Errors,Landbase Errors) = YES

then make ROW RED

ELSE

------------

IF Mapping Verification Reqd =Yes and Validation Complete = NO

then

(

IF Discrepancy Severity = major and asbuiltfound = Yes

then

IF any (UnmappedPipe/Fitting,Fitting Errors,Location Errors,Material Errors,Insert Sleeving ) are yes

)

then Make ROW Green

---------------

ELSE IF Mapping Verification Reqd =Yes and Validation Complete = YES

THEN make ROW RED

)

--4

IF Pending Replacement= NO

(

IF Mapping Verification Reqd = NO and

if ANY --> (UnmappedPipe/Fitting,Fitting Errors,Location Errors,Length Errors (>20'),Diameter Errors,Material Errors

,Insert Sleeving Errors,Landbase Errors) = YES

then RED ROW

ELSE

-------

IF Mapping Verification Reqd =Yes and Validation Complete = no

then

(

IF Discrepancy Severity = minor

and check asbuiltfound, if Yes then

IF any (Length Errors (>20'),Diameter Errors,Landbase Errors)

are yes

)

then Green Row

-------------

ELSE IF Mapping Verification Reqd =Yes and Validation Complete = YES

THEN RED ROW

)

Excel Macros VBScript

Project ID: #16074654

About the project