Formatação de resultado de operação

[Faehlauz]

Boa tarde, na planilha gostaria de somar C2 e C3 e desmembrar o resultado colocando cada algarismo do produto na faixa de E a U.
No intervalo E2:U2 está a forma incorreta. O resultado está sendo contado com 8 algarismos.

O que está no intervalo E5:U5 é a forma correta esperada. Desde já, obrigado.

EXEMPLO.rar

(19.53 KiB) Baixado 103 vezes

[Reinaldo]

Não entendi a dinâmica da demanda, bem como a utilização do "If" na rotina, já que a "numeração" binária tem mais de oito dígitos/caracteres
mas experimente:

Código: Selecionar todos

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim Soma As String
    Soma = CDec(Range("C2")) + CDec(Range("C3"))
        'If Len(Soma) = 8 Then
           Cells(i1 + 2, "E") = Mid(Soma, 1, 1): i1 = i1 + 1
           Cells(i2 + 2, "F") = Mid(Soma, 2, 1): i2 = i2 + 1
           Cells(i3 + 2, "G") = Mid(Soma, 3, 1): i3 = i3 + 1
           Cells(i4 + 2, "H") = Mid(Soma, 4, 1): i4 = i4 + 1
           Cells(i5 + 2, "I") = Mid(Soma, 5, 1): i5 = i5 + 1
           Cells(i6 + 2, "J") = Mid(Soma, 6, 1): i6 = i6 + 1
           Cells(i7 + 2, "K") = Mid(Soma, 7, 1): i7 = i7 + 1
           Cells(i8 + 2, "L") = Mid(Soma, 8, 1): i8 = i8 + 1
           Cells(i9 + 2, "M") = Mid(Soma, 9, 1): i9 = i9 + 1
           Cells(i10 + 2, "N") = Mid(Soma, 10, 1): i10 = i10 + 1
           Cells(i11 + 2, "O") = Mid(Soma, 11, 1): i11 = i11 + 1
           Cells(i12 + 2, "P") = Mid(Soma, 12, 1): i12 = i12 + 1
           Cells(i13 + 2, "Q") = Mid(Soma, 13, 1): i13 = i13 + 1
           Cells(i14 + 2, "R") = Mid(Soma, 14, 1): i14 = i14 + 1
           Cells(i15 + 2, "S") = Mid(Soma, 15, 1): i15 = i15 + 1
           Cells(i16 + 2, "T") = Mid(Soma, 16, 1): i16 = i16 + 1
           Cells(i17 + 2, "U") = Mid(Soma, 17, 1): i17 = i17 + 1
        'End If
Application.ScreenUpdating = True
End Sub