Hi guys,

At the end of a long, hard day slaving over a keyboard I'm befuddled
by something that should be easy (or so I thought).

For some reason the for next in the following doesn't loop!?!

Sub Test()
Dim i, BuildChkSum, ChkSum As Integer
For i = 0 To i = 9
BuildChkSum = Mid(1234567899, i + 1, 1) * 10 - i
ChkSum = ChkSum + BuildChkSum
i = i + 1
Next i
Debug.Print i
Debug.Print ChkSum
End Sub

i comes out as 2 in the debug statement when I hoped it would be 9 -
seeing as it's not looping shouldn't it be 1?

Any ideas?

Cheers,
JF

You don't need i = i + 1 in there, it increments i for you.

Sam

" wrote:

Hi guys,

At the end of a long, hard day slaving over a keyboard I'm befuddled
by something that should be easy (or so I thought).

For some reason the for next in the following doesn't loop!?!

Sub Test()
Dim i, BuildChkSum, ChkSum As Integer
For i = 0 To i = 9
BuildChkSum = Mid(1234567899, i + 1, 1) * 10 - i
ChkSum = ChkSum + BuildChkSum
i = i + 1
Next i
Debug.Print i
Debug.Print ChkSum
End Sub

i comes out as 2 in the debug statement when I hoped it would be 9 -
seeing as it's not looping shouldn't it be 1?

Any ideas?

Cheers,
JF

Dim i As Long
For i = 0 To 9
'Code goes here
Next i

" wrote:

Hi guys,

At the end of a long, hard day slaving over a keyboard I'm befuddled
by something that should be easy (or so I thought).

For some reason the for next in the following doesn't loop!?!

Sub Test()
Dim i, BuildChkSum, ChkSum As Integer
For i = 0 To i = 9
BuildChkSum = Mid(1234567899, i + 1, 1) * 10 - i
ChkSum = ChkSum + BuildChkSum
i = i + 1
Next i
Debug.Print i
Debug.Print ChkSum
End Sub

i comes out as 2 in the debug statement when I hoped it would be 9 -
seeing as it's not looping shouldn't it be 1?

Any ideas?

Cheers,
JF

For i = 0 to 9
Take out the i=i+1 part. The For..next loop increments i

--
Tim Zych
www.higherdata.com
Compare data in workbooks and find differences with Workbook Compare
A free, powerful, flexible Excel utility

wrote in message
...
Hi guys,

At the end of a long, hard day slaving over a keyboard I'm befuddled
by something that should be easy (or so I thought).

For some reason the for next in the following doesn't loop!?!

Sub Test()
Dim i, BuildChkSum, ChkSum As Integer
For i = 0 To i = 9
BuildChkSum = Mid(1234567899, i + 1, 1) * 10 - i
ChkSum = ChkSum + BuildChkSum
i = i + 1
Next i
Debug.Print i
Debug.Print ChkSum
End Sub

i comes out as 2 in the debug statement when I hoped it would be 9 -
seeing as it's not looping shouldn't it be 1?

Any ideas?

Cheers,
JF

And it should be "For i = 0 to 9" not "For i=0 to i=9"

Sam

" wrote:

Hi guys,

At the end of a long, hard day slaving over a keyboard I'm befuddled
by something that should be easy (or so I thought).

For some reason the for next in the following doesn't loop!?!

Sub Test()
Dim i, BuildChkSum, ChkSum As Integer
For i = 0 To i = 9
BuildChkSum = Mid(1234567899, i + 1, 1) * 10 - i
ChkSum = ChkSum + BuildChkSum
i = i + 1
Next i
Debug.Print i
Debug.Print ChkSum
End Sub

i comes out as 2 in the debug statement when I hoped it would be 9 -
seeing as it's not looping shouldn't it be 1?

Any ideas?

Cheers,
JF

You should increment a loop count yourself like i. Let the for do it for you

For i = 0 to 9 step 2
BuildChkSum = Mid(1234567899, i + 1, 1) * 10 - i
ChkSum = ChkSum + BuildChkSum
Next i


" wrote:

Hi guys,

At the end of a long, hard day slaving over a keyboard I'm befuddled
by something that should be easy (or so I thought).

For some reason the for next in the following doesn't loop!?!

Sub Test()
Dim i, BuildChkSum, ChkSum As Integer
For i = 0 To i = 9
BuildChkSum = Mid(1234567899, i + 1, 1) * 10 - i
ChkSum = ChkSum + BuildChkSum
i = i + 1
Next i
Debug.Print i
Debug.Print ChkSum
End Sub

i comes out as 2 in the debug statement when I hoped it would be 9 -
seeing as it's not looping shouldn't it be 1?

Any ideas?

Cheers,
JF

Thanks everyone, am I a dumb-ass or what? :)

On 29 May, 17:28, Joel wrote:
You should increment a loop count yourself like i. *Let the for do it for you

* For i = 0 to 9 step 2
* * BuildChkSum = Mid(1234567899, i + 1, 1) * 10 - i
* * ChkSum = ChkSum + BuildChkSum
* Next i



" wrote:
Hi guys,

At the end of a long, hard day slaving over a keyboard I'm befuddled
by something that should be easy (or so I thought).

For some reason the for next in the following doesn't loop!?!

Sub Test()
Dim i, BuildChkSum, ChkSum As Integer
* For i = 0 To i = 9
* * BuildChkSum = Mid(1234567899, i + 1, 1) * 10 - i
* * ChkSum = ChkSum + BuildChkSum
* * i = i + 1
* Next i
Debug.Print i
Debug.Print ChkSum
End Sub

i comes out as 2 in the debug statement when I hoped it would be 9 -
seeing as it's not looping shouldn't it be 1?

Any ideas?

Cheers,
JF- Hide quoted text -

- Show quoted text -