Jump to content

Problema al salir del bucle Do While - Loop


Maria_80
Go to solution Solved by Antoni,

Recommended Posts

Hola,

He preparado un ejemplo muy básico para haceros una consulta sobre el bucle

Do While - Loop

Tengo una hoja donde hay una serie de datos en la primera columna (en el ejemplo he puesto 6 registros). El bucle de esa primera macro es así:

 

Do While Not IsEmpty(Sheets("Hoja1").Range("A2"))

Call borrar

Loop

MsgBox "FIN"

 

Lo que hace la macro borrar es eliminar el registro A2 de la hoja y luego volver a llamar a la primera macro. El problema es que cuando ya no hay datos en A2 de Hoja1 y se supone que tiene que salir del bucle y terminar con el msgBox de “FIN”, éste, se repite 6 veces, por tantos registros como datos había en la columna 1.

¿cómo puedo solucionarlo? ¿Y que al salir del bucle porque ya no hay datos el msgbox de Fin solo se haga una vez? No entiendo que una vez que ha salido se repita todas esas veces.

mil gracias.

Bucle_borrar.xlsm

Link to comment
Share on other sites

2 minutes ago, Antoni said:

Sobra el Call llamada en la macro borrar:

Sub llamada()
Do While Not IsEmpty(Sheets("Hoja1").Range("A2"))
   Call borrar
Loop
MsgBox "FIN"
End Sub

Sub borrar()
Sheets("Hoja1").Range("A2").Delete
End Sub

 

Muchas gracias, Antoni! Pensaba que tenía que ir llamando todo el rato hasta el final. Gracias!!!

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy