• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Alternatief voor draaitabel

Status
Niet open voor verdere reacties.
T

test1000

Gebruiker
Lid geworden
7 jul 2017
Berichten
258
Hoi,

Ik heb onderstaande Excelsheet :

Naam Titel
Record 1 : A 1
Record 2 : A 2
Record 3 : A 4
Record 4 : B 7
Record 5 : B 3
Record 6 : C 2
Record 7 : .....

Wat moet het gaan worden :

Record 1 : A 1 2 4
Record 2 : B 7 3
Record 3 : C

Dus zolang de naam hetzelfde is dan moet de titel in 1 record worden geplaatst.

Bestaat er een functie in Excel, Access, ..... of andere programma ?

Bedankt.
 
Laatst bewerkt door een moderator:
dat zou bv. met een draaitabel kunnen werken, maar het is belangrijk te weten hoe je gegevens er precies uitzien.
Staan die A 1 etc bv in dezelfde of andere cellen ?
Dus kan je een voorbeeldje posten.
 
In jouw geval werken deze:
Code: 
C17: =ALS(B17<>"";SOMMEN.ALS($C$3:$C$11;$A$3:$A$11;$A17;$B$3:$B$11;B17);"")
C17: =ALS.FOUT(INDEX($C$3:$C$11;VERGELIJKEN($A17&B17;$A$3:$A$11&$B$3:$B$11;0));"")
Let op, de tweede is een matrixfunctie, d.w.z. afsluiten met Control+Shift+Enter.
 

Bijlagen

  • test (AC).xlsx
    10,6 KB · Weergaven: 37
Laatst bewerkt:
Hoi AlexCel,

Voor alle duidelijkheid : het zijn de kolommen "Richting" en "Graden" die op 1 record moeten komen.
Dus alle richtingen en graden van Ann in 1 record.
Alle richtingen en graden van Dirk.
En die van Sven op 1 record.

En het kunnen verschillende records zijn voor vb Ann. Nu zijn 4 records maar morgen zijn er dat 5 of 2 of 10 records.
Zo ook voor de records van Dirk en Sven.

Eigenlijk zou het een soort macro of iets dergelijks gaat zijn dat gaat kijken is A3 = A4 dan plaats ik B4 en C4 in cellen D3 en E3.
Dan als A4 = A5 dan B5 en C5 in cellen F3 en G3 enz.

En het kan een Excelsheet zijn van vb 1.000 records.
 
Laatst bewerkt:
Graag een REPRESENTATIEF voorbeeld dan, met daarin (handmatig) aangegeven wat je als uitkomst verwacht.
 
Ik heb een representatief voorbeeld op werk. Dus nu niet bij de hand.
Maar het is zoals in .xlsx en omschrijving in vorige post.

Je hebt een sheet met 3 kolommen gesorteerd op kolom A.
Als A1 = A2 moet je de waarde van B2 en C2 in cel D1 en E1 plaatsen.
Als A2 = A3 moet je de waarde van B3 en C3 in cel F1 en G1 plaatsen
Als A3 = A4 moet je de waarde van B4 en C4 in cel H1 en I1 plaatsen.
totdat vb
Als A4 <> A5 dan doe niets
Als A5 = A6 moet je de waarde van B6 en C6 in cel D5 en E5
....

Ik weet trouwens niet of je dit kan realiseren in Excel.
Daarom de vraag in dit forum.

Hopelijk dat je met deze info tot een oplossing kan komen.
 
Ok dan. Poging 2:
Code: 
A17: =ALS.FOUT(INDEX(A$3:A$11;VERGELIJKEN(ONWAAR;ISGETAL(VERGELIJKEN(A$3:A$11;$A$16:A16;0));0));"")
B17: =ALS.FOUT(INDEX(ALS(IS.EVEN(KOLOM());$B:$B;$C:$C);KLEINSTE(ALS($A$3:$A$11=$A17;RIJ($B$3:$B$11));1+INTEGER((KOLOM(A1)-1)/2)));"")
Let op: matrixfuncties, d.w.z. afsluiten met Control+Shift+Enter na invoeren/wijzigen. Hierna kun je doorvoeren naar onder/rechts.

Opm.
1. De eerste zoekt de unieke namen op uit de lijst. De tweede kiest afwisselend uit kolom B en C de bijbehorende waarden uit de lijst.
2. Het betreft zoals gezegd matrixfuncties die best wat rekenkracht vragen van je computer. Als je erg lange lijsten krijgt kan de sheet wel eens traag worden...
3. Mogelijke oplossing is een draaitabel. Hiervan staat ook een voorbeeld in bijlage.

Succes ermee.
 

Bijlagen

  • test 2 (AC).xlsx
    14,6 KB · Weergaven: 36
Hier misschien een duidelijk voorbeeld.
In die originele Excel heb je 4 kolomen nl Code, Codenaam, Cijfer1 en Cijfer2.
Zolang de waarde in Code en Codenaam dezelfde zijn moet de waarde van Cijfer1 en Cijfer2 rechts bijgeplaatst worden.
Dit bestand wordt geïmporteerd in een ander programma.
Dus aan het "resultaat" kan ik helaas niets veranderen.

colar.JPG
 
wds heeft gelijk, voortaan graag een EXCEL voorbeeld plaatsen bij een vraag, dit is tenslotte geen photoshop forum. Maar goed, voor deze keer heb ik mijn tijd deels gespendeerd aan het overtypen van het voorbeeld. In bijlage een oplossing om tot het gevraagde resultaat te komen.

Let op: het betreft (deels) matrixfuncties, die moet je afsluiten met Control+Shift+Enter na invoeren/aanpassen in je eigen sheet.
 

Bijlagen

  • test 1000 (AC).xlsx
    10,8 KB · Weergaven: 37
Laatst bewerkt:
met VBA:

Code: 
Sub M_snb()
  sn = Cells(1).CurrentRegion
  With CreateObject("scripting.dictionary")
    For j = 1 To UBound(sn)
       sp = Application.Index(sn, j)
       If .exists(sn(j, 2)) Then
           sp = .Item(sn(j, 2))
           sp(UBound(sp)) = sp(UBound(sp)) & ";" & sn(j, 3) & ";" & sn(j, 4)
       End If
       .Item(sn(j, 2)) = sp
    Next
    
    Cells(24, 1).Resize(.Count, UBound(sn, 2)) = Application.Index(.items, 0, 0)
  End With
  
  Cells(24, 1).CurrentRegion.Columns(4).TextToColumns Semicolon:=True
End Sub
 
Wanneer ik de macro uitvoer krijg ik deze foutmelding :

Fout 13 tijdens uitvoering
Typen komen niet met elkaar overeen

Wanneer ik op de knop "Foutopsporting" klik is onderstaande regel geel gemarkeerd :
Cells(24, 1).Resize(.Count, UBound(sn, 2)) = Application.Index(.items, 0, 0)

Voor alle duidelijkheid :

Eerste drie kolommen zijn alfanumeriek. De vierde kolom is numeriek.
Ik weet niet of dit het probleem veroorzaakt.
 
Omdat je geen voorbeeldbestand geplaatst hebt is niet duidelijk op welk bestand je de macro loslaat.
 
Een alternatief voor pivot table

In bijlage een voorbeeld.
Let op in werkelijkheid zijn het meer dan 600 records.
Dit is een extract van het totale bestand.

Het principe blijft hetzelfde.
Zolang kolom A en B gelijk zijn de waarden van kolom C en D rechts blijven plaatsen.
U macro werkt als ik het uitvoer op de data in de printscreen.
Maar niet met data in bijlage.
 

Bijlagen

  • test10012019.xlsx
    9,2 KB · Weergaven: 43
Laatst bewerkt:
Kun je ondertussen dit onderwerp svp een meer inhoudelijke titel geven dan 'Records', zodat ook andere forumbezoekers een idee krijgen waar je vraag over gaat ?

Ik zie geen verband tussen dit bestand en de eerder door jou geplaatste afbeelding.
 
Laatst bewerkt:
Sorry, maar dat heb ik gedaan.
Nl naar post #1. Dan "Bericht aanpassen", "Ga naar", Titel ingevuld "Een alternatief voor Pivot Table".
En dan is de titel van de post aangepast. Maar niet de "Algemene titel".

Dus op welke manier kan ik de "Algemene titel" aanpassen ?
 
Je hebt het helemaal volgens de regels van de kunst gedaan: bedankt.

Het blijkt dat alleen een moderator dat kan doen.
Inmiddels uitgevoerd.;)
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan