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.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Private Sub CommandButton1_Click()
[E1] = "1e kwartaal"
Kiesmaand (17)
End Sub
Private Sub CommandButton2_Click()
[E1] = "2e kwartaal"
Kiesmaand (18)
End Sub
Private Sub CommandButton21_Click()
Label4.Visible = True
TextBox2.Visible = True
TextBox2.SetFocus
End Sub
Private Sub CommandButton22_Click() 'FILTEREN OP VANDAAG
[E1] = "vandaag"
Kiesmaand (1)
End Sub
Private Sub CommandButton23_Click() 'FILTEREN OP GISTEREN
[E1] = "gisteren"
Kiesmaand (2)
End Sub
Private Sub CommandButton24_Click() 'FILEREN OP DEZE WEEK
[E1] = "deze week"
Kiesmaand (4)
End Sub
Private Sub CommandButton25_Click() 'FILTEREN OP VORIGE WEEK
[E1] = "vorige week"
Kiesmaand (5)
End Sub
Private Sub CommandButton3_Click()
[E1] = "3e kwartaal"
Kiesmaand (19)
End Sub
Private Sub CommandButton4_Click()
[E1] = "4e kwartaal"
Kiesmaand (20)
End Sub
Private Sub CommandButton5_Click()
[E1] = "Januari"
Kiesmaand (21)
End Sub
Private Sub CommandButton6_Click()
[E1] = "Februari"
Kiesmaand (22)
End Sub
Private Sub CommandButton7_Click()
[E1] = "Maart"
Kiesmaand (23)
End Sub
Private Sub CommandButton8_Click()
[E1] = "April"
Kiesmaand (24)
End Sub
Private Sub CommandButton9_Click()
[E1] = "Mei"
Kiesmaand (25)
End Sub
Private Sub CommandButton10_Click()
[E1] = "Juni"
Kiesmaand (26)
End Sub
Private Sub CommandButton11_Click()
[E1] = "Juli"
Kiesmaand (27)
End Sub
Private Sub CommandButton12_Click()
[E1] = "Augustus"
Kiesmaand (28)
End Sub
Private Sub CommandButton13_Click()
[E1] = "September"
Kiesmaand (29)
End Sub
Private Sub CommandButton14_Click()
[E1] = "Oktober"
Kiesmaand (30)
End Sub
Private Sub CommandButton15_Click()
[E1] = "November"
Kiesmaand (31)
End Sub
Private Sub CommandButton16_Click()
[E1] = "December"
Kiesmaand (32)
End Sub
Function Kiesmaand(maand As Byte)
With Sheets("omzet").ListObjects(1).Range
.AutoFilter 1, maand, xlFilterDynamic
End With
ActiveWindow.SmallScroll Down:=-2000
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.