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 vote128 views1 answer
How to self delete a vbscript file
VBA
0 vote149 views1 answer
Vba leading zeros in string
VBA
0 vote145 views1 answer
Excel vba hide columns
VBA
1 vote154 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote161 views1 answer
Open file dialog in vb.net
VBA
0 vote150 views1 answer
Telephon call in vba
VBA
0 vote177 views2 answers
Get unique random number in vb.net
VBA
0 vote152 views1 answer
Vba first line of string
VBA
0 vote179 views1 answer
Wpf dark title bar
VBA
0 vote156 views1 answer
Excel vba copy entire sheet paste values
VBA