Estaba tratando de llenar los datos con color de fondo usando el bucle. El VBA no muestra ningún error para el código a continuación, por lo que parece funcionar. Sin embargo, no hay ningún efecto en la hoja.

¿Podría indicarme dónde me he perdido algo?

Mis datos contienen valores entre la fila 11 y 14515

Tengo estos datos para 31 secciones, donde cada sección tiene 467 filas exactamente. Me gustaría colorear algunos de ellos (cada 2), pero no todos.

Sub Background_color2()
    Sheets("14").Activate
    With Range("A479:FI945")
    For n = o To n = 14515 Step 934       '934 rows interval between 2  separate sections
        .Offset(n).Interior.Color = RGB(235, 241, 222)
    Next n
    End With
End Sub

1
MKR 16 oct. 2018 a las 15:13

2 respuestas

La mejor respuesta

Podrías hacer algo así. Es posible que sea necesario ajustar los valores.

Sub Background_color2()
    Dim n As Long
    For n = (11 + 468) To (11 + 31 * 468) Step (2 * 468)
        Sheet("14").Cells(n,1).Resize(467, 165).Interior.Color = RGB(235, 241, 222)
    Next n
End Sub
1
Vincent G 16 oct. 2018 a las 14:16

Tratar

Sub Background_color2()

    dim n as long

    With Sheets("14").Range("A479:FI945")
        For n = 0 To 14515 Step 934       '934 rows interval between 2  separate sections
            .Offset(n, 0).Interior.Color = RGB(235, 241, 222)
        Next n
    End With

End Sub
0
16 oct. 2018 a las 12:27