Eliminar filas de excel con cierto criterio

[chiflon]

Buenos dias,
Tengo un lio encima que no es normal. Tengo una lista de usuarios con su dirección, numero email, etc.
Ahora me han dado una lista de emails que son erroneos.

Me gustaria saber si es posible que a partir de la lista de emails erroneos podemos eliminar las filas de la otra lista que tengan esos emails

muchas gracias
saludos

[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

[chiflon]

holaaa, muchas gracias por responder
pero al iniciar la macro me salta este error
variable de objeto o bloque With no establecido

le di al F8 para ver de donde viene el error, y salta justo en "Cells.Find(What:=celda).Activate"

Saludos!!

[chiflon]

creo que ya se porque es, cuando no encuentra el email salta ese error

muchisimas gracias!!

[3pies]

Pues lo acabo de probar en Excel 2003 y Excel 2007 y en ambos funciona correctamente.

Supongo que lo has grabado en un módulo, y no en una hoja...

Mira que Hoja1 y Hoja2 sean el nombre interno de las hojas (el que se ve desde la ventana del proyecto, en modo VBA). No obstante, prueba a hacerlo poniéndole el nombre que aparece en las pestañas, y cambia esto:

Código:

Hoja1.select

Por esto otro:

Código:

Sheets("Nombre de la pestaña").Select

Haz lo mismo con la Hoja2.

Por cierto, añade esta primera línea al macro:

Código:

On error resume next

Es para que no se detenga el macro al encontrar un error (por ejemplo, si un email de la Hoja2 no está en la Hoja1).

Edito: Veo que has dado con el motivo, y es lo último que te comentaba. Pon lo del On error resume next como primera línea del código, y solucionado. El macro se ejecutará hasta finalizar el trabajo, aunque encuentre errores.

[chiflon]

pfff nose como agradecertelo... me has salvado de mucho tiempo borrando emails :S
tengo que mirarme esto de las macros, salvan muchas vidas jejejeje
de nuevo muchisimas gracias!!

[javierrojas77]

Hola todos quisiera saber como puedo mostra en una ventana un reporte que previamente debo generar, en el cual se muestre una tabla, darle formato de acuerdo a las 3 primeras filas de la tabla ( o 3 primeros puestos), quisiera saber si en este reporte puedo mostrar algun grafico. Gracias de antemano

[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

[RAFAREVALO]

muy bueno. muchas gracias, busqué en otros lados y sua yuda fue la única.

[mfyorugua]

lo estoy intentando pero me sale el error que comentais pero no logro solventarlo!!!! os muestro el código a ver si me orientais.
gracias

[mfyorugua]

He estado mirando lo que habeis puesto antes, lo intento hacer y me da error y hasta me borra todos los datos en la hoja1.
No tengo ni idea de macros-

El código que tengo es:
Sub eliminar()
On Error Resume Next
'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

Me da error 91, no se que más hacer hay algo que hago mal en los pasos a seguir segun lo que cuentas pero no logro que funcione....

Soy muy nueva en esto con lo cual si la explicación puede ser lo más detallada se agradece.