Formula to VBA

[Paul Black]

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

 

[Bob Phillips]

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)

 

[Dana DeLouis]

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