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

1 vote235 views1 answer
Vb.net get name by Selection Changed
VBA
1 vote233 views1 answer
Excel vba autofit
VBA
0 vote268 views1 answer
Vba userform textbox wrap text
VBA
0 vote304 views1 answer
Find control with name vb
VBA
0 vote213 views1 answer
Excel vba show developer tab
VBA
0 vote222 views1 answer
Vb net dgv doesn't keep currency format
VBA
1 vote221 views1 answer
Close form vba
VBA
4 votes232 views1 answer
Vba create directory
VBA
22 votes531 views1 answer
Xlvba check for folder
VBA
3 votes224 views1 answer
Excel vba last row in range
VBA