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 vote212 views1 answer
How to mount floppy disks in vb.net
VBA
0 vote191 views1 answer
Vba get text file content
VBA
0 vote204 views1 answer
Send text to clipboard vb.net
VBA
4 votes185 views1 answer
Excel formula for last non-empty cell in a column
VBA
0 vote190 views1 answer
Vb.net visible property dgv collumn not working
VBA
0 vote189 views1 answer
Excel vba range contains
VBA
2 votes154 views1 answer
Excel vba pause
VBA
5 votes210 views1 answer
Excel vba left word from Long Integer
VBA
0 vote198 views1 answer
Vba border weight
VBA
0 vote191 views1 answer
Compare dates vb
VBA