Can this be done

J

Jonathan

I have a cell range (D3:J39)
Top row has monday to sunday and first column has different jobs to be done.
now i used colored cells to show the start of a project and another color to signify the end of a project.
can i use VBA to pick out all the colors from the start of a project and display them in a column in a new sheet

Cheers in advance

J
 
T

Tom Ogilvy

Dim cell as Range, rw as Long
rw = 0
for each cell in Range("D3:J39")
if cell.ColorIndex = 6 then
rw = rw + 1
With Worksheets("Sheet2")
.Cells(rw,1) = cells(cell.Row,"D").Value
.Cells(rw,2) = cell.Value
End With
end if
Next

Might be a start.

--
Regards,
Tom Ogilvy


Jonathan said:
I have a cell range (D3:J39)
Top row has monday to sunday and first column has different jobs to be done.
now i used colored cells to show the start of a project and another color
Click to expand...
to signify the end of a project.
can i use VBA to pick out all the colors from the start of a project and
Click to expand...
display them in a column in a new sheet
 
S

Skip Bisconer

I have found some interesting stuff regarding colors at
this site http://www.cpearson.com/excel/topic.htm

-----Original Message-----
I have a cell range (D3:J39)
Top row has monday to sunday and first column has different jobs to be done.
now i used colored cells to show the start of a project
Click to expand...
and another color to signify the end of a project.
can i use VBA to pick out all the colors from the start
Click to expand...
of a project and display them in a column in a new sheet
 
Top