vba do until
Sub ExitExample()
counter = 0
myNum = 9
Do Until myNum = 10
myNum = myNum - 1
counter = counter + 1
If myNum < 10 Then Exit Do
Loop
MsgBox "The loop made " & counter & " repetitions."
End Subdo until loop vba
Sub combineNamesWhile()
i = 2
Do While Not IsEmpty(Cells(i, 1)) OR Not IsEmpty(Cells(i, 2))
If IsEmpty(Cells(i, 1)) Then
Cells(i, 3).Value = Cells(i, 2)
ElseIf IsEmpty(Cells(i, 2)) Then
Cells(i, 3).Value = Cells(i, 1)
Else
Cells(i, 3).Value = Cells(i, 1) & " " & Cells(i, 2)
EndIf
i = i +1
Loop
End SubCopyright © 2021 Codeinu
Forgot your account's password or having trouble logging into your Account? Don't worry, we'll help you to get back your account. Enter your email address and we'll send you a recovery link to reset your password. If you are experiencing problems resetting your password contact us
