Dim mese As String
'Modifichi i valori al click
Private Sub CommandButton2_Click()
Select Case mese
Case "gennaio"
mese = "febbraio"
Case "febbraio"
mese = "marzo"
'ecc...
End Sub
'Controlli il valore e filtri i dati che ti servono:
Private Sub CommandButton1_Click()
Select Case mese
Case "gennaio"
'Istruzioni filtraggio
Case "febbraio"
'Istruzioni filtraggio
'ecc...
End Sub
