Simple beginner question

[Jeff Roper]

Ok, I think I am really close to figuring this one out. This actuall
cycles through, but does not stop at the equal values. I trie
rounding the numbers (that one is adjusting to the other to be equal)
but it still doesn't stop when they are equal.

Sub AddPercentage()

Dim Number1, Number2, Percent As Double
Number1 = Range("I16")
Number2 = Range("K16")
Range("L7").Value = 0.05


Do While Not Round(Number1, 2) = Round(Number2, 2)
Range("L7") = Range("L7") + 0.00001
Loop

End Sub


Is there a way to get this to work? It's nice to be able to make
macro actually do something. Thanks. :

 

[mangesh_yadav]

Your objective is still unclear. What are the values / formulae in th
cells I16, K16 and L

 

[Guest]

Hi Jeff
the problem is that your Number 1 and Numer 2 actually store the initial
assigne values of these two cells and are NOT updated in your loop. You may
try the following (Also watch the dIM statements. You have to assign the type
to each of your variables individually):

Sub AddPercentage()

Dim Number1 as range
Dim number2 as range
set Number1 = Range("I16")
set Number2 = Range("K16")
Range("L7").Value = 0.05


Do While Not Round(Number1.value, 2) = Round(Number2.value, 2)
Range("L7").value = Range("L7").value + 0.00001
Loop
End Sub

Not sure though how changing cell L7 changes either cell I16 or K16 as you
compare these two cells??