Macro para colorear filas de diferentes colores

Para dante

Que tal

Podras ayudarme con esto

Tengo este codigo

Dim mirango As Range
Dim mifila As Range
Set mirango = Selection
For Each mifila In mirango.Rows
If mifila.Row Mod 2 = 0 Then
mifila.Interior.ColorIndex = 3
Else
mifila.Interior.ColorIndex = 2
End If
Next mifila

Me colorea las filas de dos colores (una fila de un color y la siguiente de otro color)

Lo que necesito es que comience a colorear a partir de la fila 3

Se podra

2 Respuestas

Respuesta
3

Macro actualizada

    Dim mirango As Range
    Dim mifila As Range
    Set mirango = Selection
    For Each mifila In mirango.Rows
        If mifila.Row > 2 Then
            If mifila.Row Mod 2 = 0 Then
                mifila.Interior.ColorIndex = 3
            Else
                mifila.Interior.ColorIndex = 2
            End If
        End If
    Next mifila

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Respuesta
1

gracias, funciona perfecta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas