Formule in excel

[Yesper]

Beste

Kan iemand mij helpen met de formule die in het voorbeeld staat.

Totaal van de week per persoon en pickzone en dan het totaal VE en Tijd

Zie bijgevoegd bestand

 

[sylvester-ponte]

=somproduct((b$2:b$43=q2)*(d$2:d$43=r2)*(g$2:g$43-f2:f43))

 

[Yesper]

Hoi Sylvester,

Dank je, maar zoek eigenlijk dat de Formule zelf alle gegevens neerzet dus naam en Pickzone en dan getotaliseerd is op VE en tijd.
Is dat mogelijk

 

[JEC.]

Ik zag te laat dat je office 2010 gebruikte. Toch hier een oplossing voor office 365 met 1 formule.
Misschien dat iemand anders er nog iets aan heeft.

=LET(r;B2:G43;c;B2:B43;DROP(REDUCE("";UNIQUE(c);LAMBDA(a;b;VSTACK(a;LET(x;FILTER(r;c=b);CHOOSE({1\2\3\4};b;INDEX(x;1;3);SUM(INDEX(x;;4));TEXT(SUMPRODUCT(INDEX(x;;6)-INDEX(x;;5));"uu:mm:ss"))))));1))

 

[Yesper]

Heb je die dan ook voor 2010

 

[JEC.]

Ik heb een optie met Power Query voor je. Verversen doe je met rechtermuisknop --> refresh in de oranje tabel.
In office 2010 kun je Power Query als Add-in downloaden.

https://www.howtoexcel.org/how-to-install-power-query/

 

[Yesper]

Hallo JEC.

Ben maar een leek, die gebruik maakt van jullie fantastische oplossingen.
Heb deze gedownload, maar heb geen bevoegdheid op mijn werkcomputer.
Toch bedankt voor het proberen.

Misschien heb je nog een andere optie

 

[JEC.]

Het kan ook met vier verschillende matrix formules die je moet afsluiten met control shift enter. Niet meer van deze tijd

Morgen kan ik weer even kijken

 

[Yesper]

Graag , zie het tegemoet :thumb:

 

[JEC.]

Bekijk deze eens

 

[Yesper]

Beste JEC,

Werkt wel, maar als ik met slepen naar onder trek, krijg ik de andere name niet. Omdat mijn basis sheet ongeveer 4500 regels lang is.
En als ik de formule aanpas schiet de naam weg.

Wellicht heb je de oplossing

 

[JEC.]

Alle bereiken moeten groter gemaakt worden. Het eerste bereik in de countif functie moet je niet aan komen.

 

[sylvester-ponte]

Yesper, vraag een upgrade naar excel 365 dat maakt het leven een stuk eenvoudiger.

 

[Yesper]

Helaas werkgever he

Hij doet het perfect, alleen zou ik een groter bereik nodig hebben, hoe kan ik het dan doen ??

 

[sylvester-ponte]

Yesper, mag jij vba gebruiken? dat maakt het ook een stuk eenvoudiger.

 

[Yesper]

Voor een Macro bedoel je dan is het antwoord Ja

 

[JEC.]

Voor de formules is het een kwestie van bereiken uitbreiden. Ps: Voor een leek is VBA moeilijker te begrijpen

 

[Yesper]

Zag net dat in de versie van Jec, toch een foutje zat.

De voorwaarden moeten zijn Naam en PZ, de rest som.

In de tabel van Jec, zat er geen voorwaarden in van PZ, waardoor hij per naam het totaal van de VE en Tijd gaf

 

[sylvester-ponte]

met vba: aan de snelheid is nog best wat te doen. maar het gaat nu even om het principe. controleer de uitkomsten aub.

 

[JEC.]

Hier een variant waarbij alles in de dictionary zit.

Sub jec()
 Dim ar, k, a, i As Long
 ar = Cells(1).CurrentRegion
 With CreateObject("scripting.dictionary")
   For i = 2 To UBound(ar)
     k = ar(i, 2) & "|" & ar(i, 4)
     If Not .exists(k) Then
       .Item(k) = Array(ar(i, 2), ar(i, 4), ar(i, 5), ar(i, 7) - ar(i, 6))
     Else
       a = .Item(k)
       a(2) = a(2) + ar(i, 5)
       a(3) = a(3) + ar(i, 7) - ar(i, 6)
       .Item(k) = a
     End If
     Range("Q2").Resize(.Count, 4) = Application.Index(.items, 0, 0)
   Next
 End With
End Sub