I have just started using Excel 2003 and VBA in Excel. So I hope no one
laughs at me. Ok I have a worksheet that I am working with that changes
a percentage (increases by .001%) so that two numbers equal each other.
The Percent amount starts at 1% (which doesn't need to be shown in the
code).

I've been working with this subroutine:

Sub AddPercentage()

Dim NumberA, NumberB, Percent As Integer
Number1 = Range("I16")
Number2 = Range("K16")
Percent = Range("L7")

If Not Number1 = Number2 Then
Percent = Percent + 0.00001
End If

End Sub

Can someone help me out here? I would really appreciate it. :)


--
Jeff Roper
------------------------------------------------------------------------
Jeff Roper's Profile: http://www.excelforum.com/member.php...o&userid=16293
View this thread: http://www.excelforum.com/showthread...hreadid=276913

Jeff,

Few points.

If working with decimals, you cannot declare you variables as integer, they
should be Double.

You shouldn't declare variable NumberA, and then use Number1 in the code,
they are different.

You need some sort of loop to repeat the action until termination.

It is possible that this criteria, until equal will never happen, as the
addition of 0.001% each time will mean that it gets very close to the other
number, but not exactly equal it.

And what do you want to do with Percent, Number1 and Number2 at the end.

A bit of clarification needed.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jeff Roper" wrote in message
...

I have just started using Excel 2003 and VBA in Excel. So I hope no one
laughs at me. Ok I have a worksheet that I am working with that changes
a percentage (increases by .001%) so that two numbers equal each other.
The Percent amount starts at 1% (which doesn't need to be shown in the
code).

I've been working with this subroutine:

Sub AddPercentage()

Dim NumberA, NumberB, Percent As Integer
Number1 = Range("I16")
Number2 = Range("K16")
Percent = Range("L7")

If Not Number1 = Number2 Then
Percent = Percent + 0.00001
End If

End Sub

Can someone help me out here? I would really appreciate it. :)


--
Jeff Roper
------------------------------------------------------------------------
Jeff Roper's Profile:
http://www.excelforum.com/member.php...o&userid=16293
View this thread: http://www.excelforum.com/showthread...hreadid=276913

Have you looked at Tools=Goal Seek.

--
Regards,
Tom Ogilvy

"Jeff Roper" wrote in message
...

I have just started using Excel 2003 and VBA in Excel. So I hope no one
laughs at me. Ok I have a worksheet that I am working with that changes
a percentage (increases by .001%) so that two numbers equal each other.
The Percent amount starts at 1% (which doesn't need to be shown in the
code).

I've been working with this subroutine:

Sub AddPercentage()

Dim NumberA, NumberB, Percent As Integer
Number1 = Range("I16")
Number2 = Range("K16")
Percent = Range("L7")

If Not Number1 = Number2 Then
Percent = Percent + 0.00001
End If

End Sub

Can someone help me out here? I would really appreciate it. :)


--
Jeff Roper
------------------------------------------------------------------------
Jeff Roper's Profile:
http://www.excelforum.com/member.php...o&userid=16293
View this thread: http://www.excelforum.com/showthread...hreadid=276913

I may not understand the question, but would this work?
Percent = Number1 - Number2 ?

--
Dana DeLouis
Win XP & Office 2003


"Jeff Roper" wrote in message
...

I have just started using Excel 2003 and VBA in Excel. So I hope no one
laughs at me. Ok I have a worksheet that I am working with that changes
a percentage (increases by .001%) so that two numbers equal each other.
The Percent amount starts at 1% (which doesn't need to be shown in the
code).

I've been working with this subroutine:

Sub AddPercentage()

Dim NumberA, NumberB, Percent As Integer
Number1 = Range("I16")
Number2 = Range("K16")
Percent = Range("L7")

If Not Number1 = Number2 Then
Percent = Percent + 0.00001
End If

End Sub

Can someone help me out here? I would really appreciate it. :)


--
Jeff Roper
------------------------------------------------------------------------
Jeff Roper's Profile:
http://www.excelforum.com/member.php...o&userid=16293
View this thread: http://www.excelforum.com/showthread...hreadid=276913