Primjer petlje Do Until za koristenje.
Code:
Sub SastaviCelije()
Dim c As Object
Set c = ActiveCell
Dim b As String
Range("d6").Select
Do Until IsEmpty(c.Value)
With c
If c.Value <> "" Then
b = ActiveCell.Value
Range("c3") = b
End If
Set c = c.Offset(1, 0)
End With
Loop
End Sub
Sub SastaviCelije()
Dim c As Object
Set c = ActiveCell
Dim b As String
Range("d6").Select
Do Until IsEmpty(c.Value)
With c
If c.Value <> "" Then
b = ActiveCell.Value
Range("c3") = b
End If
Set c = c.Offset(1, 0)
End With
Loop
End Sub
Pozdrav.
[Edit: Tagovi]
[Ovu poruku je menjao 3okc dana 04.11.2016. u 12:47 GMT+1]