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 foreros
Nuevamente solicito vuestra ayuda.
adjunto remito el fichero, supongo que con el veréis mejor mi solicitud, pero voy a tratar de explicarlo
El fichero corresponde a la compras de la empresa CANTIDAD x PRECIO = RESULTADO
en la columna CT esta el promedio (de todos los precios de compra)
necesitaría que en la columnas de precios de todos los días, si el precio de dicho día sobrepasa el del promedio se colorease
compras.zip