Excel kollom vergelijken en naast elkaar plaatsen

[kohltje]

Hallo,

Kan iemand mij helpen met het volgende:

Ik heb een lijst met 2 database gegevens.
de kolommen met de ID: PROC_ID moeten vergeleken worden (de groene en witte kollom).
Dit wil zeggen dat de kollom DATABASE_ENTRY moet worden samengevoegd en op de plaatsen achter de PROC_ID rijen worden geplakt (die NIET groen is gemaakt, er zijn er namelijk 2 vanwege 2 databases). Omdat de gegevens in de kolom van DATABASE_ENTRY meerdere personen bevat onder dezelfde PROC_ID code (witte kollom).

Nu moet vervolgens de 2 kollommen van PROC_ID met elkaar vergeleken worden om zo te kunnen zien welke er verschillen. Als de groene PROC_ID tabel gegevens bevat die niet voorkomen in de witte tabel met PROC_ID, dan moet dit als klopt niet worden betiteld.

In de bijlage vinden jullie een Test.xls

Hoop dat iemand mij kan helpen? Alvast bedankt

 

[kohltje]

Helpppp

Niemand een antwoord op mijn vraag?

 

[wampier]

misschien wel, maar voor mij is echt de vraag niet duidelijk.

En het deel wat ik begrijp, vraag ik me af, waarom je geen JOIN op je databases gooit?

Het antwoord mag niet achter de groene kolom.. waar dan wel? Volgens mij wil je waarschijnlijk iets met "VLOOKUP" maar het doel is me niet helemaal duidelijk.

 

[kohltje]

Hoi Wampier

Ik kom niet zo diep aan de database vanwege restricties erop
Dan zal ik het stap voor stap uitleggen:
- Hoe krijg ik het voor elkaar om dezelfde gegevens die horizontaal staan vervolgens verticaal achter elkaar?
Voorbeeld: in de bijlage is een document waar je kunt zien dat 29010 meerdere malen voorkomt (verticaal) maar met een andere naam erachter. Nu wil ik dat het nummer 1 keer voorkomt met meerdere namen erachter op een horizontale rij.

Kun jij/ of iemand anders mij hier alvast mee helpen?

Thanx!

 

[sylvester-ponte]

hoi

met dit macrotje moet het lukken

Sub Macro1()
  Dim ID As Range
  Dim Kolom As Integer
  Set ID = Cells(2, 1)
  Kolom = 2
  Do
    If ID = ID.Offset(1, 0) Then
      ID.Offset(0, Kolom) = ID.Offset(1, 1)
      Kolom = Kolom + 1
      ID.Offset(1, 0).EntireRow.Delete
    Else
      Set ID = ID.Offset(1, 0)
      Kolom = 2
    End If
  Loop Until ID.Value = ""
End Sub

groet sylvester

 

[WHER]

Met deze (minder elegante) macro zou het ook moeten lukken.

 

[kohltje]

Dank aan jullie

Hey Mensjes

Bedankt voor jullie fantastische oplossing!!!
Wat een tovenaars geeft het zich hier...
Hoelang hebben jullie erover gedaan dit onder de knie te krijgen?

Nogmaals, HEEL hartelijk dank...
Het werkt alle 2 PERFECT...