If Then Statement

[Madingo]

Hi All, I have the following code which tests to see if the value in column J is a "Y":

For x = 7 To Counter

Range("E" & x).Formula = "=if($J$" & x & "=Y,$D$" & x & " * .025,0)"

Next x

I am not sure how to show the "Y" with quotes in the formula. Without the quotes it bombs. I tried using the single ticks 'Y' but this did not work either. Any help would be appreciated.

Regards,
Bill Mahoney

 

[Russell Hauf]

On 2002-08-30 09:10, Madingo wrote:
Hi All, I have the following code which tests to see if the value in column J is a "Y":

For x = 7 To Counter

Range("E" & x).Formula = "=if($J$" & x & "=Y,$D$" & x & " * .025,0)"

Next x

I am not sure how to show the "Y" with quotes in the formula. Without the quotes it bombs. I tried using the single ticks 'Y' but this did not work either. Any help would be appreciated.

Regards,
Bill Mahoney

Try this:

Range("E" & x).Formula = "=if($J$" & x & "=""Y"",$D$" & x & " * .025,0)"

Or, you can do this:

Range("E" & x).Formula = "=if($J$" & x & "=" & Chr(34) & "Y" & Chr(34) & ",$D$" & x & " * .025,0)"

Chr(34) is the double-quote.

HTH,

Russell

 

[Madingo]

Thanks for the help.

Regards,
Bill Mahoney