Hola!!
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:
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
pero yo quiero eliminar las que no cumplen la condición :-\
En fin, espero su consejo.. Saludos y buen día!!
Solo necesitas cambiar el operador lógico en el condicional.
If Mid(ActiveCell.Value, 1, 3) = "x_ " Then
por
If Mid(ActiveCell.Value, 1, 3) <> "x_ " Then