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

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" wrote in 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 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

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
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
.