Utilizzo di una data su un filtro tramite vba



  • Utilizzo di una data su un filtro tramite vba di Bene data: 09/01/2017 17:14:21

    Ciao a tutti, mi sono appena registrato perchè trovo questo forum interessante.
    Ho un problema con le date.
    Prelevo tramite vba la data dell'ultima transazione pos dal file cash flow. Ho necessità di filtrare, in un altro file, tutte le transazioni con data maggiore di quella presa dal primo file.
    Excel nel filtro mi riporta la data in formato inglese.
    Dove sbaglio?
     
    Sub riporta_entrate_pos()
    Dim data_ultima As Date
    Range("b1").End(xlDown).Select
    data_ultima = ActiveCell
    Workbooks.Open Filename:= _
            "d:....Rilevazione battute.xlsm"
    fineriga = Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.Range("$A$1:k" & fineriga).AutoFilter Field:=1, Criteria1:= _
            ">" & data_ultima, Operator:=xlAnd


  • di Luca73 data: 10/01/2017 09:12:37

    Ciao
    due Suggerimenti sotto
     
    data_ultima = Range("b1").End(xlDown).Value
    
    FineRiga = Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.Range("$A$1:k" & FineRiga).AutoFilter Field:=1, Criteria1:= _
            ">" & Format(data_ultima, "mm/dd/yyyy"), Operator:=xlAnd
    
    


  • di Bene data: 10/01/2017 09:51:22

    Grazie Luca73 il secondo suggerimento funziona benissimo. Grazie ancora!!!