Filtro VBA Mese



  • Filtro VBA Mese
    di Marco (utente non iscritto) data: 05/12/2016 13:04:31

    Salve ragazzi,
    rieccomi qui!

    Praticamente ho la necessità di filtrare dei dati per mese e sto utilizzando il comando:
    Criteria1:=xlFilterAllDatesInPeriod(mese dell'anno di interesse)

    Ora ho visto che funziona con tutti tranne che con Febbraio, sembra assurdo ma penso a sto punto sia un bug.

    Questa in allegato è la sintassi che uso (e per tutti gli altri mesi funziona, ma non per febbraio). Avete soluzioni, o consigliate un altro stratagemma per ovviare al problema? (ho la necessità di filtrare i dati in base ai messi, anche se in anni diversi)
     
    Sheets("Ordini").Select
     ActiveSheet.Range("$I:$I").AutoFilter Field:=2, Operator:=xlFilterDynamic, _
            Criteria1:=xlFilterAllDatesInPeriodFebruary
        Ur = Worksheets("Ordini").Range("A" & Rows.Count).End(xlUp).Row
    Worksheets("Ordini").Range("A1:I" & Ur).Copy Destination:=Worksheets("Feb").Range("A1")
    Sheets("Feb").Select



  • di Zer0Kelvin data: 05/12/2016 15:59:25

    Ciao.
    Visto che qui non abbiamo la palla di cristallo, sarebbe meglio (molto) avere a disposizione un file con un pò di dati ed il codice in uso....



  • di Marco (utente non iscritto) data: 16/12/2016 11:13:50

    Giusto,
    il tempo che preparo il file e lo posto



  • di Marco (utente non iscritto) data: 16/12/2016 12:31:03

    Il file è stato allegato se serve altro sono a disposizione



  • di scossa data: 16/12/2016 19:20:26

    cit.: "sembra assurdo ma penso a sto punto sia un bug."

    inserisci a inizio codice questa istruzione
    Const xlFilterAllDatesInPeriodFebruary As Integer = 22

    oppure sostituisci xlFilterAllDatesInPeriodFebruary con 22



    scossa's web site
    Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
    (George Bernard Shaw)



  • di scossa data: 16/12/2016 19:42:39


    Altrimenti sostituisci in tutta la routine xlFilterAllDatesInPeriod....
    con Excel.xlFilterAllDatesInPeriod....



    scossa's web site
    Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
    (George Bernard Shaw)



  • di Marco (utente non iscritto) data: 17/12/2016 11:00:05

    Grazie mille,
    gentilissimi e competenti come sempre