Do 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 Sub

Source: spreadsheeto.com

Do until loop vba

Not IsEmpty(Cells(i, 1)) OR Not IsEmpty(Cells(i, 2))

Source: spreadsheeto.com

Similar codes

0 vote315 views1 answer
Selecttoken em vbnet e json
VBA
1 vote323 views1 answer
Vba format string as cash
VBA
0 vote300 views1 answer
How to extract a file from an ISO:
VBA
0 vote315 views1 answer
Excel vba chrw max value
VBA
0 vote315 views1 answer
Vbnet make a string to unicode converter
VBA
-1 vote328 views1 answer
How save excel through visual basic
VBA
0 vote309 views1 answer
Vbscript Trim
VBA
11 votes446 views1 answer
Excel vba How to URL encode a string
VBA
8 votes377 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote296 views1 answer
Quit excel with save changes dialog vb.net
VBA