Aantal gegevens samenvoegen

[kees130]

Beste pro's,

Kolommen A t/m E bevatten gegevens.
Ik heb zelf iets proberen te maken in kolom G.
In kolom I staat hoe ik het graag zou hebben.
Dezelfde routes moeten opvolgend samengevoegd worden.

Alvast bedankt.

Groet,
Kees

 

[AlexCEL]

Gebruik je Excel 365? Dan zou zoiets kunnen:

=ALS(D1<>D2;"Route "&D2&" - "&TEKST.COMBINEREN(" ";WAAR;FILTER($C$2:$C$14;$D$2:$D$14=$D2;""));"")

 

[kees130]

Ik gebruik Professional Plus 2013

Bij mij geeft excel een foutmelding aan, namelijk "Deze functie is ongeldig".
Bij Filter gaat iets mis zo te zien.

 

[JEC.]

Met hulpkolommen dan. Bij Tekst.Combineren gaat het waarschijnlijk al mis

 

[kees130]

Dankjewel JVeer.
Alleen krijg ik bij wijzigingen #NAAM? te zien in kolom I.
Deze wijzingen komen wel goed door naar de hulpkolommen.

 

[JEC.]

Ik zou zo even niet weten waar dat aan ligt... wat is je verandering

 

[kees130]

Bij veranderingen in kolommen A t/m E krijg ik deze foutmelding.
Dagelijks moet ik namelijk de gegevens in deze kolommen vervangen.

 

[AlexCEL]

De functie TEKST.SAMENV is niet beschikbaar in Excel 2013.

 

[JEC.]

Ik kan het niet reproduceren. Probeer eens tekst.samenvoegen ipv tekst.samenv

edit: kijk, Alex bevestigt het:thumb:

 

[AlexCEL]

In bijlage nog een optie, ook met hulpkolommen (die je eventueel kunt verbergen).

Let op: de functies in de hulpkolommen zijn matrixfuncties, die moet je afsluiten met Control+Shift+Enter in Excel 2013.

 

[kees130]

Hartelijk dank Alex.
Hij werkt naar behoren.

Fijne avond allemaal.

 

[JEC.]

Met een macro kan ook nog

Edit: tip van hsv verwerkt

Sub j()
 jv = Cells(2, 1).CurrentRegion
  With CreateObject("scripting.dictionary")
    For i = 1 To UBound(jv)
      .Item(jv(i, 4)) = .Item(jv(i, 4)) & "-" & jv(i, 3)
    Next
       ar = Application.Transpose(Array(.Keys, .items))
    For ii = 1 To UBound(ar)
       b = Application.Match(ar(ii, 1), Columns(4), 0)
       If IsNumeric(b) Then Cells(b, 9) = "Route " & ar(ii, 1) & ar(ii, 2)
    Next
  End With
End Sub

 

[HSV]

Voor ik het helemaal ga veranderen.
Valt me zo op:

'Cells(2, 14).Resize(.Count, 2) = Application.Transpose(Array(.Keys, .items))
       ar = Application.Transpose(Array(.Keys, .items))

 

[HSV]

@JVeer,

Ik wil hem je niet onthouden ondanks je aanpassing.

Sub j_hsv()
 jv = Cells(2, 1).CurrentRegion
  With CreateObject("scripting.dictionary")
    For i = 1 To UBound(jv)
      .Item(jv(i, 4)) = .Item(jv(i, 4)) & "-" & jv(i, 3)
    Next
       ar = Application.Transpose(Array(.Keys, .items))
       ReDim sv(UBound(jv))
    For ii = 1 To UBound(ar)
       b = Application.Match(ar(ii, 1), Columns(4), 0)
       If IsNumeric(b) Then sv(b - 2) = "Route " & ar(ii, 1) & ar(ii, 2)
    Next
  End With
 Cells(2, 14).Resize(UBound(jv)) = Application.Transpose(sv)
End Sub

 

[cow18]

3 keer bijna hetzelfde, zie bijlage kolommen 13-15.
Ik handelde alles binnen de dictionary af.

 

[HSV]

Netjes Bart.

 

[snb]

Of een simpele draaitabel