eliminar filas

[estepanuno]

Hola a todos,me interesaria una macro que me pudiera eliminar las filas que no coincidieran con una condicion en concreto esta seria el nombre.

Lo que me interesaria no seria el borrar los datos sino eliminar la fila

Gracias a todos por vuestro trabajo

eliminar nombre que no coincidan.xls

[chevet]

Buenos dias

prueba esta solucion es algo rudimentaria pero funciona

Saludos

eliminar nombre que no coincidan.xls

[Antoni]

Hola:

Aquí tienes una macro que hace lo que pides.

Sub EliminarNoPacosNoPepes()


    Dim Rango As Range, Fila As Long, ÚltimaFila As Long


    Application.ScreenUpdating = False


    ÚltimaFila = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

    For Fila = ActiveSheet.UsedRange.Row To ÚltimaFila

       Application.StatusBar = "Procesando fila " & Fila & " / " & ÚltimaFila

       If (Range("E" & Fila).Value <> "paco" And _

           Range("E" & Fila).Value <> "pepe") Then

           If Rango Is Nothing = True Then

              Set Rango = Rows(Fila)

           Else

              Set Rango = Application.Union(Rango, Rows(Fila))

           End If

       End If

    Next Fila


    If Rango Is Nothing = False Then

       Rango.Select

       Selection.Delete

       ActiveCell.Select

    End If


    Application.StatusBar = "Listo"

    Application.ScreenUpdating = True


End Sub



[/CODE]

Macro creada automáticamente con este aporte.

https://www.ayudaexcel.com/foro/ideas-aportes-64/macro-que-crea-macros-para-seleccionar-copiar-mover-eliminar-resaltar-ocultar-filas-25907/

[estepanuno]

La respuesta me ha funcionado de **** madre,no hay que decir que estoy empezando con esto de las macros,al intentar ejecutar la siguiente se me borra todo,como lo puedo solucionar

Daros de nuevo las gracias a todos

eliminar nombre que no coincidan 1.xls