How to fill range od cell with color depend of value

[KertLopper]

I'm looking for solution how to fill range od cell with color depend of value.

I've attached the file.

There is special row 9.
Value of the cell in the row 9 depend of value in the cell in row 6.

For example:
- if left cell in row 6 is empty the value of row 9 is 1.
- if left cell in row 6 is the same the value of row 9 is the same like in the left cell
- if left cell in row 6 is different the value of row 9 is the same like in the left cell +1


I can cut and paste cells in row 6 and all with values in row 9 working fine.

ok, and now if value in row 9 is > 0 I would like to fill row from 6 to 9 with color.



I'd like to achieve something like this:
- If value in row 9 is 1 then color in this column for row from 6 to 9 is blue
- If value in row 9 is 2 then color in this column for row from 6 to 9 is red
- If value in row 9 is 2 then color in this column for row from 6 to 9 is green
....


For example (according to the file in attached):
-if value D9 is 1 then D6-D9 is filled with blue
-if value F9 is 1 then F6-F9 is filled with blue
-if value G9 is 1 then G6-G9 is filled with blue
-if value H9 is 2 then H6-H9 is filled with red
-if value J9 is 1 then J6-J9 is filled with blue
-if value K9 is 2 then K6-K9 is filled with red
-if value L9 is 3 then L6-L9 is filled with green

...and so on


I found code like below, but because I'm not a codder I can't addapt this code for what I would like to achieve.

Could someone help ?

Please Login or Register  to view this content.

[AlphaFrog]

You can do it with Conditional Formatting

Run this macro one time to set it up.

Please Login or Register  to view this content.

[KertLopper]

Great job! Thank You !
my problem is solved!

only one ask. You wrote:

Run this macro one time to set it up.

Is there any problem if I would like to fire this marko every time when I cut and copy cells?
...some dates are hold in memory or something like this ?
I'm asking because when I cut and paste a cell from row 6 a new place for the cell in row 6 is blank.
When I re-enter makro a field is correctly filled.

...anyway your code is realy very helpful!

[FlameRetired]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however it has been brought to our attention that the same query has been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Please see Forum Rule #3 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important.

(Note: this requirement is not optional. No help to be offered until the link is provided.) You do well to do the same on the other forums as well.

Since you are new to the forum and unable to post links until you have a few more posts I've gone ahead and done it for you.

http://www.excelforum.pl/topics3/kop...go-vt67406.htm

[AlphaFrog]

Is there any problem if I would like to fire this marko every time when I cut and copy cells?

Not a problem to run the macro every time you paste.

Or when you paste, right-click on the cell you want to paste to, select Paste Special; Values. That should preserve the Conditional Formatting.

[KertLopper]

Thank You!
solved !