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

11 votes259 views1 answer
Excel vba How to URL encode a string
VBA
0 vote131 views1 answer
Vba extract filename from path
VBA
0 vote121 views1 answer
Vba verticalalignment
VBA
0 vote131 views1 answer
Excel vba protect sheet
VBA
0 vote132 views1 answer
Send text to clipboard vb.net
VBA
1 vote136 views1 answer
Set font for ms chart vb.net
VBA
0 vote125 views1 answer
Excel vba address not absolute
VBA
4 votes81 views2 answers
Vba last row
VBA
0 vote156 views1 answer
Vba cell all borders
VBA
0 vote137 views1 answer
Not allow form to be resized
VBA