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

Hola,

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

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

Saludos,

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 ¡¡¡

Tema cerrado

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.

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

 

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

Otra alternativa:

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