Sumif daterange in VBA omzetten

[hellboy01]

Hi, weet iemand hoe je een sumif met daterange in vba kan maken.

https://www.youtube.com/watch?v=mCI7Cs3fK7o

ik hb zelf dit gefabriceerd maar het daterange stuk ontgaat mij, ik moet zeggen de overgangvan excelformules naar VBA valt tegen.

lastrow = ThisWorkbook.Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row

Totalbol = WorksheetFunction.Sum(Sheets("Data").Range("A2:A" & lastrow))

huidige situatie : 2 kolommen verkoopbedrag en datum

wens : het kunnen totaliseren per periode datum A tot datum B en omdat ik met userforms werk en ik liefst het excelsheet onzichtbaar laat, het totaal in een variabele zetten.

 

[VenA]

Het lijkt mij het handigst dat je even jouw bestandje bijvoegt.

Application.sum of Application.sumif zal mogelijk wat doen.

 

[hellboy01]

Bekijk bijlage IceCreamShop AutoOpen.xlsm

Het gaat om het dashboard, kun je alleen maar het weektotaal doen , ik wil graag zelf de rest maken. Als ik maar weet hoe het moet dan lukt dat wel.

alvast bedankt.

 

[snb]

msgbox application.sum(sheets(1).columns(1))

 

[hellboy01]

Hoi snb, bedankt dat is wel een heel stuk korter dan mijn sum vba, nice :thumb: