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 vote223 views1 answer
Vbnet add axis labels to chart
VBA
0 vote248 views1 answer
Move bindingnavigator vb
VBA
4 votes203 views1 answer
Excel vba how to reset usedrange
VBA
0 vote228 views1 answer
VB get external IP address
VBA
-1 vote207 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
0 vote233 views1 answer
Excel vba copy range with filter
VBA
0 vote251 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote220 views1 answer
.net dark title bar
VBA
8 votes306 views1 answer
Excel vba make word from bytes
VBA
5 votes232 views1 answer
Excel vba left word from Long Integer
VBA