Como puedo añadir tres ceros a un número de cuenta contable para pasarla de nivel 7 a 10 ?

[JSDJSD]

Hola a todos, que formula podría utilizar para añadir a un listado de cuentas contables de nivel 7 tres ceros para convertirla a nivel 10 ?

Cuenta contable                             Resultado esperado

4300001                                              4300000001

4300099                                              4300000099

4300100                                               4300000100

4300500                                               4300000500

[Victor7]

Hola,

Suponiendo que la cuenta contable esté en A1, prueba con:

=--(IZQUIERDA(A1;4)*"1e3"&DERECHA(A1;3))

Saludos,

[JSDJSD]

Muchas gracias, donde podría conseguir manuales  para poder practicar y practicar y pillar un nivel considerable en el tema de formulas , en el cual estoy muy crudo ¡¡¡

[JSDJSD]

Tema cerrado

[JSDJSD]

Dejo también la solución con macros en lo cual si me defiendo algo.

Private Sub CommandButton1_Click()
    With Hoja1
        For x = 1 To .Range("A" & Rows.Count).End(xlUp).Row
            Comienzo = Left(.Cells(x, 1), 3)
            Final = Right(.Cells(x, 1), 4)
            Resultado = Comienzo & "0000" & Final
            .Cells(x, 2) = Resultado
        Next x
    End With
End Sub

Tiene alguna diferencia con la formula pero es porque lo he adaptado a nuevas exigencias, es decir pasarlo de nivel 7 a 11, la formula se adapta perfectamente a lo consultado en un principio.

[Antoni]

Un mix de fórmula y macro:

Sub Fórmula()
With Range("A1").CurrentRegion.Columns("B")
   .FormulaR1C1Local = "=IZQUIERDA(FC[-1];3) & ""0000"" & DERECHA(FC[-1];4)"
   .Value = .Value 
End With
End Sub

 

[JasallBcn]

Buenas , a título ilustrativo , otra forma de hacerlo.

=LET(Final;VALOR.NUMERO(EXTRAE(A2;3;LARGO(A2)));IZQUIERDA(A2;2) & REPETIR(0;8-LARGO(Final)) &Final)

Saludos

siete.xlsm

[Sergio]

Otra alternativa:

=--(REEMPLAZAR(A1;4;0;"000"))