Cómo eliminar las filas que contienen una palabra especificada

Hoy te presento una macro sencilla pero muy útil, que elimina las filas que contienen una determinada palabra.

Imagina una lista de facturas, las cuales unas han sido ya pagadas, pero otras siguen pendientes del pago.

Con el siguiente código podrías eliminar de la lista todas las facturas que han sido pagadas, para poder contactar más fácilmente con los clientes de las facturas que todavía están sin pagar:

 

Sub EliminaFilas()

    Dim Col As Variant, Palabra As String
    Col = InputBox("¿En qué columna contiene las palabras que deseas eliminar?")

    If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col)
    Palabra = InputBox("Qué palabra o palabras deseas buscar para eliminar las filas?")

    With Columns(Col)
        .Replace Palabra, "#N/A", xlWhole
        .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
    End With

End Sub

 

Una ventaja bastante buena con respecto a otras soluciones es que funciona igualmente aunque haya filas en blanco entre las filas con datos.

Te dejo el archivo para que practiques y me digas qué te parece.

 

Listado de facturas
Título: Listado de facturas (594 clics)
Tamaño: 17 KB

¿Me ayudas a promocionar este contenido?

Share on facebook
Facebook
Share on google
Google+
Share on twitter
Twitter
Share on linkedin
LinkedIn
Consultoría plantillas Excel
Foro Excel
La destreza y el perfeccionismo quizá sean las dos virtudes que me permiten ayudar a mis clientes a facilitar las tareas administrativas de sus negocios... y son las culpables de que me guste el origami. +info.

¿Quieres ahorrarte horas de trabajo diario?

macros excel manual

Descarga este informe y aprenderás a crear tus propias macros de forma rápida y sencilla

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Gestionar y enviar información de boletines y promociones a través de correo electrónico.

Legitimación: Consentimiento del interesado.

Destinatarios: Tus datos se encuentran alojados en mi hosting Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.