Macro para colorear las filas de subtotales y total general
Me podrías orientar acerca del código que necesito usar para colorear solamente los subtotales y total general de una hoja de calculo, lo hice con el formato condicional pero solo me ilumina una celda, pero necesito colorear la fila en un rango de (A:O)
Estoy utilizando el siguiente pero algo esta mal
Dim rng As Range
Dim what as string
what = "Total"
do
Set rng=ActiveSheet.UsedRange.Find(what)
if rng is nothing then
Exit do
Else
Rows (rng.Row).entireRow.Interior.ColorIndex = 4
Enf If
loop
End Sub
Agradeciendo de antemano tu valiosa ayuda, recibe un saludo desde mexico
Raúl Carmona
1 respuesta
Muy bunos dias. Espero estes bien.
Te paso una solución usando Formato Condicional sin Macros. En caso de que lo necesites, lo hacemos.
Voy a suponer que quieres colorear las FILAS desde la 1 a la 10 de las COLUMNAS A a O. Además, voy a suponer que las palabras "TOTALES" y "SUBTOTALES" se van a escribir en la columna A.
Por favor ten muy presente esto.
1) Selecciona A1:O10
2) Ve a Formato Condicional. Nueva Regla.
3) Ve a "Utilice una fórmula... "
4) En donde dice "Dar formato a los... " pon la siguiente formula: =SI($A1="TOTALES";VERDADERO;FALSO)
5) En Formato pon como lo quieres resaltar. Por ejemplo, con relleno ROJO.
6) Luego Aceptar y Aplicar.
Para resaltar las filas de SUBTOTALES debes seguir los pasos y reemplazar la palabra del punto 4.
Bendiciones.
Lucas.
