{"id":1064,"date":"2014-02-19T16:19:49","date_gmt":"2014-02-19T15:19:49","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=1064"},"modified":"2014-04-12T17:26:53","modified_gmt":"2014-04-12T15:26:53","slug":"filtro-rapido-con-vba-excel-2007-2010","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2014\/02\/filtro-rapido-con-vba-excel-2007-2010\/","title":{"rendered":"041. Filtro Rapido con VBA (Excel 2007-2010)"},"content":{"rendered":"
\"Download<\/a><\/div>

In ambito lavorativo capita spesso di avere file con un foglio dove sono presenti le anagrafiche dei clienti ed un altro contenente ad esempio il dettaglio degli ordini dei clienti.<\/p>\n

Quando si hanno elevate quantit\u00e0 di dati non \u00e8 immediato aprire il filtro sul foglio degli ordini
\ned individuare il cliente da trovare.<\/p>\n

Per eliminare questa fastidiosa perdita di tempo, ho creato una semplice macro (che funziona con Excel 2007 e 2010) che permette di applicare il filtro con un semplice doppio click sul nome del cliente.
\n
\nHo sfruttato l’evento DoppioClick del foglio “Anagrafiche” ed\u00a0impostato quanto segue:<\/p>\n

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)\r\nLast_Row = ActiveSheet.Cells.Find(\"*\", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row\r\n\r\nIf Intersect(Target, Sheet1.Range(Cells(2, 1), Cells(Last_Row, 1))) Is Nothing Then\r\n\r\nElse\r\n\r\nAnagraficaSelezionata = Target.Value \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \r\nSheet2.Select \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \r\nActiveSheet.Range(\"A1\").CurrentRegion.AutoFilter Field:=1, Criteria1:=AnagraficaSelezionata \u00a0\u00a0\u00a0 \r\n\r\nEnd If\r\n\r\nEnd Sub<\/pre>\n
Quando la cella selezionata si trova nella colonna dove \u00e8 presente il nome del cliente
\n(quando l’intersezione tra cella selezionata e colonna 1 non \u00e8 vuota)
\nassegno alla variabile AnagraficaSelezionata il valore della stessa (Target.value)
\ne la uso come criterio nel filtro (Criteria1:=AnagraficaSelezionata)<\/p>\n
A voi il file:
\nAPRI<\/a><\/p>\n
Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"
In ambito lavorativo capita spesso di avere file con un foglio dove sono presenti le anagrafiche dei clienti ed un altro contenente ad esempio il dettaglio degli ordini dei clienti. Quando si hanno elevate quantit\u00e0 di dati non \u00e8 immediato … Continua a leggere→<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"_links_to":"","_links_to_target":""},"categories":[5,6],"tags":[],"jetpack_featured_media_url":"","jetpack_publicize_connections":[],"jetpack_shortlink":"https:\/\/wp.me\/p39IU1-ha","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":1922,"url":"https:\/\/www.office-guru.com\/wordpress\/2017\/11\/elencare-i-nomi-degli-oggetti-di-excel\/","url_meta":{"origin":1064,"position":0},"title":"Elencare i nomi degli oggetti di Excel","date":"2 Novembre 2017","format":false,"excerpt":"A volte capita di avere a che fare con molti oggetti su un oglio di Excel quali linee, rettangoli, cerchi, frecce e volerli manipolare. Il metodo semplice \u00e8 di assegnare ad ogni oggetto un nome e successivamente manipolarlo in VBA attraverso le propriet\u00e0 dell'oggetto. In VBA per \"indirizzare\" un oggetto\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"https:\/\/i0.wp.com\/www.office-guru.com\/wordpress\/wp-content\/uploads\/2017\/11\/Excel-Group-Command.png?fit=276%2C236&ssl=1&resize=350%2C200","width":350,"height":200},"classes":[]},{"id":520,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/04\/creare-file-con-vba-ed-inviarli-via-mail-avanzato\/","url_meta":{"origin":1064,"position":1},"title":"017. Creare file con VBA ed inviarli via mail (avanzato)","date":"20 Aprile 2013","format":false,"excerpt":"Ciao a tutti, in questo giorni ho modificato il Tool che invia allegati tramite email seguendo alcune necessit\u00e0 di Alessandra. Le modifiche sono le seguenti: 1) verifica della presenza dei nomi inseriti nella base dati con quelli presenti in elenco e segnalazione di eventuali assenze 2) selezione attraverso di un\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1257,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/06\/052-copia-riga-da-foglio1-a-foglio2\/","url_meta":{"origin":1064,"position":2},"title":"052. Copia riga da foglio1 a foglio2","date":"8 Giugno 2014","format":false,"excerpt":"Domanda: Ho 2 fogli : 1) prenotazioni; 2) pagato Sul foglio prenotazioni i dati sono inseriti da B a AC e ci sono delle celle vuote, dove si andranno a mettere dei dati,\u00a0 ed altre celle con formule. La mia necessit\u00e0 \u00e8 che quando nella colonna AC, su qualsiasi riga,\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":873,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/archivio-con-fotografie-degli-articoli\/","url_meta":{"origin":1064,"position":3},"title":"035. Archivio con Fotografie degli articoli","date":"22 Gennaio 2014","format":false,"excerpt":"Damanda: devo associare la foto in formato jpg di una regione italiana quando nella descrizione di un vino compare il nome di quella regione. naturalmente ci sono 20 regioni + alcune nazioni x i vini esteri e le immagini devono comparire iu una cella con il risultato di un cerca\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1076,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/02\/problema-su-dati-apparentemente-uguali\/","url_meta":{"origin":1064,"position":4},"title":"043. Problema su dati apparentemente uguali","date":"21 Febbraio 2014","format":false,"excerpt":"Domanda: Due stringhe apparentemente uguali \\\"0178K\\\" e\u00a0\u00a0\u00a0\u00a0 \\\"0178K\\\" estratte da due file excel diversi, se li confronto con la formula\u00a0\u00a0\u00a0\u00a0 =IDENTICO rusulta \\\"FALSO\\\". Gi\u00e0 ho provato a modificare il formato delle\u00a0\u00a0\u00a0\u00a0 due stringe con (copia incolla speciale formato) oppure con (testo in\u00a0\u00a0\u00a0\u00a0 colonne)ma risultano sempre non uguali. Qualcuno sa indicarmi\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":455,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/10\/invio-mail-vba-spedire-automaticamente-fogli-excel-tramite-outlook\/","url_meta":{"origin":1064,"position":5},"title":"Invio mail con VBA: Spedire automaticamente fogli Excel tramite Outlook (anche come PDF)","date":"26 Ottobre 2013","format":false,"excerpt":"Il bisogno e' molto semplice: abbiamo una serie di fogli excel (report) da distribuire in modo selettivo a un insieme di colleghi. Vogliamo creare file excel specifici per ogni collega (gruppo di colleghi) contenente i report ad essi destinati vogliamo poter includere in una mail tale file excel (possibilmente senza\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1064"}],"collection":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/comments?post=1064"}],"version-history":[{"count":4,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1064\/revisions"}],"predecessor-version":[{"id":1225,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1064\/revisions\/1225"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=1064"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=1064"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=1064"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}