Need Script to fill Cell based on the cell value

[dineshsilicon]

Hi,

I am very new to Excel, kindly help me..

I have a column in my excel in sheet2, in that i have totally 5 levels, i want to fill each cell with a color based on the cell content.

exact scenario.

Column E. (it contains 5,4,3,2,1,0 in many rows).

If a cell in column E has content 5 then it has to be filled with RED.
If a cell in column E has content 4 then it has to be filled with ORANGE.
If a cell in column E has content 3 then it has to be filled with GOLD.
If a cell in column E has content 2 then it has to be filled with YELLOW.
If a cell in column E has content 1 then it has to be filled with LIGHT YELLOW..


can any 1 give me a script that will do this process automatically ...thank you in advance..

I need this to prepare a report daily,...

[Richard Buttrey]

Hi,

One way

Please Login or Register  to view this content.

[dineshsilicon]

Hi
Thanks for your quick response,. but its showing error...


Sub ColourCells()
Dim r As Range, rCell As Range
Set r = Range(Sheet2.Range("E1"), Sheet2.Range("E" & Rows.Count).End(xlUp))

For Each rCell In r

Select Case rCell.Value
Case Is = 5
rCell.Interior.ColorIndex = 3
Case Is = 4
rCell.Interior.ColorIndex = 46
Case Is = 3
rCell.Interior.ColorIndex = 44
Case Is = 2
rCell.Interior.ColorIndex = 6
Case Is = 1
rCell.Interior.ColorIndex = 36
End Select
Next rCell


End Sub

[Richard Buttrey]

Hi,

Do you have a sheet with the code name (not tab name) "Sheet2"

[dineshsilicon]

could u pls give me ur mail id,, i will send the xl now.. not able to upload here shoing database error......tomorrow also i have to work with many excel sheets to sort this,, so only need this....

pld give ur email id i will send u the exact xl sheet am working with

[arthurbr]

Solving problems via e mail is ,not our way of doing things.

Also remember everybody here works on his spare time. Therefore if you need urgent answers you might want to search for paying XL services

[dineshsilicon]

OH i just attached the excel sheet am working with, could u pls chk it annd reply me,,,tomorrow i have 147 file like this to sort,, so only posting here and there to get a script.. sorry

[Richard Buttrey]

Hi,

Please answer the question I asked.
Then, if you still have a problem upload the file here. I've just uploaded several files wihout any database errors.

Please try to avoid text speak in this forum.

[arthurbr]

Your post does not comply with Rule 8 of our Forum RULES. Cross-posting is when you post the same question in other forums on the web. You'll find people are disinclined to respond to cross-posts because they may be wasting their time solving a problem that has been solved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser)to the cross-post. Expect cross-posts without a link to be closed a message will be posted by the moderator explaining why. We are here to help so help us help you!

Read this to understand why we ask you to do this

http://www.mrexcel.com/forum/showthread.php?t=583829

[dineshsilicon]

I am very sorry, i was very new to forums and this is my first forum in internet, hereafter i wont repeat the same. Thank you for making me understand.

[Richard Buttrey]

Hi,
How do you expect it to work if you haven't actually copied the macro procedure I gave you into the workbook?

I've now added and run it. See the attached

[dineshsilicon]

Sir,

Working perfectly now, thanks a lot for ur valuable time. have a good day. thanks again