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 vote120 views1 answer
Excel vba scroll to cell
VBA
1 vote120 views1 answer
Vba delete array element
VBA
1 vote130 views1 answer
Excel vba first and last row and column in range
VBA
0 vote120 views1 answer
Type excel.application is not defined vb
VBA
1 vote68 views1 answer
Vba Remove Case Sensitivity
VBA
1 vote119 views1 answer
VBA Loop through recordset
VBA
0 vote120 views1 answer
Vbnet dynamically change excel sheet name
VBA
0 vote128 views1 answer
Vbs write file
VBA
0 vote122 views1 answer
Vbs exec hidden
VBA
8 votes142 views1 answer
Excel vba make integer
VBA