Filling entire row based on cell value in another worksheet

[lplexe]

Hi all,

I wonder if there's a way to write the code for filling entire row based on cell value (TRUE) which is stated in another worksheet. I'm working on highliting rows with names of people who belong to different time shifts. In "Sheet1" I created a list of people who are working and next to them I created set of check boxes to state on which shift they're working (they have statement connection with specific cells). Now I Try to create macro which would fill entire row of this person in another worksheet but nothing works so far. The best I could think of is:

Sub ColorRows()

Worksheets("Sheet 2").Select
If Worksheets("Sheet 1").Cells(H4) = True Then
Cells(4).EntireRow.Interior.ColorIndex = 255
Elseif Worksheets("Sheet 1").Cells(J4) = True Then
Cells(4).EntireRow.Interior.ColorIndex = 255
Elseif Worksheets("Sheet 1").Cells(L4) = True Then
Cells(4).EntireRow.Interior.ColorIndex = 255
Endif

End Sub

 

[JLGWhiz]

You need to post an image of your source worksheet and your destination worksheet, or give a better explanation of where the data is located on the source sheet and where you want it to go to on the destination sheet. Also, do you want the code to loop so that each column H is tested for TRUE for each employee? How many columns of data and which columns are to be copied to the destination sheet? Have you thought about using the macro recorder to create the procedure?

 

[lplexe]

You need to post an image of your source worksheet and your destination worksheet, or give a better explanation of where the data is located on the source sheet and where you want it to go to on the destination sheet. Also, do you want the code to loop so that each column H is tested for TRUE for each employee? How many columns of data and which columns are to be copied to the destination sheet? Have you thought about using the macro recorder to create the procedure?

I would like to highlite entire row of a person in this worksheet (Sheet 2)

Based on these values in 'set up' worksheet (Sheet 1). I also missed one condition in the end that would leave the row without filling if none of these conditions would be true.