Find color in row
 

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

Find color in row
 

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

--
Regards,
Tom Ogilvy

"evgny" wrote in message
...
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

Find color in row
 

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

Thang a lott Tom Ogivy

Regards Yngve an old nowegin.

"evgny" wrote:

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