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 de nuevo a todos.
En esta ocasión os solicito ayuda con este tema relacionado con identificar el color de una celda con base a su formato condicional.
He estado leyendo en este foro y en muchos otros, pero no he dado con el "tic" de la cuestión.
Por lo visto, el formato condicional no aplica el color a las celdas de forma normal.
Por lo que la propiedad color en sus distintas variedades no se puede usar para este fin.
En el archivo adjunto hay un pequeño ejemplo que identifica las celdas según su color y extrae su contenido de forma segmentada.
He probado con distintos códigos que he encontrado en la red, pero ninguno me ha servido para hacer lo mismo con el formato condicional.
Como siempre, todo es fácil o difícil dependiendo de si ya lo has hecho alguna vez.
En fin, si alguien se ha encontrado en esta misma tesitura, se agradece la ayuda y colaboración.
Un saludo y gracias de nuevo.
demo.xlsm