Excel Forum Per condividere esperienze su Microsoft Excel

VBA sul Filtro

  • Messaggi
  • ABCDEF@Excel
    00 11/10/2020 19:24
    Ciao a tutti, dovrei scrivere un codice con la scelta fatta sul filtro
    Mentre registro scelgo Filtro per date\trà ... e metto due date col calendario.
    ActiveSheet.Range("$A$3:$Z$20").AutoFilter Field:=25, Criteria1:=">=05/10/2020", Operator:=xlAnd, Criteria2:="<=06/10/2020"
    Appena registrato l'operazione, visualizzo le date giuste. Se riavvio la sub "creata" mi nasconde tutti i record?
    Se scrivo EX DATE in Y1= 05/10/2020 ed Y2= 06/10/2020 ed...
    ActiveSheet.Range("$A$3:$Z$" & Ur).AutoFilter Field:=25, Criteria1:=">=" & Cells(1, 25), Operator:=xlAnd, Criteria2:="<=" & Cells(2, 25)
    Non vedo nulla. Sapete il motivo, grazie mille.

    Invece per l'età (numeri) in K1=45 ed K2=80 funziona regolarmente?
    ActiveSheet.Range("$A$3:$Z$" & Ur).AutoFilter Field:=11, Criteria1:=">=" & Cells(1, 11), Operator:=xlAnd, Criteria2:="<=" & Cells(2, 11)

    EDIT Trovato, bisogna scrivere le date in formatto Inglese MM/GG/YYYY
    [Modificato da ABCDEF@Excel 12/10/2020 13:27]
  • OFFLINE
    by sal
    Post: 6.091
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 12/10/2020 08:12
    Ciao ABCD... con il filtro sulle date ci sono sempre problemi, io creo una nuova colonna con una formula se()">=" o "<=" dove faccio inserire 1-0 e filtro la colonna con 1

    Ciao By Sal (8-D
    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    dodo47
    Post: 2.996
    Registrato il: 06/04/2013
    Utente Veteran
    2010
    00 12/10/2020 11:01
    ciao
    usa cdbl.....& CDblCells(1, 25)......

    saluti




    Domenico
    Win 10 - Excel 2016
  • ABCDEF@Excel
    00 12/10/2020 13:03
    Desideravo specificare che le Date sul foglio sono scritte per l'Italia =05/10/2020 gg/mm/aaaa
    Tramite codice...Format(Cells(1, 25), "mm/dd/yyyy")...funziona lo stesso.

    >>>CDblCells(1, 25)
    Casomai CDbl(Cells(1, 25))... e funziona alla grande. Grazie mille

    Ps. Per altri utenti, se faccio ricerche DA ...A (OK). Però queste due non funzionano per una singola data...
    ActiveSheet.Range("$A$3:$Z" & Ur).AutoFilter Field:=25, Criteria1:="=" & Cells(1, 25) = OK
    [Modificato da ABCDEF@Excel 12/10/2020 13:36]