Foros del Web » Soporte técnico » Ofimática »

Eliminar filas de excel con cierto criterio

Estas en el tema de Eliminar filas de excel con cierto criterio en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 18/05/2010, 02:52
 
Fecha de Ingreso: junio-2006
Mensajes: 14
Antigüedad: 17 años, 9 meses
Puntos: 0
Eliminar filas de excel con cierto criterio

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
  #2 (permalink)  
Antiguo 18/05/2010, 04:40
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 3 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
  #3 (permalink)  
Antiguo 18/05/2010, 09:40
 
Fecha de Ingreso: junio-2006
Mensajes: 14
Antigüedad: 17 años, 9 meses
Puntos: 0
Respuesta: Eliminar filas de excel con cierto criterio

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!!
  #4 (permalink)  
Antiguo 18/05/2010, 10:01
 
Fecha de Ingreso: junio-2006
Mensajes: 14
Antigüedad: 17 años, 9 meses
Puntos: 0
Respuesta: Eliminar filas de excel con cierto criterio

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

muchisimas gracias!!
  #5 (permalink)  
Antiguo 18/05/2010, 10:07
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 3 meses
Puntos: 144
Respuesta: Eliminar filas de excel con cierto criterio

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.
  #6 (permalink)  
Antiguo 18/05/2010, 10:34
 
Fecha de Ingreso: junio-2006
Mensajes: 14
Antigüedad: 17 años, 9 meses
Puntos: 0
Respuesta: Eliminar filas de excel con cierto criterio

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!!
  #7 (permalink)  
Antiguo 22/05/2010, 10:52
 
Fecha de Ingreso: mayo-2010
Mensajes: 2
Antigüedad: 13 años, 10 meses
Puntos: 0
Respuesta: Eliminar filas de excel con cierto criterio

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
  #8 (permalink)  
Antiguo 29/06/2010, 18:15
 
Fecha de Ingreso: junio-2010
Mensajes: 2
Antigüedad: 13 años, 8 meses
Puntos: 0
De acuerdo Respuesta: Eliminar filas de excel con cierto criterio

Cita:
Iniciado por 3pies Ver Mensaje
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
  #9 (permalink)  
Antiguo 29/06/2010, 18:16
 
Fecha de Ingreso: junio-2010
Mensajes: 2
Antigüedad: 13 años, 8 meses
Puntos: 0
Respuesta: Eliminar filas de excel con cierto criterio

muy bueno. muchas gracias, busqué en otros lados y sua yuda fue la única.
  #10 (permalink)  
Antiguo 13/08/2012, 06:35
 
Fecha de Ingreso: febrero-2011
Mensajes: 17
Antigüedad: 13 años, 1 mes
Puntos: 0
Respuesta: Eliminar filas de excel con cierto criterio

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
  #11 (permalink)  
Antiguo 14/08/2012, 02:22
 
Fecha de Ingreso: febrero-2011
Mensajes: 17
Antigüedad: 13 años, 1 mes
Puntos: 0
Respuesta: Eliminar filas de excel con cierto criterio

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.

Última edición por mfyorugua; 14/08/2012 a las 06:18

Etiquetas: eliminar, excel, filas
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 02:31.