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 vote159 views1 answer
Vba compile error object required
VBA
0 vote202 views1 answer
Excel vba round to whole number
VBA
0 vote172 views1 answer
Vba full date format
VBA
5 votes195 views1 answer
Excel vba get low byte from INTEGER
VBA
0 vote184 views1 answer
Vba paste values
VBA
1 vote168 views1 answer
Excel vba compare 2 rows
VBA
8 votes255 views1 answer
Vba make integer
VBA
5 votes193 views1 answer
Excel-vba get integer high byte
VBA
1 vote161 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA
0 vote166 views1 answer
Vbnet dynamically change excel sheet name
VBA