tussen twee datums fillteren en bedragen optellen

[userJan]

Goededagmiddag dames en heren,
zou kan iemand advies/hulp willen bieden met het volgende,
Ik heb getracht met een code tussen filteren tussen 2 datums en dan de bedragen optellen.
De code geeft geen foutmeldingen maar geeft ook geen resultaat.
Met autofilter werkt ook niet omdat er een aantal titels geblokkeerd zijn, waardoor er geen resultaat wordt gegeven.

mvg Jan

 

[HSV]

Een datum in E1 en E2 invullen.

Range("E3") = Application.SumIfs(Range("B2:B50"), Range("A2:A50"), _
 ">=" & CLng(Range("e1")), Range("A2:A50"), "<=" & CLng(Range("e2")))

 

[userJan]

Bedankt, echter geen resultaat.
Ik ben ook bezig om een autofilter die kan ook tussen datums filteren.

Sub atest()
ActiveSheet.Range("$A$31:$BQ$14887").AutoFilter Field:=8, Criteria1:= _
">=1-1-2023", Operator:=xlAnd, Criteria2:="<=31-12-2024"
Range("K29").Select
End Sub

Echter dat werkt alleen met handmatig invoeren, als ik een macro maak geen resultaat.
Wat kan hier de oorzaak van zijn?
mvg Jan

 

[HSV]

Hoezo geen resultaat.
Klik op je knop.

 

[userJan]

Ik zie wel dat de datum erin zijn gezet E1 en E2, maar geen optelling. En excel zet de macro's uit. Opnieuw opgestart krijg de macro's niet actief. En dat gebeurd alleen bij downloads van buitenaf.
Als je bij de file op jouw pc de knop in druk krijg je dan resultaat bij alle 3 de velden E1 en E2 en E3?

 

[Haije]

Klik in de verkenner met rechts op het betreffende bestand en hef blokkering op

 

[Warme bakkertje]

Zoals @Haije zegt maar nu visueel.


PS: De code van @HSV werkt perfect.

 

[sylvester-ponte]

het kan toch zonder macro's, met som.als

 

[userJan]

Goedemorgen dames en heren,
versie excel plus 2021, windows 11
de tip blokkade opheffen werkt en de formule werkt ook echter selecteert de range datums niet.
de vba code werkt om de een of andere reden niet.
mijn voorkeur is dan macro met autofilter met invoervelden start datum en einddatum.
helaas is mijn kennis VBA beperkt. Ik heb veel codes geprobeerd maar helaas.
misschien dat iemand met dit kan/wil helpen?
allemaal bedankt voor Uw hulp.

 

[AHulpje]

Inderdaad geen macro nodig. De oplossing van sylvester toegepast in jouw document, met wat voorwaardelijke opmaak om snel het resultaat te kunnen beoordelen.

 

[Warme bakkertje]

Dit doe je toch met de SumIfs formule.
Zelfs de code van @HSV werkt als je de bereiken correct aanpast.

Sub Macro1()
    With Sheet1
        .Range("L6") = Application.SumIfs(.Range("K11:K50"), .Range("H11:H50"), _
        ">=" & CLng(.Range("H2")), .Range("H11:H50"), "<=" & CLng(.Range("H3")))
    End With
End Sub

 

[peter59]

Ook nu over een andere boeg. Ook zonder macro's.
Nu d.m.v. power query.