¿Como colorear el rango de una fila hasta encontrar celda con carácter especifico?
Tengo un documento y necesito darle un formato en especifico, tengo las macros para poder hacerlo, pero necesito agregar a esta, un complemento que coloré el rango de fila 1:1 hasta encontrar la celda que contenga " XXX ". Pueden variar la cantidad de columnas en el documento, pero siempre en la ultima celda existirá " XXX " necesito que ese rango de fila se colore en azul, el problema es que existen celdas vacías intermedias, ahí es donde mi macro no me ha funcionado bien.
1 respuesta
Hola Abraham, buen dia!
Efectivamente siempre la ultima celda sera " XXX " y se pinta esa fila, siempre sera el encabezado, y cubrirá la fila 1. El detalle son algunas celdas vacías y otras filtradas. Aun así la macro deberá pintarlas hasta encontrarse con la celda que contenga " XXX " en la fila 1.
Gracias!
Prueba así:
Sub Pintar()
Dim UltimaColumna As String
Let UltimaColumna = Cells(1, Columns.Count).End(xlToLeft).Address
Range("$A$1:" & UltimaColumna).Interior.ColorIndex = 5
End SubComentas
Abraham Valencia
PD: El color exacto puedes cambiarlo
