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 vote312 views1 answer
Vba get text file content
VBA
1 vote339 views1 answer
Excel vba last column in range
VBA
0 vote327 views2 answers
Excel vba protect cells with formula
VBA
0 vote313 views1 answer
Excel vba open browser
VBA
0 vote372 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote328 views1 answer
Vba like with wildcard
VBA
0 vote318 views1 answer
Vba sheet visible
VBA
0 vote323 views1 answer
Vbscript check if string contains
VBA
1 vote344 views1 answer
Vba optional
VBA
0 vote361 views1 answer
Vba is integer
VBA