Creare indice/sommario codici catalogo con stesse pagine

[servicedynergy]

Buongiorno,
intanto grazie mille per i lavori svolti in questi forum che sono veramente comodi e completi. Avrei bisogno perchè sto creando dei cataloghi in indesign e utilizzando la funzione sommario non riesco a creare indici che soddisfano le mie esigenze. In poche parole dovrei creare un elenco da porre a fine catalogo dove il cliente può ricercare il codice prodotto che serve e vedere in quali pagine è riportato. Di seguito riporto la tabella e il formato in cui mi piacerebbe che i dati venissero raggruppati. Ho provato ad utilizzare la funzione & ma è cmq un procedimento molto lungo e siccome si parla di più di 3000 codici sarebbe un problema.
000091 5
000091 9
000091 17
000091 21
000091 25
000091 37
000092 5
000092 9
000092 17
000092 21
000092 25
000092 37
000094 29
000125 21
000125 29
000125 33
000125 37
000125 41
000145 61
000148 55
000148 58
000214 55
000214 58
000215 56
000215 59

Come si può notare nella colonna A ci sono i codici del catalogo e di fianco il numero delle pagine in cui sono riportate.
Se possibile mi servirebbe che in un altro foglio venisse così:
000215 56,59

Win 7 Excel 2013

Grazie mille

[alfrimpa]

Ciao Servicedynergy

Prova a fare così

1) Suddividi la colonna A in modo che in A ci sia il numero 00091 etc ed in colonna B il numero delle pagine
2) In altra colonna (es. F) crea un elenco univoco della colonna A
3) Posto che da F1 a F8 ci siano i valori univoci in G1 utilizza la seguente funzione scrivendo =Cataloga(F1)

La function va inserita in un modulo standard nell'editor VBA

Codice: Seleziona tutto

Function Cataloga(a As Range)
Dim miorange As Range
Dim cel As Range
Set miorange = Range("a1:a25")
For Each cel In miorange
    If cel.Value = a.Value Then
        Cataloga = Cataloga & cel.Offset(0, 1).Value & " "
    End If
Next cel
End Function


Spero di essere stato chiaro (ma forse è meglio se ti allego il file )

Ecco il file http://www.filedropper.com/servicedynergy

Fai sapere

[servicedynergy]

Perfetto, funziona tutto... L'unica ti chiedo se è possibile che fra i numeri di pagine venga inserita la ","... ma se non ci si riesce fa lo stesso perchè faccio una sostituzione di testo in indesign...

Grazie mille e ciao

[alfrimpa]

Ciao Servicedyenergy

Modifica la Function come qui sotto riportato

Codice: Seleziona tutto

Function Cataloga(a As Range)
Dim pagine As String
Dim miorange As Range
Dim cel As Range
Set miorange = Range("a1:a25")
For Each cel In miorange
    If cel.Value = a.Value Then
        pagine = pagine & cel.Offset(0, 1).Value & ", "
    End If
Next cel
Cataloga = Left(pagine, Len(pagine) - 2)
End Function

[servicedynergy]

Funziona perfettamente...

Grazie mille