Do While Jika Tidak Sama Dengan Kosong

 Public Sub ExampleDoWhileCalcLoop()

Dim i As Integer

i = 5

Do While Cells(i, 2) <> ""

Cells(i, 3).Value = Cells(i, 2).Value + 30

i = i + 1

Loop

============================

Public Sub DoUntilLoopEx()

Dim i As Integer

i = 1

Do Until IsEmpty(Cells(i, 1))

Cells(i, 1).Value = "info"

i = i + 1

Loop

=============================

Public Sub DoLoopUNTIL()

Dim i As Integer

i = 1

Do

Cells(i, 1).Value = "farmasi"

i = i + 1

Loop Until IsEmpty(Cells(i, 1))