formule voor het zoeken en samenvoegen van 2 gegevens

[essiedewy]

Ik zoek een formule waarmee ik in "artikel met land" kolom B alle landen kan zetten per artikel; zie "land geschiedenis= pivottable"
Niet alle artikelen staan daarin, en meerdere landen per artikel..
Ik hoop dat jullie me op weg kunnen helpen. (engelse versie)

 

[gast0660]

Ik zoek een formule

Gezien mijn kennis van formules zo roest is als ...... waag ik me er hier niet aan.
Maar misschien?

Ik hoop dat jullie me op weg kunnen helpen.

Zoiets?
Volgens mij, (als ik je vraag goed heb begrepen) als het niet in uw "pivottable" te vinden is krijg je het "no country" dingetje ook niet in een samenvatting.
Maar wie ben ik, er zijn hier op het forum veel slimmere dan ik, misschien krijg je betere oplossingen.

 

[HSV]

Elke rij alfabetisch.

Sub hsv()
Dim sn, sp, i As Long, ii As Long, c00 As String, cl
sn = Sheets(2).Cells(1).CurrentRegion
sp = sn
  For i = 2 To UBound(sn)
   For ii = 1 To UBound(sn)
     If sn(ii, 1) = i - 1 Then c00 = c00 & "\" & sn(ii, 2)
   Next ii
        With CreateObject("System.Collections.ArrayList")
            For Each cl In Split(Mid(c00, 2), "\")
                If Not Trim(cl) = "" Then .Add Trim(cl)
            Next
          .Sort
      sp(i, 1) = i - 1
      sp(i, 2) = IIf(.Count > 0, Join(.toarray, "\"), "no country")
      c00 = ""
     End With
   Next i
  Sheets(1).Cells(1).Resize(Application.Max(Sheets(2).Columns(1)) + 1, 2) = sp
 End Sub

 

[gast0660]

@ HSV perfecte code :thumb::thumb:, droge worst met kruidnagelhapper:d

 

[essiedewy]

Ok HSV, Dat is mij echt te abracadabra hahahaha

 

[HSV]

Ik mag aannemen dat je met macro's overweg kunt, en hiermee je vraag is beantwoord?

 

[essiedewy]

Zoals ik altijd zeg " assumption is the... "
Ik ben nog steeds een beginner op excel gebied.
Dus dit soort verzameling van letters cijfers ed is voor mij echt abracadabra..

 

[HSV]

Klik.