[es] - Spajanje vise celija u jednu sa separatorom

Dusan N.
knjigovodja
B.Polje

Član broj: 291884
Poruke: 9
*.crnagora.net.

Profil

Spajanje vise celija u jednu sa separatorom

^{04.11.2016. u 09:22 - pre 90 meseci}

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]}

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Spajanje vise celija u jednu sa separatorom

^{04.11.2016. u 11:49 - pre 90 meseci}

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

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

Dusan N.
knjigovodja
B.Polje

Član broj: 291884
Poruke: 9
79.140.159.*

Profil

Re: Spajanje vise celija u jednu sa separatorom

^{04.11.2016. u 12:18 - pre 90 meseci}

Hvala puno,

To je to,

Pozdrav

Odgovor na temu