Macro that will check a cell color

**hussong1555** · 10-01-2009, 07:47 PM

I need to make a macro that will check the color of a cell in say column "D" and if it is yellow then change the value that is in column "C" of the same row. I have never written a macro before, but the project I am working on has about a 1000 rows and several hundred cells that are highlighted yellow that need to say rev2 on the corrisponding line.

any input would be greatly appriciated.

thank's in advance.

**Palmetto** · 10-01-2009, 07:59 PM

This assumes "yellow" is the standard yellow (color index number 6)

Please Login or Register  to view this content.

**hussong1555** · 10-01-2009, 10:45 PM

palmetto,

you are so awesome, i can't wait to get to work in the morning and try it out. you just turned an all day job into like 20 minutes. I'm really gonna have to learn how to do these macros.

In your leisure, do you think you can explain what you did so I can learn from it. I understand the if statment, but not some of the designations such as: lrow = Cells(Rows.Count, "D").End(xlUp).Row

thanks again

**johnjohns** · 10-02-2009, 01:27 AM

You can use excell 2007 for filtering on colors. Also please find the attachment where I have used the custom function getcolor to find the color of a cell. you can find the color of the font also by adding an f in the arguments

**Palmetto** · 10-02-2009, 07:29 AM

In your leisure, do you think you can explain what you did so I can learn from it. I understand the if statment, but not some of the designations such as: lrow = Cells(Rows.Count, "D").End(xlUp).Row

Previous post amended with comments to the code.