Eliminar filas de excel con cierto criterio

[RAFAREVALO]

Iniciado por 3pies

Suponiendo que en la Hoja1 tienes los datos con los emails incorrectos, y en la Hoja2 tienes los mails que sabes que son incorrectos y que quieres localizar en la Hoja1, para eliminar la fila correspondiente, ...entonces prueba este macro:

Código:

Sub eliminar_correos()
'ocultamos el procedimiento
Application.ScreenUpdating = False
'nos situamos en la hoja2
Hoja2.Select
'y en la primera celda con datos
Range("A1").Select
'hasta que no encuentre una fila vacía...
Do While Not IsEmpty(ActiveCell)
   'pasamos a una variable el dato de la celda
    celda = ActiveCell
   'volvemos a la hoja1
    Hoja1.Select
   'buscamos el dato de la Hoja2 en esta Hoja1
    Cells.Find(What:=celda).Activate
   'eliminamos la fila
     Selection.EntireRow.Delete
    'volvemos a la hoja2     Hoja2.Select
    'bajamos una fila
     ActiveCell.Offset(1, 0).Select
Loop
'mostramos el procedimiento
Application.ScreenUpdating = True
End Sub