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 vote145 views1 answer
Vba compile error object required
VBA
0 vote155 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote165 views2 answers
Vb.net include quotes in string
VBA
1 vote187 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
0 vote171 views1 answer
Vba keep command window open
VBA
1 vote170 views1 answer
Vb.net get name by Selection Changed
VBA
0 vote160 views1 answer
Internet explorer reference vba
VBA
1 vote157 views2 answers
Vba string to date
VBA
0 vote153 views1 answer
Add Formula to Shape Text in VBA
VBA
0 vote164 views1 answer
Show unix time in vba
VBA