Kolommen vergelijken en zelfde gegevens naast elkaar zetten

[Phill]

Ik heb drie kolommen, gevuld met soms dezelfde gegevens en soms afwijkende gegevens.
Nu wil ik graag dat de cellen die hetzelfde zijn in dezelfde rij worden gezet.
Ik heb een voorbeeld bijgevoegd.
Kolom A tm C zijn de kolommen en rijen die vergeleken moeten worden
Kolom E tm G zijn de kolommen en rijen hoe ik het graag zou willen hebben.

In het echt gaat het om soms wel 50 rijen.

Bekijk bijlage Map1.xlsx

Is dit mogelijk en zo ja, hoe pak ik dit aan?

 

[VenA]

Kan je ook even uitleggen welke logica hierin zit? Ik zie het denk ik wel maar begrijp het nut niet?

 

[Phill]

De kolommen komen vanuit 3 verschillende bestanden van 3 verschillende personen.
Ik wil met het overzicht in een blad de verschillen duidelijk zichtbaar krijgen.

 

[VenA]

Dat krijg je op deze manier niet. Dus laat even zien hoe het er werkelijk uitziet.

 

[Phill]

Het ziet er uit zoals ik het in de bijlage heb gezet (kolom A tm C)

De cellen die hetzelfde zijn moeten in dezelfde rij te staan
Komt een cel alleen in kolom A voor blijven de kolommen B en C leeg
Komt een cel alleen in B voor, blijven de kolommen A en C leeg.

Kolom E tm G is dus het resultaat van de eerste drie kolommen.

Als ik het handmatig moet doen kijkende naar de gegevens, knip ik B3 tm laatst gevulde cel in kolom B en plaats de geknipte cellen in B4
Vervolgens knip ik A4 tm laatst gevulde cel in kolom A en plaats de geknipte cellen in A5.
De cel C4 hoort in dit overzicht dus in cel C6.

 

[MarcelBeug]

Hierbij mijn inzending waarbij op basis van formules in 5 stappen het resultaat wordt bereikt, in de vorm van gesorteerde gegevens (wijkt ietsjes af van het voorbeeld).

 

[HSV]

Misschien moeten er nog wat voorwaarden worden ingezet, maar volgens mij voldoet dit wel zo'n beetje.

Sub hsv()
Dim sn, sq, arr, i As Long, n As Long
sn = Cells(1).CurrentRegion
ReDim arr(UBound(sn) * UBound(sn), 2)
 For i = 2 To UBound(sn)
    If sn(i, 1) = sn(i, 2) And sn(i, 2) = sn(i, 3) Then
        arr(n, 0) = sn(i, 1)
        arr(n, 1) = sn(i, 2)
        arr(n, 2) = sn(i, 3)
                n = n + 1
      ElseIf sn(i, 1) = sn(i, 2) And sn(i, 2) <> sn(i, 3) Then
        arr(n, 0) = sn(i, 1)
        arr(n, 1) = sn(i, 2)
                n = n + 1
        arr(n, 2) = sn(i, 3)
                n = n + 1
      ElseIf sn(i, 1) <> sn(i, 2) And sn(i, 1) = sn(i, 3) Then
        arr(n, 0) = sn(i, 1)
        arr(n, 2) = sn(i, 3)
                n = n + 1
        arr(n, 1) = sn(i, 2)
                n = n + 1
     End If
  Next i
 Cells(2, 10).Resize(n, 3) = arr
End Sub

 

[Phill]

Bedankt MarcelBeug. Super!!
Precies wat ik nodig heb. Hier kan ik mee aan de slag.

 

[MarcelBeug]

Graag gedaan. Succes!