verifica una condizione e se risulta vera continua ad eseguire l'azione finché non é falsa

sintassi:
Do While CONDIZIONE che deve risultare vera per eseguire le istruzioni

istruzioni
Loop ripeti il ciclo


se vuoi che le istruzioni vengano eseguite almeno una volta:
Do inizio del ciclo

istruzioni
Loop While CONDIZIONE che deve risultare vera per ripetere il ciclo


esempio: finché la cella non é vuota spostati verso il basso
Do While ActiveCell <> ""

ActiveCell.Offset(1,0).Range("A1").Select
Loop


esempio: spostati verso il basso e poi finché la cella non é vuota spostati verso il basso
Do

ActiveCell.Offset(1,0).Range("A1").Select
Loop While ActiveCell <> ""



esiste l'istruzione Exit Do che forza l'uscita dal ciclo

esempio: si sposta verso il basso ma ase la cella é uscita allora esce dal ciclo forzatamente
Do While ActiveCell <> ""

if ActiveCell = "uscita" the Exit Do
ActiveCell.Offset(1,0).Range("A1").Select
Loop


Do - Until

verifica una condizione e se risulta falsa continua ad eseguire l'azione finché non é vera

sintassi:
Do Until CONDIZIONE che deve risultare falsa per eseguire le istruzioni

istruzioni
Loop ripeti il ciclo


se vuoi che le istruzioni vengano eseguite almeno una volta:
Do inizio del ciclo

istruzioni
Loop Until CONDIZIONE che deve risultare falsa per ripetere il ciclo


esempio: finché la cella non é vuota spostati verso il basso
Do Until ActiveCell = ""

ActiveCell.Offset(1,0).Range("A1").Select
Loop


esempio: spostati verso il basso e poi finché la cella non é vuota spostati verso il basso
Do

ActiveCell.Offset(1,0).Range("A1").Select
Loop Until ActiveCell = ""


esiste anche per Do Until l'istruzione Exit Do che forza l'uscita dal ciclo