elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Estamos en la red social de Mastodon


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  (Excel) Eliminar filas que NO cumplen condición!!
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: (Excel) Eliminar filas que NO cumplen condición!!  (Leído 2,719 veces)
Afkael

Desconectado Desconectado

Mensajes: 56


Ver Perfil
(Excel) Eliminar filas que NO cumplen condición!!
« en: 13 Octubre 2015, 21:35 pm »

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:

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!!


En línea

0roch1

Desconectado Desconectado

Mensajes: 123



Ver Perfil
Re: (Excel) Eliminar filas que NO cumplen condición!!
« Respuesta #1 en: 13 Octubre 2015, 23:01 pm »

Solo necesitas cambiar el operador lógico en el condicional.

Código
  1. If Mid(ActiveCell.Value, 1, 3) = "x_ " Then
  2.  

por

Código
  1. If Mid(ActiveCell.Value, 1, 3) <> "x_ " Then
  2.  


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines