Help ... what wrong with this code

[Chuong Nguyen]

Column N is value - Column A is the result

here is the code:

Range("A2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[13]>80000,""$80,000 or above"",IF(RC[13]>70000,""$70,000 -
$79,999"",IF(RC[13]>60000,""$60,000 - $69,999"",IF(RC[13]>50000,""$50,000 -
$59,999"",IF(RC[13]>40000,""$40,000 - $49,999"",IF(RC[13]>30000,""$30,000 -
$39,999"",IF(RC[13]>20000,""$20,000 - $29,999"",IF(RC[13]>15000,""$15,000 -
$15,999"",""$15,000 or below""))))))))"

but in Column A they all give me the result is: $80,000 or above
Even the amount is only 5000

Please Help


Best Regards

 

[JLGWhiz]

Range("A2") is your ActiveCell because you Select it in your code, so putting
your cursor elsewhere on the sheet would do no good since the code will move
it back to A2. Therefore, whatever is in Range("N2) is what will be
evaluated. So, unless you are changing the value in N2, you are going to get
a consistent result in A2.

Also, I noticed that your gradations are set as 15000, 20000. 30000, etc.
You should probably make them 14999, 19999, 29999, etc. to match your
messages that will show in column A. Otherwise, $20, 000 will give you a
message of "$15,000 or below" and so on up the line at each break point.