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,
Os comento, he creado un formulario para introducir unos datos en una hoja "INFORME" del libro excel en el que trabajo.
Esas incidencias se escribirán a partir de la línea 36 que es donde está ese apartado, bien esto con el siguiente código bien.
El problema es que necesito que siga escribiendo en la siguiente fila vacía si tengo más de una incidencia y no consigo hacerlo.
Gracias de antemano