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

2 votes317 views1 answer
Vba split string
VBA
0 vote345 views1 answer
Vbnet revrese the order of character in string
VBA
0 vote255 views1 answer
Vba code to remove leading and trailing spaces
VBA
3 votes312 views1 answer
Vba make long from two shorts
VBA
5 votes305 views1 answer
Excel vba high word from Long Integer
VBA
0 vote328 views1 answer
Vba cell all borders
VBA
0 vote343 views4 answers
Vgrive,deb
VBA
1 vote302 views1 answer
Vba delete array element
VBA
0 vote336 views2 answers
Get unique random number in vb.net
VBA
0 vote336 views1 answer
Find if year is leap year vb
VBA