Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

VBA sul Filtro

Ultimo Aggiornamento: 12/10/2020 13:03
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]
Post: 6.091
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
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
Post: 2.996
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
12/10/2020 11:01

ciao
usa cdbl.....& CDblCells(1, 25)......

saluti




Domenico
Win 10 - Excel 2016
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]
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Estrapolare il primo e l'ultimo numero (3 messaggi, agg.: 03/03/2017 09:17)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 21:59. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com