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
Buenas tardes
Me pueden ayudar con un tema que no he podido resolver...?
En un rango determinado, tenemos varias celdas que contienen, de acuerdo a cierto criterio, un color.
Este color se creo con Formato Condicional.
Y necesitamos contar cuantas celdas de ese rango tienen el color que cumple esa condición.
No les anexo un archivo, debido a que estoy en mi trabajo y no me lo permiten.
En espera de sus valiosos comentarios....
Gracias.
Saludos desde la Cd. de México.