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 vote320 views1 answer
How to use VBA to add new record in MS Access?
VBA
1 vote327 views1 answer
Excel date to unix timestamp
VBA
5 votes350 views1 answer
Excel formula how to create strings containing double quotes
VBA
9 votes475 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote332 views1 answer
How to extract a file from an ISO:
VBA
0 vote340 views1 answer
Excel vba round to whole number
VBA
0 vote366 views1 answer
Excel vba Column Name from Column Number
VBA
0 vote293 views1 answer
Excel vba arrondir
VBA
0 vote319 views1 answer
Excel vba disable mouse click
VBA
1 vote339 views1 answer
Excel vba saveas force overwrite
VBA