multiplicar digitos y sumar

On 22 feb, 19:00, "botellas" wrote:

saludos.
tengo una hoja donde ne de multiplicar números, seria mas menos esto
=(a2*a3)
donde  en A2 el valor seria 8 y en A3 seria 2, el total me saldría en la
celda D4. seria 16, pues bien yo quisiera que ese 16 me lo sumara entre el,
quiero decir ,que en vez de salir 16 me saliera 7,
  1+6 =7 seria sumar la decena por la unidad eso si el resultado es de dos
dígitos.

Hola.



La siguiente macro creo que te funcionará:

Function suma_multi(celda1 As Range, celda2 As Range)
producto = celda1.Value * celda2.Value
While producto > 10
suma_multi = 0
For a = 1 To Len(producto)
suma_multi = suma_multi + Val(Mid(producto, a, 1))
Next a
producto = suma_multi
Wend
End Function

Saludos,

Benito
Barcelona

Una opción con formula,

=SUMAPRODUCTO(LARGO(SUSTITUIR(A2*A3;{1\2\3\4\5\6\7\8\9\""};""))*-{1\2\3\4\5\6\7\8\9\-45})

Saludos

Suponiendo que cuando tengas

19 quieras obtener 1+9 = 10 = 1 + 0 = 1

y que cuando tengas

386 quieras obtener 3+8+6 = 17 = 1+7 = 8

prueba con:

=SI((a2*a3)=0;0;SI(RESIDUO((a2*a3);9)=0;9;RESIDUO((a2*a3);9)))

SALUDOS.
julian-Valencia-España

http://ijulian.iespana.es
http://www.tinyurl.com/julianvalencia



"botellas" wrote:

saludos.
tengo una hoja donde ne de multiplicar números, seria mas menos esto
=(a2*a3)
donde en A2 el valor seria 8 y en A3 seria 2, el total me saldría en la
celda D4. seria 16, pues bien yo quisiera que ese 16 me lo sumara entre el,
quiero decir ,que en vez de salir 16 me saliera 7,
1+6 =7 seria sumar la decena por la unidad eso si el resultado es de dos
dígitos.


.

¿Podrás explicar la logica de la expresion que propones?

GRACIAS


SALUDOS.
julian-Valencia-España

http://ijulian.iespana.es
http://www.tinyurl.com/julianvalencia



"sailepaty" wrote:

Una opción con formula,

=SUMAPRODUCTO(LARGO(SUSTITUIR(A2*A3;{1\2\3\4\5\6\7\8\9\""};""))*-{1\2\3\4\5\6\7\8\9\-45})

Saludos

hola, chicos !

julian escribio en el mensaje ...
Suponiendo que cuando tengas
19 quieras obtener 1+9 = 10 = 1 + 0 = 1
y que cuando tengas
386 quieras obtener 3+8+6 = 17 = 1+7 = 8
prueba con:
=SI((a2*a3)=0;0;SI(RESIDUO((a2*a3);9)=0;9;RESIDUO((a2*a3);9)))

(creo que) la propuesta de Julian es mas "universal" (caso de resultados en mas de 2 digitos)
en lo personal, prefiero "evitar" (cuando es posible) el uso de la funcion =si(... condicional ;)

=residuo(a2*a3,9)+9*(residuo(a2*a3,9)=0)

saludos,
hector.