Eliminar una celda según texto

Tengo una macro que elimina las celdas con un texto concreto pero me funciona en algunas hojas y en otras me sale el error 13 de ejecución. ¿Alguien podría ayudarme?

Sub eliminar_celda()

For Each c In Range("A1:KK65020")
If c = "Steel" Then c.EntireRow.Delete
Next
End Sub

1 Respuesta

Respuesta

¿Qué características distintas tienen las hojas en las que sí resulta y las que no? Asimismo ¿estás seguro de que esa es toda la rutina en la que comentas sale el error? ¿Ese error lo marca en la línea del "For"? ¿No te estará faltando algún detalle?

Abraham Valencia

Hola Abraham, el error me lo denuncia en la línea if c="Steel" then

La diferencia es que me da error en la hoja en dónde he volcado datos a través de otra macro, el rango de datos es bastante numeroso (300 filas )

No termino de ver/entender el problema ¿será posible ver el archivo, o al menos parte de él, y así analizar mejor el error?

Comentas

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas