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 vote143 views1 answer
Vba word open document read only
VBA
0 vote150 views1 answer
Excel filter by date not working vba
VBA
2 votes142 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
0 vote152 views1 answer
Visual stuiod not recognising desgined labels
VBA
3 votes143 views1 answer
Excel insert blank row for value change in column
VBA
3 votes139 views1 answer
Vba request json
VBA
0 vote137 views1 answer
Vb check if row has column
VBA
0 vote173 views1 answer
Vb ternary
VBA
0 vote146 views1 answer
Vba array dimensions
VBA
9 votes263 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA