Find color in row

[Guest]

I have a sheet who is a schedule, Row(8) are filled with date`s from F8 TO Iv8
Column D are filled with activity (OrderNr.) from D9 to D..., on every
activity I manual color cells along the row start point end end point.
This part I have to do manual.
On sheet 1 I copy activity (OrderNr.) and past it to sheet 2 From D9 to
D..... and then find the start date for every activety in sheet 1 and put
that in column E at sheet2.
Quis: Is it possible to do this with a macro,and how search for a color in
row, select date`s from row(8) and put the date to sheet 2 next to activity
(ordrNr) in column E.

Regards Yngve

 

[Tom Ogilvy]

lastrow = cells(rows.count,"D").End(xlup).row
for i = 9 to lastrow
for j = 5 to 256
if cells(i,j).Interior.ColorIndex = 3 then
dt = cells(8,j)
' now what
end if
next
Next

 

[Guest]

the code are perfekt, rest of the macro I can mage.

Thang a lott Tom Ogivy

Regards Yngve an old nowegin.