12/12/2011, 07:59
|
| | Fecha de Ingreso: diciembre-2011
Mensajes: 5
Antigüedad: 13 años Puntos: 0 | |
Respuesta: Como suprimir filas en excel con un criterio concreto? Muchísimas gracias por la info JoaoM, yo la verdad es que no sabía como funcionaba este tema.
Un programador me han pasado otra macro, la posteo aquí por si a alguien más le interesa.
Este sería el código (no me preguntes como funciona porque ni idea):
Sub elimina_filas_inutiles()
Dim primera As Long
Dim segunda As Long
Dim ultima As Long
Dim i As Long
primera = InputBox("Indique la primera fila válida", , 4)
segunda = InputBox("Indique la segunda fila válida", , 11)
ultima = ActiveCell.SpecialCells(xlLastCell).Row
For i = ultima To primera Step -1
If (i Mod (segunda - primera)) - primera <> 0 Then
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub
La macro te ilimina las filas basura y luego te junta todas las filas buenas para que queden compactadas.
Gracias y un saludo!
PD por respeto hacia el autor cito su web:
http://trucosexcel.blogspot.com/2011/12/eliminar-filas-con-cierta-periodicidad.html
Última edición por vvcepheus7; 12/12/2011 a las 08:10 |