Vediamo oggi una piccola macro che potrebbe risultare utile a chi deve consultare e trovare velocemente un dato all’interno di un documento excell.
Facciamo l’esempio di un elenco telefonico tipo questo (i dati sono solo di esempio )
Ora creiamo una casella di testo tramite un controllo ActiveX, per fare questo clicchiamo sul tab sviluppo, su inserisci, quindi sul tastino con le lettere “ab” per creare una casella di testo
A questo punto non resta che spostarci su un punto del foglio e disegnare la nostra casella di testo
Ora facciamo doppio click con il tasto sinistro del mouse all’interno della casella si aprirà l’editor di visual basic.
Inseriamo il seguente codice:
Range(“b4”).AutoFilter field:=1, Criteria1:=TextBox1.Text & “*”
Chiudiamo l’editor ed il gioco è fatto ora ogni volta che iniziamo a digitare l’iniziale di un cognome in automatico verranno filtrati i nomi contenenti quei caratteri
Se continuo a inserire caratteri la ricerca sarà più precisa
Rimuovendo i caratteri digitati torneremo alla visualizzazione classica non filtrata
Buon lavoro!!
