I need to find the quarter of a known date.

This code works fine:
ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,4,IF(MONTH(R[-26]C)<=6,1,IF(MONTH(R[-26]C)<=9,2,3)))"

But I need the result to be ordinal, so I substituted "fourth", "third" etc
for the numbers:
ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,€�fourth€�,IF(MONTH(R[-26]C)<=6,€�first€�,IF(MONTH(R[-26]C)<=9,€�second€�,€�third€�)))"
Although it works in the formual bar it produced a synatx error in code.

Any clues as to how to fix this?
I've tried formatting the cell, which gives a fix in Excel but this doesn't
copy across to Word in the same format.

Thanks in advance

You have to double the double quotes inside a string. Make sure you are
below row 26.

ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,""fourth"",IF(MONTH(R[-26]C)<=6,""first"",IF(MONTH(R[-26]C)<=9,""second"",""third"")))"

worked fine for me.

--
Regards,
Tom Ogilvy


"Jimbob" wrote:

I need to find the quarter of a known date.

This code works fine:
ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,4,IF(MONTH(R[-26]C)<=6,1,IF(MONTH(R[-26]C)<=9,2,3)))"

But I need the result to be ordinal, so I substituted "fourth", "third" etc
for the numbers:
ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,€�fourth€�,IF(MONTH(R[-26]C)<=6,€�first€�,IF(MONTH(R[-26]C)<=9,€�second€�,€�third€�)))"
Although it works in the formual bar it produced a synatx error in code.

Any clues as to how to fix this?
I've tried formatting the cell, which gives a fix in Excel but this doesn't
copy across to Word in the same format.

Thanks in advance

Double-up on the quotes. For example

""fourth""

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Jimbob" wrote in message
...
I need to find the quarter of a known date.

This code works fine:
ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,4,IF(MONTH(R[-26]C)<=6,1,IF(MONTH(R[-26]C)<=9,2,3)))"

But I need the result to be ordinal, so I substituted "fourth", "third"
etc
for the numbers:
ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,"fourth",IF(MONTH(R[-26]C)<=6,"first",IF(MONTH(R[-26]C)<=9,"second","third")))"
Although it works in the formual bar it produced a synatx error in code.

Any clues as to how to fix this?
I've tried formatting the cell, which gives a fix in Excel but this
doesn't
copy across to Word in the same format.

Thanks in advance

Prima!
Thank you Tom and Bob, it works like a dream.

"Bob Phillips" wrote:

Double-up on the quotes. For example

""fourth""

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Jimbob" wrote in message
...
I need to find the quarter of a known date.

This code works fine:
ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,4,IF(MONTH(R[-26]C)<=6,1,IF(MONTH(R[-26]C)<=9,2,3)))"

But I need the result to be ordinal, so I substituted "fourth", "third"
etc
for the numbers:
ActiveCell.FormulaR1C1 =
"=IF(MONTH(R[-26]C)<=3,"fourth",IF(MONTH(R[-26]C)<=6,"first",IF(MONTH(R[-26]C)<=9,"second","third")))"
Although it works in the formual bar it produced a synatx error in code.

Any clues as to how to fix this?
I've tried formatting the cell, which gives a fix in Excel but this
doesn't
copy across to Word in the same format.

Thanks in advance