Ver Mensaje Individual
  #11 (permalink)  
Antiguo 14/08/2012, 02:22
mfyorugua
 
Fecha de Ingreso: febrero-2011
Mensajes: 17
Antigüedad: 10 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