Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Hola de nuevo a todos y feliz día.
Hoy nuevamente tengo una duda que no se muy bien como resolver.
En esta ocasión se trata de la extracción de un número dígito a dígito con alineación a la derecha de un rango.
Es decir:
Yo tengo en A1 el número: 12345 y quiero que en B,C,D,E,F se pogan el dígito que corresponda con las unidades, decenas, etc.
Ejemplo: B1=1,C1=2,D1=3,E1=4,F1=5
Eso es fácil:
B1= EXTRAE(A1;1;ENCONTRAR("";A1;1))
C1= EXTRAE(A1;2;ENCONTRAR("";A1;1))
D1= EXTRAE(A1;3;ENCONTRAR("";A1;1))
E1= EXTRAE(A1;4;ENCONTRAR("";A1;1))
F1= EXTRAE(A1;5;ENCONTRAR("";A1;1))
Problema:
Eso funciona muy bien con un número de 5 dígitos,
pero con uno de 4 las unidades pasan a E1 y no a F1.
Con uno de 3 las unidades pasan a D1...
Lo que necesito:
Que indistintamente de si un número tiene un dígito o 5 la alineación sea siempre igual
El dígito correspondiente a las unidades en F
El dígito correspondiente a las decenas en E
El dígito correspondiente a las centenas en D
El dígito correspondiente a los millares en C
El dígito correspondiente a las decenas de millares en B
Espero haberme explicado bien.
Muchas gracias.
Demo_extraccción.xlsx