Cercare nominativi in più fogli di Excel

Question

Buongiorno

Vorrei sapere se posso, inserendo una casella di controllo effettuare una ricerca di nominativi che sono disposti in più fogli in una cartella di Excel. E se nel caso di omonimia, non si fermi sul primo elemento trovato, ma continui, se richiesto, la ricerca.

Grazie

Answer 1

Ciao Gennaro,

Il problema è il mio " Capo", incapace in tutto quello che riguarda pc o smartphone.

Mi necessità un pulsate che apri l'oggetto " Trova" già impostato con le opzioni di ricerca in tutti i fogli.

Sembra "strano" ma si perde in un bicchiere d'acqua.

Prova quanto segue:

Nel modulo di codice dell'oggetto ThisWorkbook (Ouesta_cartella_di_lavoro) del file Personal.xlsb del tuo capo, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:00:02"), "TrovaDappertutto"

End Sub

'<<=========

In un modulo sndard dello stesso file, incolla:

'=========>>

Option Explicit

'--------->>

Public Sub TrovaDappertutto()

    ActiveSheet.Cells.Find What:="", LookAt:=xlWhole

    With Application

        .CommandBars("Worksheet Menu Bar").FindControl( _

                ID:=1849, _

                recursive:=True).Execute

        .SendKeys ("%+t")

        .SendKeys ("%+c")

        .SendKeys ("%+o")

        .SendKeys ("%+h")

        .SendKeys ("{Down}~")

        .SendKeys ("%+o")

        .SendKeys "{Escape}"

    End With

End Sub

'<<=========

Salva il file Personal.xlsb e chiudi Excel.

Da ora in poi, ogni volta che il capo apri Excel, facendo una ricerca vedrà le seguenti impostazioni:

===

Regards,

Norman

Answer 2

Ciao Gennaro,

potresti gentilmente fornirci un esempio? Sarebbe più facile capire qual'è la soluzione migliore perchè ciò che casanmaner ti ha consigliato è molto funzionale. Ti invito a leggere questa guida per maggiori informazioni.

Attendo una tua risposta e rimango a disposizione.

Saluti,

Claudio

Answer 3

Grazie per la risposta, ma a me servirebbe un comando tipo quello che ti descrivo, e che non termini la sua funzione al primo trovato, ma possa se necessità continuare la ricerca.

Private Sub CERCA_Click()

Dim trovato As Boolean

Dim I As Long

TextToFind = InputBox("Cosa vuoi cercare?")

For I = 1 To Sheets.Count

    Set ricerca = Sheets(I).Cells.Find(TextToFind, LookIn:=xlValues, LookAT:=xlPart)

    If Not ricerca Is Nothing Then

        Sheets(I).Select

        ricerca.Activate

        trovato = True

    End If

Next I

    If trovato = False Then

        MsgBox "Testo non trovato!", vbExclamation

    End If

End Sub

Answer 4

Ma per farne cosa? Un elenco? E il risultato dove metterlo?

Answer 5

Non so se è quello che cerchi ma con la funzione "Trova" puoi ricercare un valore presente in tutti i fogli di una cartella di lavoro con la visualizzazione di tutte le voci presenti: