excel lijst transponeren per nummer

[tobi-wan]

Hoi,

Ik weet hoe je een lijst kan transponeren maar is er ook een formule mogelijk om uit een lijst met verschillende overeenkomende nummers alle waarde achter de overeen komende nummers te transponeren?

vb:
1111 acb
1111 cfg
1111 frd
2222 edf
2222 rgf
3333 fgh

wordt dan:
1111 abc cfg frd
2222 edf rgf
3333 fgh

alvast bedanktBekijk bijlage pickupgroepen.xlsx

 

[eppieelco]

Een zelfde probleem alleen een andere vorm

Hallo forumleden,

ik heb een zelfde probleem als tobi-wan alleen een iets gewijzigde vorm maar komt op hetzelfde neer.
Heb een voorbeeld bijgevoegd. Hierin gaat het erom dat de nummers van sectie 1 achter nummer 1 getransponeerd worden inclusief het sectie nummer. Heb het hele forum al afgezocht maar kan het juiste antwoord niet vinden. Wie kan mij helpen??


Met vriendelijke groet,

Eppieelco

 

[WHER]

Tobi-wan,
Probeer deze eens, run de macro "Overzicht"

 

[gaggie]

kijk ook hier eens naar:

http://www.helpmij.nl/forum/showthr...ls-er-wordt-voldaan-aan-iets?highlight=gaggie

 

[eppieelco]

Hallo WHER,

heb de macro overzicht geprobeerd; werkt voor mij perfect, bedankt.

Eppieelco.

 

[snb]

of

Sub snb_001()
  sn = Cells(4, 2).CurrentRegion

  y = 1
  For j = 1 To UBound(sn) - 1
    If sn(y, 1) = sn(j + 1, 1) Then
        sn(y, 3) = sn(y, 3) & "_" & sn(j + 1, 3)
        sn(j + 1, 1) = ""
      Else
        y = j + 1
    End If
  Next

  Cells(4, 2).CurrentRegion.Offset(, 6) = sn
  Columns(6).SpecialCells(4).EntireRow.Delete
End Sub

 

[tobi-wan]

De Macro werk perfect.

Bedankt