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 vote163 views2 answers
Delete all controls from list of control vb.net
VBA
0 vote176 views2 answers
Open url from vba
VBA
1 vote172 views1 answer
Export datagridview to excel vb.net
VBA
0 vote163 views1 answer
How to extract a file from an ISO:
VBA
0 vote184 views1 answer
Excel web scraping
VBA
0 vote181 views1 answer
Vba clear collection
VBA
0 vote168 views1 answer
Selecttoken em vbnet e json
VBA
3 votes157 views1 answer
Vba folderexists
VBA
0 vote162 views1 answer
Check range is in another range vba
VBA
4 votes179 views1 answer
Excel vba how to get a range's full address including sheet name
VBA