Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: percentage berekenen van meerdere subtotalen  (gelezen 2540 keer)

0 leden en 1 gast bekijken dit topic.

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
percentage berekenen van meerdere subtotalen
« Gepost op: 15 november 2022, 08:14:57 »
Goedemorgen,
Kunnen we het percentage berekenen per subtotaal van meerdere subtotalen?
wat in kolom E staat doortrekken en een percentage per RecNummer berekenen.

alvast bedankt,
Groeten,
Georgyboy

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: percentage berekenen van meerdere subtotalen
« Reactie #1 Gepost op: 15 november 2022, 18:38:51 »
Hallo Georgyboy,

Niet zo evident (je vraag is al uren oud en nog geen reactie), maar als aan een paar voorwaarden is voldaan lukt het wel.
Die voorwaarden situeren zich in kolom A:
Op de eerste rij van elk RecNummer moet dat nummer staan (zoals in A2, A9, enz.)
En op de subtotaalrij moet telkens de tekst "Totaal" + spatie + dat nummer staan (A8, A17, enz.)

In je voorbeeldbestand is dat zo, en dan werkt het zoals in de bijlage (heb wel een hulpkolom gebruikt, maar dat mag de pret niet bederven).

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: percentage berekenen van meerdere subtotalen
« Reactie #2 Gepost op: 15 november 2022, 19:49:08 »
Hallo MollyVH,

Geweldig hoe je dit hebt aangepakt  \o/  _/-\o_
Had dit zeker niet gevonden!

Denk dat het zeker wat denkwerk heeft gevergd?
Is zoiets dan makkelijker op te lossen met VBA ? of nog moeilijker met VBA?

Bedankt voor je geboden mooie oplossing :)

Groeten,
Georgyboy

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: percentage berekenen van meerdere subtotalen
« Reactie #3 Gepost op: 16 november 2022, 08:41:07 »
Hallo Georgyboy,

Citaat
Denk dat het zeker wat denkwerk heeft gevergd?
Nee hoor, ik zag vrijwel onmiddellijk hoe het kon, maar daarna ben ik in de fout gegaan  :-[
Werken doet het, maar het kan, nee... moet veel eenvoudiger.
Ik wou het eerst in één kolom doen, koos daarna vlug voor een hulpkolom, en vergat vervolgens (letterlijk 'vergat', want zó duidelijk) om de formule in de laatste kolom te vereenvoudigen.
De formule in kolom F mag blijven maar in G2 volstaat:
=D2/INDIRECT("D"&F2)
Citaat
Is zoiets dan makkelijker op te lossen met VBA ? of nog moeilijker met VBA?
Voor wie thuis is in vba zal het niet veel verschil maken. Het principe zal grosso modo hetzelfde zijn, wel wat meer schrijfwerk dan 2 formules ;)

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: percentage berekenen van meerdere subtotalen
« Reactie #4 Gepost op: 16 november 2022, 10:05:48 »
Citaat
Is zoiets dan makkelijker op te lossen met VBA ? of nog moeilijker met VBA?

En aangezien dat misschien ook een gecamoufleerd verzoekje was  :D, bij deze:
Sub percentages()

Application.ScreenUpdating = False
For rij = 2 To Cells(Rows.Count, 4).End(xlUp).Row
    If IsNumeric(Cells(rij, 1)) And Cells(rij, 1) > 0 Then recnum = Cells(rij, 1)
    Cells(rij, 6) = Cells(rij, 4) / Cells(Columns(1).Find("Totaal " & recnum, , , xlWhole).Row, 4)
Next rij

End Sub
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: percentage berekenen van meerdere subtotalen
« Reactie #5 Gepost op: 16 november 2022, 12:26:39 »
Dankjewel MollyVH

Zelf VBA is voor jou fantastisch geantwoord, respect voor je kunnen!

En aangezien dat misschien ook een gecamoufleerd verzoekje was  :D, bij deze:eigenlijk wel  ;) :) :)

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: percentage berekenen van meerdere subtotalen
« Reactie #6 Gepost op: 18 november 2022, 18:23:43 »
Hier nog een variant mijnerzijds ;)

Sub jec()
 Dim it
 For Each it In Cells(1).CurrentRegion.Columns(3).SpecialCells(2).Offset(1, 1).Areas
   With it.Offset(, 2)
     .Value = it.Value
     .Value = Evaluate(.Address & "/" & Replace(it(it.Rows.Count), ",", "."))
   End With
 Next
End Sub

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: percentage berekenen van meerdere subtotalen
« Reactie #7 Gepost op: 19 november 2022, 19:00:59 »
Dankjewel JEC voor deze oplossing :)

Jullie oplossingen werken perfect!

Heb nog een extra oplossing gekregen met de uitleg van de formule :)

in bijlage een ander werkblad waar ik de VBA test in een Module en achter het werk blad.
Getest met en, zonder "option explecit"
Daar krijg ik foutmeldingen van "Compileerfout" , "Syntaxisfout", geen variabele gedefinieerd, ........

Wat doe ik fout ?

Alvast bedankt!
Groeten,
Georgyboy

Offline Margriet1932

  • Lid
  • *
  • Berichten: 43
  • Geslacht: Vrouw
  • Hey, ik ben nieuw hier !
Re: percentage berekenen van meerdere subtotalen
« Reactie #8 Gepost op: 19 november 2022, 19:39:00 »
@Georgyboy,
je hebt vermoedelijk niet zichtbare rommel meegekopieerd in je code, vandaar die rood gekleurde regels.
Ga terug naar de code van JEC en gebruik de "[selecteer]" erboven en dan met CTRL+C kopieren en CTRL+V plakken in de VBA-editor krijg je een mooie "zwarte" macro

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: percentage berekenen van meerdere subtotalen
« Reactie #9 Gepost op: 19 november 2022, 20:10:22 »
Dankjewel Margriet1932 :)

Weer wat bijgeleerd  :thumbsup:

Inderdaad heb het bestand nogmaals geopend en de 2 Codes van MollyVH en JEC in de module gekopieerd,
via selecteer --> CRTL C --> CTRL v in de module en inderdaad beiden werken perfect!

Sorry voor mijn vraag, dank voor Uw antwoord en oplossing :)

Vreemd dat er niet zichtbare tekst mee is gekopieerd.

Groetjes,
Georgyboy

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: percentage berekenen van meerdere subtotalen
« Reactie #10 Gepost op: 03 december 2022, 18:44:02 »
@ MollyVH
@ Jec
@ Margriet1932
Dank voor de oplossingen :)  :thumbsup:

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: percentage berekenen van meerdere subtotalen
« Reactie #11 Gepost op: 03 december 2022, 20:31:26 »
Graag gedaan! ;D

 


www.combell.com