Casella di ricerca con possibilità di editare direttamente i dati

Question

Buongiorno a tutti,

allego il file di riferimento, premetto che all'interno è già presente del codice VBA che permette, in determinate condizioni, di nascondere un'intera riga del foglio "ATTIVE" e nel caso di ripristinare predetta riga dal foglio "ARCHIVIO".

https://we.tl/t-ZMiI5SVOLm

siccome i dati nell'archivio stanno iniziando a diventare veramente tanti, stavo cercando di implementare un quinto foglio "RICERCA", che abbia la funzione di riportare, momentaneamente (nel senso che se cancello ciò che stavo cercando venga ripristinato il foglio "pulito"), tutte le righe del foglio "ARCHIVIO" che corrispondano al testo inserito nell'apposito campo, e che le righe risultanti siano editabili (basterebbe la ricerca nelle seguenti colonne: "ente pratica" "prot. in entrata" "prot. risposta" "rif.reg" del foglio ARCHIVIO).

n.b. - Si riscontra il seguente problema, nel inserire i dati nel foglio ricerca, lo script presente che nasconde le righe, non funziona più e spunta un errore.

Fogli presenti visibili: ATTIVE, ARCHIVIO, RIASSUNTO,RICERCA

fogli presenti Nascosti: ELENCHI

non riesco a venirne fuori, c'è qualcuno che riesca ad aiutarmi?

non so se sono stato chiarissimo, nel caso ponete tutte le domande/dubbi e cercherò di rispondervi!

Answer 1

Se il problema è l'errore di VBA allora alla procedura presente nell'evento "Workbook_SheetChange" devi semplicemente aggiungere una condizione iniziale per indicare a quali fogli applicare il codice che segue.

Ad esempio dopo le varie dichiarazioni "Dim" potresti inserire questa istruzione

If Sh.Name <> "ATTIVE" And Sh.Name <> "ARCHIVIO" Then Exit Sub

Se il foglio dove vengono apportate le modifiche non ha come nome "ATTIVE" o "ARCHIVIO" la procedura si blocca prima di eseguire il successivo codice.