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 vote291 views1 answer
Return na vba
VBA
0 vote256 views1 answer
Add items to combobox vb.net
VBA
0 vote304 views1 answer
Test if form is open vb
VBA
0 vote311 views1 answer
Vba extract filename from path
VBA
18 votes426 views3 answers
Excel-vba make integer
VBA
0 vote289 views1 answer
VBA Loop to range
VBA
4 votes262 views1 answer
Excel vba how to reset usedrange
VBA
1 vote275 views1 answer
Excel vba first and last row and column in range
VBA
0 vote289 views1 answer
Excel vba textbox forecolor disabled
VBA
1 vote275 views1 answer
Vba declare api 64 bit 32 bit
VBA