Analytics with Excel______________________________________RaviKanth Janapareddy
Do-Until loop
Sub DoUntilDemo()
Do Until IsEmpty(ActiveCell.Value)
ActiveCell.Value = ActiveCell.Value * 2
ActiveCell.Offset(1, 0).Select
Loop
End Sub
No comments:
Post a Comment