Macro que no elimina las pagadas

11/10/2008 - 17:26 por GR | Informe spam
Un saludo a todos:

Encontre esta macro en la web (no recuerdo en donde fue) y la adapte para
que elimine las pagadas, pero he observado que no elimina todas las pagadas
va dejando una filas con pagadas y la tengo que correr varias veces para que
elimine todas, y no he encontrado donde puede estar el error de por que no
elimina todas las pagadas.
Esta es la macro:
Sub DelePagada()
Application.ScreenUpdating = False
For fila = 5 To 7500
If Cells(fila, 15).Value = "PAGADA" Then
Rows(fila).Delete
End If
Next fila
Range("O4").Select
Application.ScreenUpdating = True
End Sub

Agradezco de antemano sus comentarios
 

Leer las respuestas

#1 Ivan
11/10/2008 - 18:08 | Informe spam
hola,

que no elimina todas las pagadas
va dejando una filas con pagadas y la tengo que correr varias veces



el problema es que para eliminar filas con un bucle 'For', este debe
de ser inverso.

el tema [practicamente calcado] se ha tratado en un hilo del foro hace
muy poco ["For ...Next"]. Si quieres echar un ojo este es el vinculo
=>.

http://tinyurl.com/547syo

Fijate especialmente en la respuesta de Hector Miguel (en la que
ademas ofrece otra solucion usando areas), y si quieres una
explicacion mas o menos detallada de la causa de tu problema, leete
tambien mi 1ª respuesta en dicho hilo

espero te ayude

Un saludo
Ivan

Preguntas similares