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

Respuesta
1

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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas