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

3 votes254 views1 answer
Excel insert blank row for value change in column
VBA
0 vote264 views1 answer
Send text to clipboard vb.net
VBA
0 vote256 views1 answer
Excel vba set cell value to empty
VBA
0 vote221 views2 answers
Excel vba prevent save
VBA
0 vote240 views1 answer
Excel delete ever other vba
VBA
0 vote260 views1 answer
Return na vba
VBA
0 vote255 views1 answer
Vba clear collection
VBA
1 vote239 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
0 vote274 views1 answer
.net crash app
VBA
0 vote233 views1 answer
Type excel.application is not defined vb
VBA