Macro para eliminar filas con un criterio ¿?

[eugeniocol]

Hola buenas.

Busco una Macro, ejemplo que comenzando en la  fila 6 elimine las filas desde 6>12 salte 2 filas sin eliminar y continúe eliminado desde las filas 13>14 salte 2 filas sin eliminar y así hasta la fila ejemplo  1.000

O sea eliminar 7 filas saltar 2 sin eliminar y así hasta la 1.000

Saludos….

[Israel Cassales]

En base a lo explicado la siguiente sentencia cumple con esas características:

Sub EliminarFilas()
    Dim i As Long
    For i = 1000 To 6 Step -1
        If (i - 6) Mod 9 < 7 Then
            Rows(i).Delete
        End If
    Next i
End Sub

 

[Israel Cassales]

AYUDA EXCEL - Macro para eliminar filas con un criterio.xlsb

[Antoni]

Otra forma

Sub Eliminar()
Dim Rango As Range
With ActiveSheet
   Set Rango = .Range("6:12")
   For x = 15 To .UsedRange.Rows.Count Step 9
      Set Rango = Union(Rango, .Rows(x).Resize(7))
   Next
End With
Rango.Delete
End Sub