Samenvoegen van gegevens

[Gerard2348]

Ga het nog een keer proberen.

Zoals ik in #17 beschreef zijn er verschillende bestanden waaruit de gegevens komen. Diverse "afdeling" beschikken over een zgn. invulstaat. Daarin staan namen die d.m.v. validatie gekozen worden. Na het kiezen van de naam wordt er een waarde achter de naam ingevoerd als dat nodig mocht zijn. Iedere "afdeling" heeft zijn eigen sheet omdat de namen maar een onderdeel zijn van het totaal. De gegevens van alle sheets worden verzameld in de zgn Master sheet

Bekijk bijlage samenvoegen1a.xlsm

De gegevens komen o.a. uit

Bekijk bijlage Map2.xlsm

Van Map2 zijn er meerdere varianten die door andere "afdelingen" worden ingevuld omdat zij over een eigen exemplaar beschikken. Deze verschillen in uiterlijk maar de manier waarop de namen worden ingevuld is hetzelfde. Zij hebben geen zicht of de namen elders al zijn gebruikt en ingevuld. Vandaar dat een keer per dag alles wordt samengevoegd in de Master (samenvoegen1a) door copy/past. Hierdoor gebeurd het dat er dubbele namen in komen met gegevens.
Het is wenselijk dat er bv maar een Klara Grotenhuis met haar gegevens overblijft. Dit beslaat een regel. Dit geldt uiteraard voor alle dubbele namen.

Hopelijk is dit duidelijk.

Mvg

 

[Haije]

Ga het nog een keer proberen.

Het is wenselijk dat er bv maar een Klara Grotenhuis met haar gegevens overblijft. Dit beslaat een regel. Dit geldt uiteraard voor alle dubbele namen.

Hopelijk is dit duidelijk.

Mvg

Maar dat gebeurt er toch ook in de tweede tabel?
Waarom mogen de verzamelde gegevens niet in de eerste tabel blijven staan?

 

[Gerard2348]

Goedemorgen Haije,

De tweede tabel is geen onderdeel van de Excel sheet samenvoegen1a. De Excel sheet samenvoegen1a is een zgn verzamelstaat die gevoed wordt met gegevens uit andere bestanden. Dus we hebben hier te maken met meerdere bestanden. Uiteindelijk is het bestand samenvoegen het bestand waar alle gegevens in staan die uit andere bestanden komen. In het geval van Klara Grotenhuis wat ik heb gebruikt, zij heeft gegevens in bv map2, map3, map 4 enz. Deze gegevens en de gegevens van alle andere namen van desbetreffende dag, uit bv map2, map3, map 4 enz. worden in het bestand samenvoegen gezet. Klara Grotenhuis kan nu bv 3, 4, 5 of meerdere keren voorkomen in het bestand samenvoegen omdat verschillende afdelingen gegevens hebben gezet in bv map2, map3, map 4 enz. Deze gegevens van haar en van alle andere namen wil ik beperken tot een regel met de bijbehorende gegevens zodat iedere naam maar een keer wordt vermeld met bijbehorende gegevens.

MvG Gerard

 

[Haije]

Deze gegevens van haar en van alle andere namen wil ik beperken tot een regel met de bijbehorende gegevens zodat iedere naam maar een keer wordt vermeld met bijbehorende gegevens.

en dat gebeurt dus in de tweede tabel.

Mijn vraag was, waarom de eerste tabel met alle originele gegevens niet mag blijven bestaan.

 

[Gerard2348]

Beste Haije,

De tweede tabel is toch geen onderdeel van het bestand samenvoegen?

Veronderstel er zijn 10 personen die per dag gegevens verzamelen met pen en papier. De een vraagt Piet, Klaas, Marie, Marijke enz. over appels (omdat dit de gegevens zijn die hij moet vragen) en de ander over peren maar wel aan dezelfde personen. Deze 10 personen komen aan het eind van de dag terug met hun verzamelde gegevens. Deze gegevens worden genoteerd op een gezamenlijk blad. Dit gezamenlijk blad heeft wel appels en peren in een kolom staan. In dit overzicht noteren we Piet, Klaas, Marie, Marijke enz. een maal en in de kolom appels en/of peren noteren we of er gegevens aanwezig zijn. Nu hebben we alle gegevens per persoon overzichtelijk bij elkaar op een blad. Een unieke naam per regel met bijbehorende gegevens.

De gegevens die deze 10 personen hebben verzameld, met pen en papier gaan allemaal in een ordner en de het gezamenlijk blad gaat in een aparte ordner. Dus er gaat niets verloren. Alles blijft bestaan.

MvG Gerard

 

[Haije]

maar alles in één bestand bijelkaar houden mag niet?

 

[Gerard2348]

???

 

[WHER]

@ Gerard2348,

Misschien kan je de functionaliteit "Consolidate" hiervoor gebruiken, zie Blad2 van de bijlage.

 

[Gerard2348]

Hallo Wher,

Deze functie kende ik nog niet. Bedankt voor je bijdrage. Hier ben ik al een stuk verder mee. Heb het bekeken. Nu ga ik kijken naar een macro om de gegevens van Blad2 na consolidatie, na blad 1 te kopieren.

MvG Gerard

 

[Gerard2348]

Uiteindelijk tot deze oplossing gekomen. Het zal wel niet de mooiste of meest effectieve manier zijn maar het werkt. Ik ben er blij mee.
Ik wil ieder danken voor zijn/haar bijdrage.

Bekijk bijlage samenvoegen1 (2).xlsm

MvG Geer

 

[ExcelAmateur]

Geer,

Ik denk dat de code ook zo werkt, klein beetje ingekort.
Het zal best nog wat korter kunnen maar ik ben geen specialist hier in.

Sub Samenvoegen()

'Dubbele gegevens selectern
Application.ScreenUpdating = False
   Range("M4:U100").Consolidate Sources:= _
        "'Blad1'!R4C2:R98C11", Function _
        :=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False

'kopieren
 Range("M4:U100").Copy
    Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("M:U").ClearContents
    Application.CutCopyMode = False
        
'Sorteren
Range("B4:J100").Select
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("B4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("B4:J100")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    Range("B4").Select
    End With


Application.ScreenUpdating = True
End Sub

 

[Gerard2348]

ExcelAmateur,

Dank je voor je verbetering van de code. Met elke verbetering ben ik blij. :thumb:

 

[ExcelAmateur]

Graag gedaan, misschien als "snb" de code ziet, hij hem inkort zodat er haast niets over blijft en toch goed werkt.