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 amigos que tal, ha pasado algún tiempo desde mi última consulta y espero al igual que en anteriores
ocasiones puedan asesorarme. Ahora sí, la situación es la siguiente:
Estoy comenzando un formulario para la empresa donde trabajo y necesito que después de haber seleccionado
ciertos "criterios" al dar click en un botón se agreguen las variables en la hoja1, para ser más específicos
que agrege los valores en la primer fila disponible (en éste caso sería la fila 9), y que una vez hecho esto
inserte una nueva fila (en este caso sería debajo de la fila 9) copiando las fórmulas (de la fila 9) de las
columnas D, E y F.
Espero haberme explicado un poco, les dejo un archivo ejemplo esperando su ayuda.
Muchas gracias y Saludos a todos!
Macros.rar