Este fórum está sendo desativado

[Domingsp]

Olá, nessa planilha gostaria de:
1) somar dois números extensos e colocar o resultado em C2.
2) desmembrar o resultado e colocar cada algarismo nas celulas de F a U.

Ao apertar o botão a macro é executada.
O resultado está sendo processado em notação científica. Como fazer com que o resultado seja entendido na forma de texto?
Na linha 2 está a forma desejada.
Na linha 5 está a forma como estou conseguindo.

Pasta em anexo. Desde já, obrigado.

Exemplo.xlsm

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub CommandButton1_Click()
 Dim i As Long
  [C2] = 1.892489466697E+15 + 6530894946776#
  [C2].NumberFormat = "#"
  For i = 1 To Len([C2].Text)
   Cells(2, i + 5) = Mid([C2].Text, i, 1)
  Next i
End Sub

[Domingsp]

Obrigado, osvaldomp. Funcionou!

[Domingsp]

Olá, ainda sobre resultado em notação cientifica, agora gostaria de somar C2 e C3 e "desmontar" o resultado colocando cada algarismo do produto na faixa de E a U. Antes o resultado era colocado em uma célula e depois desmembrado.
Agora preciso desmontar esse resultado sem que ele seja colocado numa célula. No intervalo E2:U2 está a forma como estou conseguindo. O resultado está sendo contado com 8 algarismos.
Na forma correta, que está no intervalo E5:U5, seriam 17 dígitos.

EXEMPLO.xlsm

[osvaldomp]

Código: Selecionar todos

 Dim k As Long
  For k = 1 To Len(Format([C2] + [C3], "#"))
   Cells(2, k + 4) = Mid(Format([C2] + [C3], "#"), k, 1)
  Next k