Imprimir página | Cerrar ventana

Subir una fila hacia arriba (offset)

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=58181
Fecha de impresión: 14/Noviembre/2019 a las 15:38


Tema: Subir una fila hacia arriba (offset)
Publicado por: cyberagente
Asunto: Subir una fila hacia arriba (offset)
Fecha de publicación: 14/Julio/2009 a las 17:21
Hola,
tengo un For en el que quiero que me busque las filas que están vacías y me las borre.

For Each cell In Range("A10:A1500")
If cell = "" Then
cell.EntireRow.Delete
cell.Offset(-1)
End If
Next

El problema está cuando hay más de una fila vacía seguida. Ya que me borra la primera que encuentra, pero la segunda se la salta y sigue por la tercera.
Para solucionarlo puse la sentencia Cell.Offset(-1) y todas las variantes posibles pero siempre me da error.

¿qué error tengo?



Respuestas:
Publicado por: AnSanVal
Fecha de publicación: 14/Julio/2009 a las 17:52
Debes construir el bucle en sentido inverso, es decir; desde la fila 150 a la 10.

-------------
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi http://achinet.mvp-access.es/" rel="nofollow - sitio_web con ejemplos Excel.


Publicado por: cyberagente
Fecha de publicación: 14/Julio/2009 a las 20:53
entendido.
y si no utilizaré una varibale qué me diga en qué fila estoy y usar un For normal en vez de For Each

muchas gracias



Imprimir página | Cerrar ventana