Copy a row to another sheet based on cell fill color

I'm sure that this has been covered before but I can't seem to find it. I want a macro that will copy an entire row from one sheet to another based on the fill color of one cell. Since I will be continually adding to the main sheet this will need to copy to the next empty row when it runs.

In my sample attachment, if the cell is green I want the row copied to the "Good" sheet and if it is red to the "Bad" Sheet.

Thanks for any help.

Steve

Please Login or Register  to view this content.

Try pasting the following copy into the specified sheets in the VBA editor (Alt F11)

Into Sheet2(Good)

Please Login or Register  to view this content.

Into Sheet3(Bad)

Please Login or Register  to view this content.

The code works by regenerating the good and bad sheets every time that they are activated so that they are always in sync with the Log sheet.

Thanks for the help. Martin, your solution is copying over as I want but it pastes it down below any row that has been previously used so every time it copies it goes further down the sheet and leaves all the rows above it empty. Any ideas on this?

It is actually working better than I had hoped with the exception of pasteing so far down.

Thanks,

Steve

OK - Try Cells.Delete as the first row in both pieces of code.