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 a todos, espero me puedan ayudar con este tema, o darme algun consejo sobre lo que tengo que resolver, tengo que crear FUNCIONES.
Actividad 1. Encontrar una funcion que separen los apellidos compuestos
De la torre, De la costa
No hay reglas para definir el apellido paterno
Actividad 2. Encontrar una función que cambie el orden de colocación de los datos
Actividad 3. Encontrar un nombre atómico y encontrar una función que ponga el nombre separado en distintas celdas
:drunk: les estare eternamente agradecidos! Saludos.
funciones de texto.rar