Uit 3 tabellen 1 overzicht maken in worksheet

[sibobile]

Hallo,
Ik heb hulp nodig om uit 3 tabellen 1 overzicht te maken in een ander werkblad.
Een draaitabel lijkt mij niet aangewezen omdat ik in dat overzichtwerkblad nog verdere bewerkingen moet doen en weer doorsturen naar een ander werkblad.
In mijn voorbeeld staat alles in de tabellen in volgorde, maar dat is niet altijd zo.
Het gaat over tabellen van rond de 600 of meer rijen.
In de 1e kolom komt het Number, de 2e kolom de bijhorende Chipnumber, de 3e kolom de bij de Number en Chipnumber behorende tijd van Run1 of niets als er geen tijd is, de 4e kolom de bij de Number en Chipnumber behorende tijd van Run2 of niets als er geen tijd is, en de 5e kolom de bij de Number en Chipnumber behorende tijd van Run3 of niets als er geen tijd is.
In het bijgevoegde voorbeeld heb ik na veel knip en plakwerk in het overzicht een voorbeeld gemaakt hoe het zou moeten zijn. Ik heb de cellen rood gekleurd om duidelijk aan te geven dat niet elke cel een tijdwaarde bevat.
Indien dit niet anders kan mag dit ook zelfs in vba zijn.
Dank bij voorbaat.
Met vriendelijke groeten.Bekijk bijlage Tabeltest.xlsx

 

[HSV]

[TABLE="width: 496"]
[TR]
[TD="colspan: 5"]Volgens mij zit er een klein foutje in het bestand wat je plaatste.[/TD]
[/TR]
[TR]
[TD="colspan: 5"]002 heeft twee tijden met hetzelfde chipnummer: 002/528140000317739[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 3"]Ik heb ze in het bestand van mij geel gemarkeerd en uit de tabel gehaald.[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 3"]Run code 'hsv' en zie het resultaat op blad5.[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

 

[sibobile]

Hallo Harry,

Hartelijk dank. Ik heb dit uitgebreid getest in die sheet en dit werkt echt perfect en is wat ik nodig had.
Nu echter probeer ik dat in mijn sheet toe te passen en geraak er niet echt uit, mijn kennis van vba is ook te beperkt om er een klare kijk over te hebben waar ik veranderingen moet aanbrengen om tot het gewenste resultaat te komen.
Ik heb het al een beetje kunnen aanpassen maar zoals u zal kunnen zien in de bijgevoegde sheet op blad 8 zie je dat er 2 kolommen overgeslagen worden en dan in de 2 daaropvolgende kolommen geeft hij mij een datum weer ipv de tijden.
Die gegevens van uw hsv moeten uiteindelijk op het blad controle komen zoals u kunt zien.
Anders moet u misschien een woordje van de stappen bijschrijven in de module. Dan kan ik ook zien waar het echt verkeerd loopt, als ik stap per stap de macro laat lopen geeft hij mij voor de tijd ~~14:08:00 weer ipv 14:08:00~ dus daar loopt het ergens fout.

Met vriendelijke groeten

Siegfried

 

[HSV]

Siegfried,

Je hebt j veranderd van 1 to 3 in 3 to 5.
Dat houdt in dat alles wat j - 1 is j -3 wordt.
J=3 wordt j=5.
enz.

a(2) = a(2) & IIf(UBound(Split(a(2), "~")) = -1 And j > 3, String(j - 3, "~") & CDate(sv(i, 5)) & "~", IIf(UBound(Split(a(2), "~")) = 1 And j = 5, "~" & CDate(sv(i, 5)) & "~", CDate(sv(i, 5)) & "~"))

 

[sibobile]

Hallo Harry,

Hartelijk dank voor de snelle oplossing, getest en het werkt perfect, het bespaart mij heel wat hoofdbrekens.
Ik ga dit topic dan ook afsluiten als opgelost.

Nogmaals dank u wel.
Met vriendelijke groeten.

Siegfried

 

[jkpieterse]

Toch even een opmerking; het is in Excel altijd simpeler als gegevens in 1 tabel staan en niet per "iets" op een apart werkblad. Voeg dat "iets" toe als aparte kolom aan je tabel en zet alle werkbladen die je nu hebt onder elkaar in die tabel. Dan kan je simpel samenvatten met draaitabellen.