ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   increase / decrease font size based on value in cell having a formula (https://www.excelbanter.com/excel-programming/443757-increase-decrease-font-size-based-value-cell-having-formula.html)

noname

increase / decrease font size based on value in cell having a formula
 
Hi,

I have a worksheet containing cells having text in Column A & in
Column B i have cells having formulae in them. column. Using VBA, i am
trying to increase / decrease font size of Column A text, based on the
formula value returned in Column B cell.

for each rr in rng
if rr.offset(0,1).hasformula then
rr.font.size=rr.offset(0,1).value
end if
next rr

right now, i am unable to get the value returned by the formula using
VBA. How to achieve this?

Jim Cone[_2_]

increase / decrease font size based on value in cell having a formula
 

Works for me. I added: Set rng = Selection.Cells
Also, those values in the next column should be numeric. Better check.
--
Jim Cone
Portland, Oregon USA
http://www.contextures.com/excel-sort-addin.html
(review of excel sorting add-in)

..
..
..

"noname"
wrote in message
...
Hi,

I have a worksheet containing cells having text in Column A & in
Column B i have cells having formulae in them. column. Using VBA, i am
trying to increase / decrease font size of Column A text, based on the
formula value returned in Column B cell.

for each rr in rng
if rr.offset(0,1).hasformula then
rr.font.size=rr.offset(0,1).value
end if
next rr

right now, i am unable to get the value returned by the formula using
VBA. How to achieve this?

Ron Rosenfeld[_2_]

increase / decrease font size based on value in cell having a formula
 
On Fri, 15 Oct 2010 14:08:05 -0700 (PDT), noname
wrote:

Hi,

I have a worksheet containing cells having text in Column A & in
Column B i have cells having formulae in them. column. Using VBA, i am
trying to increase / decrease font size of Column A text, based on the
formula value returned in Column B cell.

for each rr in rng
if rr.offset(0,1).hasformula then
rr.font.size=rr.offset(0,1).value
end if
next rr

right now, i am unable to get the value returned by the formula using
VBA. How to achieve this?


The snippet you post should work, depending on the rest of the code
and the contents of rr.offset(0,1).

So, what is the rest of the code?
What is the actual contents of rr.offset(0,1)?


All times are GMT +1. The time now is 02:22 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com