Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Creare indice/sommario codici catalogo con stesse pagine

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Creare indice/sommario codici catalogo con stesse pagine

Postdi servicedynergy » 21/07/15 14:22

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
servicedynergy
Newbie
 
Post: 5
Iscritto il: 21/07/15 14:12

Sponsor
 

Re: Creare indice/sommario codici catalogo con stesse pagine

Postdi alfrimpa » 21/07/15 18:36

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
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 841
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Creare indice/sommario codici catalogo con stesse pagine

Postdi servicedynergy » 22/07/15 08:01

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
servicedynergy
Newbie
 
Post: 5
Iscritto il: 21/07/15 14:12

Re: Creare indice/sommario codici catalogo con stesse pagine

Postdi alfrimpa » 22/07/15 11:23

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
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 841
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Creare indice/sommario codici catalogo con stesse pagine

Postdi servicedynergy » 28/07/15 14:26

Funziona perfettamente...

Grazie mille
servicedynergy
Newbie
 
Post: 5
Iscritto il: 21/07/15 14:12


Torna a Applicazioni Office Windows


Topic correlati a "Creare indice/sommario codici catalogo con stesse pagine":


Chi c’è in linea

Visitano il forum: alfrimpa e 10 ospiti