Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: Gegroepeerde rijen, kopiëren waarde hoofdgroep naar subgroep

  1. #1
    Junior Member
    Geregistreerd
    16 augustus 2019
    Vraag is niet opgelost

    Gegroepeerde rijen, kopiëren waarde hoofdgroep naar subgroep

    Beste forumleden, ik heb een .xlsx ontvangen met (volgens mij) gegroepeerde rijen, in 3 niveaus. Ook wordt per groep een subtotaal getoond. Dat subtotaal mag er van mij uit.
    Wat ik zoek, is het expliciet maken (kopiëren) van de waarde van de hoofdgroep in een extra kolom naast de subgroep en de sub-subgroep, en van de waarde van de subgroep bij de sub-subgroep.
    Hier een voorbeeld van hoe het aanvankelijk is:
    Klik op afbeelding voor grotere versie

Naam:  2019-08-16 09_25_54-Window.jpg
Bekeken: 21
Grootte:  12,1 KB

    En hier een voorbeeld van hoe het zou moeten worden:
    Klik op afbeelding voor grotere versie

Naam:  2019-08-16 09_25_31-Window.jpg
Bekeken: 19
Grootte:  15,7 KB

    Heb nu twee dagen allerlei tips doorgenomen, maar ik zoek denk ik op de verkeerde termen.

    Reuze bedankt voor jullie ideeën !
    Fijne dag en groeten van Arie
    Laatst aangepast door Ario : 16 augustus 2019 om 08:37

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Plaats het bestand even. (ontdaan van gevoelige info)
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Junior Member
    Geregistreerd
    16 augustus 2019
    Merci voor de reactie.
    Ik ben al weer een eindje verder, maar wel dmv 'symptoombestrijding'. Wellicht dat er een veel bron-gerichtere aanpak is, om de subtotalen en de gevolgen ervan op te heffen.
    Hierbij het uitgangspunt, en het gewenste eindresultaat.
    Nogmaals dank.
    https://www.dropbox.com/s/jalp6fj4w2...punt.xlsx?dl=1
    https://www.dropbox.com/s/rjsw0zy2p3...taat.xlsx?dl=1

  4. #4
    Junior Member
    Geregistreerd
    16 augustus 2019

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Plaats het excelbestand gewoon hier. Met in de eerste tab de uitgangssituatie en in de tweede het gewenste resultaat. Waarom wil je van chaos weer chaos maken?
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  6. #6
    Junior Member
    Geregistreerd
    16 augustus 2019
    Ah, ik zie nu dat je bij snel reageren geen xls kunt bijvoegen, maar via gewoon reageren wel ;-)
    Excuses.
    Hier nogmaals de 2 files.
    Bijgevoegde bestanden Bijgevoegde bestanden

  7. #7
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Waarom wil je van chaos weer chaos maken?
    Met een macro kan je de gegevens opschonen en in een tabel zetten. Klik op de blauwe knop en zie het resultaat en de de tab 'Resultaat'

    Code:
    Sub VenA()
      ReDim ar1(10, 0)
      With Sheets("Data")
        On Error Resume Next
        .Columns(2).SpecialCells(4).FormulaR1C1 = "=R[1]C"
        .Columns(3).SpecialCells(4).FormulaR1C1 = "=R[-1]C"
        ar = .Cells(1).CurrentRegion
        For j = 2 To UBound(ar)
          If Left(ar(j, 1), 3) = "PRJ" Then c00 = ar(j, 1)
          If Left(ar(j, 1), 4) = "Taak" Then
            x = UBound(ar1, 2)
            ar1(0, x) = c00
            ar1(1, x) = ar(j, 1)
            For jj = 2 To 10
              ar1(jj, x) = ar(j, jj)
              If jj = 4 And IsDate(ar(j, jj)) Then ar1(jj, x) = CDbl(ar(j, jj))
            Next jj
            ReDim Preserve ar1(10, x + 1)
          End If
        Next j
      End With
      With Sheets("Resultaat").ListObjects(1)
        If .ListRows.Count Then .DataBodyRange.Delete
        .ListRows.Add.Range.Resize(x + 1, 11) = Application.Transpose(ar1)
      End With
    End Sub
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  8. #8
    Junior Member
    Geregistreerd
    16 augustus 2019
    Reuze bedankt voor de hulp & voor de zeer snelle reactie. Ik ga er mee aan de slag en houd u op de hoogte.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren