Creare un foglio che riassume elenchi

[ely_onair]

Buonasera a tutti.
ho vari fogli Excel con dei nominativi, volevo sapere se c'è un modo per creare un elenco unico senza nomi doppi e che mi dica in quali elenchi rientra ogni nome.
ES:

----------------------elenco1------elenco2--------elenco 3
Rossi Mario-----------x---------------------------------------
Bianchi Maria------------------------- x-------------- x-----
Verdi Luigi----------- x------------------------------- x------
Spencer Bud---------x-----------------x-------------- x------
Hill Terence--------- x----------------x-----------------------

Grazie per l'attenzione

[alfrimpa]

Se alleghi un file di esempio con i dati ed il risultato voluto inserito a mano forse è più facile rispondere.

[Anthony47]

Senza un file esemplificativo ho immaginato che i "nomi" siano in Colonna A di ogni foglio.
Con questo presupposto, aggiungi al tuo file un nuovo foglio e chiamalo "Indice". Poi inserisci in un "Modulo standard" del vba questa macro:

Codice: Seleziona tutto

Sub Summary()
Dim I As Long, J As Long, CInd As Long, myMatch, cSh As Long
Sheets("Indice").Range("A1").Resize(100000, Worksheets.Count).ClearContents
For I = 1 To Worksheets.Count
    If Worksheets(I).Name <> "Indice" Then
        cSh = cSh + 1
        With Worksheets(I)
            For J = 1 To .Cells(Rows.Count, 1).End(xlUp).Row            '**
                myMatch = Application.Match(.Cells(J, 1), Sheets("Indice").Range("A1").Resize(CInd + 10, 1), False)   '**
                If IsError(myMatch) Then
                    Sheets("Indice").Range("A1").Offset(CInd, 0) = .Cells(J, 1)         '**
                    CInd = CInd + 1
                End If
                myMatch = Application.Match(.Cells(J, 1), Sheets("Indice").Range("A1").Resize(CInd + 10, 1), False)   '**
                Sheets("Indice").Range("A1").Offset(myMatch - 1, cSh) = .Name
            Next J
        End With
    End If
Next I
Sheets("Indice").Select
End Sub


Per le istruzioni su come fare, vedi viewtopic.php?f=26&t=103893&p=647675#p647675

Infine manda in esecuzione la Sub Summary
ATTENZIONE: il foglio Indice viene azzerato senza preavviso a inizio macro.

Se il presupposto dei nomi in colonna A e' errato, allora devi modificare le istruzioni marcate **, sostituendo a "1" (=colonna A) l'indice della colonna col nome (2=B, 3=C,...)
In caso di problemi, allora allega il tuo file esemplificativo, completo pero' della macro e degli adattamenti che hai provato a fare.

Fai sapere...

[ely_onair]

Grazie mille, ci lavoro su!

[ely_onair]

Ciao Anthony47,
Ho seguito le istruzioni, ho i nomi sulle colonne A dei vari fogli e ho chiamato il primo foglio vuoto Indice.
Quando eseguo la Sub Summary esce il primo nome del primo foglio e il nome del foglio in cui si trova. Poi mi restituisce l'errore: Errore Runtime 13 Tipo non corrispondente.
Il Debug mi evidenzia questa riga:

Sheets("Indice").Range("A1").Offset(myMatch - 1, cSh) = .Name

Sto usando Excell 2016


Grazie in anticipo per la disponibilità

[ely_onair]

No ok, RISOLTO
era un errore di formattazione dei file
Grazie