Hi everyone,

The following works in Excel, how can I translate ...

=1+MOD(INT(B19/10)+MOD(B19,10)-1,9)

.... into VBA (purely VBA NOT Excel) and use "C" ("C" is a variable
used in a For ... Next loop) instead of "B19" please.

I have ...

VariableName = C Mod 10 + Int(C / 10)

.... so far but it is NOT giving me the correct answer.
So, for example, if "C" = 49 then the above would give 4 + 9 = 13. I
want it to go one step further and also do 1 + 3 = 4.
I need to amend the above to also ADD the two numbers together, ALL in
one line please.

Thanks in Advance.
All the Best.
Paul

VariableName = 1 + (C \ 10 + (C Mod 10) - 1) Mod 9


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Paul Black" wrote in message
oups.com...
Hi everyone,

The following works in Excel, how can I translate ...

=1+MOD(INT(B19/10)+MOD(B19,10)-1,9)

... into VBA (purely VBA NOT Excel) and use "C" ("C" is a variable
used in a For ... Next loop) instead of "B19" please.

I have ...

VariableName = C Mod 10 + Int(C / 10)

... so far but it is NOT giving me the correct answer.
So, for example, if "C" = 49 then the above would give 4 + 9 = 13. I
want it to go one step further and also do 1 + 3 = 4.
I need to amend the above to also ADD the two numbers together, ALL in
one line please.

Thanks in Advance.
All the Best.
Paul

Just guessing, but the repeated addition of individual digits might be:

Sub Demo()
Dim c, ans
c = 49 '13 -4
ans = ((c - 1) Mod 9) + 1

c = 123 '6
ans = ((c - 1) Mod 9) + 1
End Sub

--
HTH :)
Dana DeLouis
Windows XP & Excel 2007


"Paul Black" wrote in message
oups.com...
Hi everyone,

The following works in Excel, how can I translate ...

=1+MOD(INT(B19/10)+MOD(B19,10)-1,9)

... into VBA (purely VBA NOT Excel) and use "C" ("C" is a variable
used in a For ... Next loop) instead of "B19" please.

I have ...

VariableName = C Mod 10 + Int(C / 10)

... so far but it is NOT giving me the correct answer.
So, for example, if "C" = 49 then the above would give 4 + 9 = 13. I
want it to go one step further and also do 1 + 3 = 4.
I need to amend the above to also ADD the two numbers together, ALL in
one line please.

Thanks in Advance.
All the Best.
Paul