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 vote241 views1 answer
Telephon call in vba
VBA
0 vote255 views1 answer
VBA Loop to range
VBA
0 vote236 views1 answer
Excel named range sum
VBA
1 vote229 views1 answer
Textbox find and replace vb
VBA
0 vote234 views1 answer
Vba get text file content
VBA
8 votes267 views1 answer
Excel vba make integer
VBA
0 vote222 views2 answers
Excel vba prevent save
VBA
0 vote287 views1 answer
Vba change active sheet
VBA
0 vote211 views1 answer
Vba code to open a file with login rights
VBA
0 vote238 views1 answer
Vba get workbook name
VBA