Auto Number based on cell colour

As an example:
İf;
A1 cell colour = Red
A2 cell colour = Blue
A3 cell colour = Yellow
A4 cell colour = Green

I need
B1 cell value = 1
B2 cell value = 2
B3 cell value = 3
B4 cell value = 4

I need a macro code which will make automatically this event.

Cells are example, The code must put the number related to colour to right cell of where is every coloured cell.
(The coloured cells is NOT next each other , left or right. But up or down)

Thanks in advance for any reply and help.

Regards,
turist.

Originally Posted by xladept

Hi Turist - (nice monicker BTW)

There are 56 color codes on the regular palette if your red,green,blue and yellow are using the basic
color indices: 3,4,5,6 respectively then you can test for those and load your cell accordingly.

Thanks for prompt reply.
But, I think your reply is not answer to my question.
I want to be writen a variable number ( NOT the number of color) to the next right of the colored cell.
Example if A1 is red , B1 cell will be "1" or any number whic I defined. B1 cell will be auto written by a macro code.

Originally Posted by Fotis1991

Hi

1 way could be this.

Please Login or Register  to view this content.

And then using this formula.

Formula:

Please Login or Register  to view this content.

Thanks for reply.
But that is not what I exact wanted.
Colored cells colud be every Columns. I want to write next cell of colored cell automatically by a code.

Originally Posted by Fotis1991

Put any color in any column you like. Highlight the colored cells. Run this macro.

Please Login or Register  to view this content.

Will gives you the number of eatch color in any next cell of any column.


Good luck.

Thanks a lot for your effort.
Sorry, but won't work.
Attached file I did what you said. But NOT worked.

Please see the attached file.

Originally Posted by xladept

I used Fotis' program to get the indices and then I wrote this:

Please Login or Register  to view this content.

This is it.
Works , great.
Thanks a lot.
Regards with my Rep.
turist