wsph.Range("f5:AD5").Formula = "=""CWW SCHEDULE FOR COLLECTIONS FOR """ _
& "&text($ae$1,""mmmm yyyy"")"

or maybe...

wsph.Range("f5:AD5").Formula = "=""CWW SCHEDULE FOR COLLECTIONS FOR """ _
& "&upper(text($ae$1,""mmmm yyyy""))"




Tony wrote:

Dave, I am trying to use your explanation for the quotes when specifying
code, but it come up empty:

wsPh.Range("f5:AD5").Formula = "=CWW SCHEDULE FOR COLLECTIONS FOR _ & "" ""
& MONTH($AE$1) & "" "" & YEAR($AE$1)"

Also, how do I format the MONTH as MMMMM instead of MM (i.e. CWW SCHEDULE
FOR COLLECTIONS FOR MAY 2009

"Dave Peterson" wrote:

Ps. I didn't test this.

I had no idea what was in F5 and what CWWType and CWWDate were.

Dave Peterson wrote:

Does this formula do what you want if you enter it manually?

=IF(F$5="","x",IF(ISNA(MATCH($F$5,CWWDate,0)),"",
INDEX(CWWType,MATCH(F$5,CWWDate,0),1)))

If yes, then try:

wsPH.Range("f6:AD6").Formula _
= "=IF(F$5="""",""x"",IF(ISNA(MATCH($F$5,CWWDate,0)) ," _
& """"",INDEX(CWWType,MATCH(F$5,CWWDate,0),1)))"

I move the "x" to the front and changed the comparison to equal. It's easier
for my brain to see what's going on.

Tony wrote:

I have the following code that gives me a #N/A for some cells. I want to
change it to "" using an error statement such as =IF(ISNA(.... Can anyone
assist me here.

wsPh.Range("f6:AD6").Formula = "=IF(f$5<"""",INDEX(CWWType,
MATCH(f$5,CWWDate,0),1),""x"")"

--

Dave Peterson

--

Dave Peterson


--

Dave Peterson