Ver Mensaje Individual
  #2 (permalink)  
Antiguo 18/05/2010, 04:40
Avatar de 3pies
3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.590
Antigüedad: 17 años, 4 meses
Puntos: 144
Respuesta: Eliminar filas de excel con cierto criterio

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