Syntax Problem with formula code
Todd,
Change
ActiveCell.FormulaR1C1
to
ActiveCell.Formula
B6 is not an RC type address.
HTH,
Bernie
MS Excel MVP
"Todd Htutenstine" wrote in message
...
I doubled quoted everything and now its putting single
quotes around my cell addresses and that is causing my
formula to come up with the NAME error.
I put this in the VBA code and VBA likes this:
ActiveCell.FormulaR1C1 = "=IF(AND(B6<"""",E6<"""")
=TRUE,IF(B6="""",,) & IF(B6<"""",B6&"" - 1YR"",) & IF
(E6="""",,) & IF(E6<"""",""; ""&E6&"" - 2YR"",),IF
(B6="""",,) & IF(B6<"""",B6&"" - 1YR"",) & IF(E6="""",,)
& IF(E6<"""",E6&"" - 2YR"",))"
However when I run the code it puts the following in the
cell:
=IF(AND('B6'<"",'E6'<"")=TRUE,IF('B6'="",,) & IF
('B6'<"",'B6'&" - 1YR",) & IF('E6'="",,) & IF
('E6'<"","; "&'E6'&" - 2YR",),IF('B6'="",,) & IF
('B6'<"",'B6'&" - 1YR",) & IF('E6'="",,) & IF
('E6'<"",'E6'&" - 2YR",))
I need for it to put this formula in the cell instead:
=IF(AND(B6<"",E6<"")=TRUE,IF(B6="",,) & IF(B6<"",B6&" -
1YR",) & IF(E6="",,) & IF(E6<"","; "&E6&" - 2YR",),IF
(B6="",,) & IF(B6<"",B6&" - 1YR",) & IF(E6="",,) & IF
(E6<"",E6&" - 2YR",))
-----Original Message-----
Double the double quotes, e.g.:
...AND(B6<"""",E6<"""")=TRUE,...
In article ,
"Todd Huttenstine"
wrote:
Hey guys below is a line of code in my project. In the
VBE it is showing up in red because it does not like
the "" within the formula. I know the format to enter
the
formula in the cell is correct because I have used the
same format on other occasions. Its just so many of
the "" is messing it up. How do I correct this?
ActiveCell.FormulaR1C1 = "=IF(AND(B6<"",E6<"")=TRUE,IF
(B6="",,) & IF(B6<"",B6&" - 1YR",) & IF(E6="",,) & IF
(E6<"","; "&E6&" - 2YR",),IF(B6="",,) & IF
(B6<"",B6&" -
1YR",) & IF(E6="",,) & IF(E6<"",E6&" - 2YR",))"
.
|