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 vote259 views1 answer
Vba format string as cash
VBA
0 vote213 views1 answer
Excel vba address not absolute
VBA
0 vote245 views1 answer
Vbscript check if string contains
VBA
0 vote284 views1 answer
Visual basic run command
VBA
0 vote213 views1 answer
How to set location and size of new from vb
VBA
0 vote230 views1 answer
Date as number vb
VBA
0 vote161 views1 answer
Vba select file in folder
VBA
1 vote163 views1 answer
Ms access open form to new record
VBA
0 vote233 views1 answer
Excel vba Column Name from Column Number
VBA
0 vote244 views1 answer
Vba table header name
VBA