Eliminar renglones cada determinados renglones

[msylvestre66]

• [font=Arial, sans-serif][/font]
  Hola buenas tardes.
  Alguien me puede ayudar con esto?
  
  De antemano muchas gracias.
  
  -------------------
  Tengo un archivo plano que importo desde un
  
  sistema...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Alberto Martinez]

prueba con esto:

Sub BORRATITULOS()
Dim Cantidad As Integer, Ciclo As Integer
Cantidad = Application.WorksheetFunction.CountA(Range("A:A"), "Pagina")
Range("A1").Select
For Ciclo = 1 To...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Alberto Martinez]

la carita se sustituye por el numero 8 seguido de un cierre de parentesis )

 

[msylvestre66]

Eso se llama eficiencia!!

Muchas gracias Alberto.
Es justo lo que necesitaba.

 

[jbf99]

Otra opcion

Sub probando()
Set a = Range("1:9").Rows
For x = 1 To Int(65536 / 60)
Set a = Union(a, Range(x * 60 + 1 & ":" & x * 60 + 9).Rows)
Next x
a.Delete
End Sub

Un saludo

 

[msylvestre66]

Gracias por compartir sus conocimientos y ahorrarme mucho tiempo.

Mko.