Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub Ophogen()
For i = 97 To 122 [COLOR="#008000"]'Hoofdletters zijn 65 to 90[/COLOR]
MsgBox Chr(i)
Next i
End Sub
Sub MaandRapportTest2()
'For i = 97 To 122 'Hoofdletters zijn 65 to 90
' MsgBox Chr(i)
' Next i
lrMaand = Sheet23.Cells(Rows.Count, 3).End(xlUp).Row
lJaar = Sheet23.Cells(lrMaand, 2).Value
lMaand = Sheet23.Cells(lrMaand, 3).Value
For y = 2017 To lJaar
For m = 1 To lMaand
For c = 97 To 103
cat = WorksheetFunction.SumIfs(Sheet23.Range("J2:J1000"), _
Sheet23.Range("B2:B1000"), "=2017", _
Sheet23.Range("C2:C1000"), "=" & m, _
Sheet23.Range("D2:D1000"), "=" & c)
MsgBox (m)
MsgBox (cat)
Next i
Next m
Next y
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.