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 vote268 views1 answer
Reset border color textbox vba
VBA
2 votes259 views2 answers
Constructor vb.net
VBA
0 vote277 views2 answers
How to concatenate more than 40 lines in vba
VBA
15 votes366 views1 answer
Excel vba wait
VBA
1 vote244 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote259 views1 answer
Vb window.minimize
VBA
0 vote274 views1 answer
String contins in vba
VBA
0 vote261 views1 answer
Vb streamreader
VBA
0 vote270 views1 answer
How to set location and size of new from vb
VBA
0 vote273 views1 answer
Dlete rows with blanks and space " " vba
VBA