estoy atascado en una estupidez.. Necesito eliminar las filas de un archivo de excel que NO cumplen condición, he conseguido eliminar las que si la cumplen, con éste código:
Código:
Sub EliminarFilas()
'Hacemos un bucle Do While el cual se ejecutará hasta que haya una celda vacía
Do While ActiveCell.Value <> ""
'La condición es que si comienza con "x_ "...
If Mid(ActiveCell.Value, 1, 3) = "x_ " Then
'... elimina la fila
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
Else
End If
'Recorre una fila hacia abajo
ActiveCell.Offset(1, 0).Select
Loop
End Sub
'Hacemos un bucle Do While el cual se ejecutará hasta que haya una celda vacía
Do While ActiveCell.Value <> ""
'La condición es que si comienza con "x_ "...
If Mid(ActiveCell.Value, 1, 3) = "x_ " Then
'... elimina la fila
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
Else
End If
'Recorre una fila hacia abajo
ActiveCell.Offset(1, 0).Select
Loop
End Sub
pero yo quiero eliminar las que no cumplen la condición
En fin, espero su consejo.. Saludos y buen día!!