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

1 vote189 views1 answer
How to check is the value enterd is a number or text in vba
VBA
0 vote187 views1 answer
Move bindingnavigator vb
VBA
8 votes444 views1 answer
Excel vba make word from bytes
VBA
0 vote199 views1 answer
Visual stuiod not recognising desgined labels
VBA
0 vote186 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
0 vote184 views1 answer
Excel vba chrw max value
VBA
0 vote192 views1 answer
Date as number vb
VBA
1 vote210 views1 answer
Excel vba first row in range
VBA
6 votes198 views1 answer
Excel vba get the path of current workbook
VBA
0 vote194 views1 answer
Write listbox to text file vb.net
VBA