Simple For Next Loop Giving Wrong result

[nmounir]

Hello Everyone,

I created a simple for Next loop that could be done with an if formula on excel. however, the result from the for Next loop is different than the excel formula for some reason.

in column J if the Interest amount is >=2 then rating = Good Return otherwise should be Low return. In Cells K5, K7,K10and K17 for next loop (in column K) showing good return and in excel formula (Column L) showing low return. Excel formula is obviously correct but why did the for Next loop is getting it wrong?
below is the code I used.

Your help is much appreciated

 

[Anthony47]

You "Dimmed" CDRValue as Integer, so it cannot work with decimals; try

Dim CDRValue as Single

Bye

 

[offthelip]

This problem is quite interesting, because it is generally assumed that using option explicit is helpful but this is a case where using it was definitely not helpful. The code would have worked perfectly with no declarations.

 

[Anthony47]

Using Dim the programmer takes control of the action, without he rely on vba best guessing

 

[offthelip]

The programmer has just as much control if the programmer understands VBA default declarations. I don't use option explicit and I don't declare variables which are absolutely obvious from context. This means any declarations in my code are there because they have to be there , this means they stand out and are easy to read because there isn't a long list of declarations at top of module. I often see code with a long list of declarations which tell me nothing. It is easy to hide an important one in the middle of the list which I miss!!

 

[Anthony47]

In my experience it is easier for a Programmer to make typing errors than conceptual mistakes. Option Explicit will save us in most of the cases with typos.
Whereas when we make "serious" conceptual errors then we can only rely on our abilities.

Dim offer also the chance to save memory and some cpu power, but this is not a keypoint in most of our situations.
But (please) don't take my words too seriously
Bye

 

[nmounir]

You "Dimmed" CDRValue as Integer, so it cannot work with decimals; try

Dim CDRValue as Single

Bye

It worked perfectly Thank you very much