Enter Value based on Cell Color
 

I have a worksheet that is created by another team in my company.. I'm in the
process of setting up some VBA to transpose data, etc.. Get it ready to
upload into SQL Server.. However some infomration I can only get from the
color of the cell.. (i.e. if Cell Color is Green then its a "ABC", if its Red
its "DEF"). Code will open file instert an additional row and based on color
of cell below Fill in the appropiate Vendor

Worksheet layout
Initial
Row 1 - Color Coded Names which = particular vendor

Macro Steps
Step 1
Row 1 - Blank (inserted by VBA)
Row 2 - Color Coded Names which = particular vendor

Step 2
Row 1 = i.e B1 is blank however VBA will insert "ABC" because B2 = Green,
Same for C1 = Insert "DEF" because C2 = Red, until Cell in Row 2 have no
additional cell with colors moving left to right

Thanks

Enter Value based on Cell Color
 

Chip Pearson has some info on colors and how to use them:

http://www.cpearson.com/excel/colors.aspx



"THE_RAMONES" wrote in message
...
I have a worksheet that is created by another team in my company.. I'm in
the
process of setting up some VBA to transpose data, etc.. Get it ready to
upload into SQL Server.. However some infomration I can only get from the
color of the cell.. (i.e. if Cell Color is Green then its a "ABC", if its
Red
its "DEF"). Code will open file instert an additional row and based on
color
of cell below Fill in the appropiate Vendor

Worksheet layout
Initial
Row 1 - Color Coded Names which = particular vendor

Macro Steps
Step 1
Row 1 - Blank (inserted by VBA)
Row 2 - Color Coded Names which = particular vendor

Step 2
Row 1 = i.e B1 is blank however VBA will insert "ABC" because B2 = Green,
Same for C1 = Insert "DEF" because C2 = Red, until Cell in Row 2 have no
additional cell with colors moving left to right

Thanks