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