I am trying to adjust a cell's color using RGB. I know how to force the color using the RGB in vba but is there a way to do it based on a cells value?
This is the code i am trying to write:
The value of Range("C3") = "(112, 133, 119)" (without the quotes)
Please Login or Register to view this content.
Last edited by PY_; 03-23-2011 at 01:08 PM.
may be this
Sub test2()
R = Mid(Range("B3"), 2, 3) * 1
G = Mid(Range("B3"), 6, 3) * 1
B = Mid(Range("B3"), 10, 3) * 1
Range("B3").Interior.Color = RGB(R, G, B)
End Sub
Originally Posted by PY_
I am trying to adjust a cell's color using RGB. I know how to force the color using the RGB in vba but is there a way to do it based on a cells value?
This is the code i am trying to write:
The value of Range("C3") = "(112, 133, 119)" (without the quotes)Please Login or Register to view this content.
I believe the most simplest and easiest way that i have ever came across was conditional formatting.
Now Conditional Formatting may not be exactly what your looking for however you can make it format the cells however you want. And it saves you time in the long run.
Robert B | TB Consultants
The "Mid(Range" code will not really work because this will be performed on multiple lines and i was trying to keep it simple.
Your correct, conditional formatting will not work for what i am trying to do. I guess ill look into how to add Vlookup to vba because the value in C3 is just a combination of (3) vlookups. I was hoping it would be easier this way instead but it doesnt seem so.
I was able to work around that another way. I was trying not to have data in 2 more columns but its the easiest way. I just did a worksheet change and have the following in it:
Please Login or Register to view this content.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks