Buona giornata, Giacomo;
purtroppo non riesco a rimandarti il File modificato, il tuo File necessita di "Riferimenti - VBAProject" mancanti sul mio PC e vorrei evitare di fare confusione.
Quello che riesco a fare è inviarti un File con quattro Fogli di lavoro piuttosto diversi da quelli proposti nel Tuo File ad esclusione del Foglio di lavoro "FANGHI" che è molto simile a quello utilizzato nei miei Test:
- Report
- Sceltaimpianto
- monitor
- FANGHI
Il numero di Fogli di lavoro è ininfluente; unico vincolo il "COMUNE IMPIANTO" selezionato deve essere necessariamente in Cella "A1", altrimenti sarà necessario avere tanti Codici VBA quante sono le varianti.
Il File funziona in questo modo:
Entrando in "Sceltaimpianto", "monitor" o "FANGHI" nella Cella "A1" troverai una "Convalida Dati" proprio come nel Tuo File "FANGHI".
Dopo aver selezionato il "COMUNE IMPIANTO" desiderato, premendo "Ctrl+A", verrà visualizzato il Foglio di lavoro "Report" nel quale saranno nascosti tutti i "COMUNI IMPIANTO" diversi da quello selezionato nel Foglio di lavoro dal quale è partita la selezione ("Sceltaimpianto", "monitor", "FANGHI" o altri).
Per visualizzare tutti i Record presenti nel Foglio di lavoro "Report" basta eseguire "Doppio Click" in una qualunque Cella nel Foglio di lavoro "Report".
Una piccola modifica nel Campo "COMUNE IMPIANTO" (Colonna "E") mi ha consentito di indicare quanti Record significativi sono stati selezionati; può piacere o meno ma tant'è.
In alternativa a "Ctrl+A" è ovviamente possibile utilizzare un Pulsante dedicato, come nel Tuo File, oppure "Doppio Click" in una qualunque Cella nel Foglio di lavoro attivo ma in quest'ultimo caso sarà necessaria un Codice VBA dedicato per ogni Foglio di lavoro.
Vedi se può esserti utile.
A margine di quanto sopra, a beneficio degli Utenti di Forum, credo si potrebbe ridurre il numero di UserFor utilizzando il "Controllo" "Pagine"; sicuramente avrai già valutato questa opportunità preferendo la soluzione che hai adottato.
Buon Lavoro.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013