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,
Por favor si alguien me puede ayudar con lo siguiente:
Tengo una macro, la cual redondea los importes que están a partir de la fila 8 de la columna E,F,G,
dichos importes deben redondearse siempre hasta la misma altura de datos del correlativo (columna B)
actualmente la macro hace su trabajo, pero el problema es que cuando varia la cantidad de datos del correlativo tengo que estar
manipulando la programación de la macro y me genera ceros debajo del rango que deseo redondear.
Libro2.xlsm