Ver originales (Francés)

Eliminar automáticamente 9 líneas/10

Resuelto
djipi95 Mensajes publicados 8 Estado Miembro -  
djipi95 Mensajes publicados 8 Estado Miembro -
Hola
Quiero automatizar una tarea en xls, aparentemente bastante básica pero no tengo competencias en VBA:
Se trata simplemente de eliminar las 9 primeras filas, conservar la 10ª y así sucesivamente hasta el final
Así que conservaré las filas 1,11,21,31,41....
¿Alguna idea para programar vela?
Mil gracias por adelantado

Djipi95

1 respuesta

  1.
    Gyrus Mensajes publicados 3360 Estado Miembro 526
     
    Hola,

    Prueba con 
    Sub Test()
    Dim Línea As Long, DerLínea As Long
     DerLínea = Range("A" & Rows.Count).End(xlUp).Row
     Línea = 1
     Do While Línea < DerLínea
     Rows(Línea + 1).Resize(9).Delete
     DerLínea = DerLínea - 9
     Línea = Línea + 1
     Loop
    End Sub

    A+
    1
    1. djipi95 Mensajes publicados 8 Estado Miembro
       
      Impecable!

      Gracias de nuevo
      0