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
Buenas tardes o días a todos;
-Hoy traigo un nuevo reto que me gustaría que me ayudasen a resolver si es posible.
Se trata de los siguiente:
-Tengo un programa de trabajo del cual copio de una tabla de consulta unos valores y después los pego en otra.
Hasta ahí todo bien, siempre y cuando en la tabla de origen todas la columnas tengan datos.
El problema viene cuando hay una columna que tiene datos en unas filas y en otras no, entonces al hacer el pegado me aumenta una columna.
Dejo un video para mejor comprensión del tema.
Video:
Copiar y pegar datos de origen
Buen finde a todos
CExcel.xlsm