[ Dusan N. @ 04.11.2016. 09:22 ] @
Kako da mi sadrzaje popunjenih celija iz kolone D prebaci u polje C2, stim da izmedju vrijednosti bude separator ;?
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


Pozdrav.


[Edit: Tagovi]

[Ovu poruku je menjao 3okc dana 04.11.2016. u 12:47 GMT+1]
[ 3okc @ 04.11.2016. 11:49 ] @
Pokušaj sa funkcijom kojoj ćeš proslediti opseg a ona da ti vrati spojene vrednosti. U ćeliju kucaš recimo =rng2str(d2:d200)

Code:

Option Explicit

Function rng2str(ops As Range) As String
Dim i As Integer
Dim cl As Range
Dim arr() As String

    rng2str = "Nema vrednosti u opsegu!"
    i = Application.CountA(ops)
    If i = 0 Then GoTo kraj
    ReDim arr(i)
    i = 0
    rng2str = ""
    For Each cl In ops.Cells
        If cl.Value <> "" Then
            arr(i) = cl.Value
            i = i + 1
        End If
    Next cl
    rng2str = Join(arr, ";")
kraj:
End Function
[ Dusan N. @ 04.11.2016. 12:18 ] @
Hvala puno,

To je to,

Pozdrav