Condividi:        

[EXCEL] da più celle ottenere solo i valori diversi

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

[EXCEL] da più celle ottenere solo i valori diversi

Postdi iso7782 » 19/05/09 00:40

Ciao,
Intanto un complimento al vosto furum.
Ho un problema che a mio avviso è semplice ma per me non lo è! :cry:

Ho una cartella Excel composta da più fogli, in ogni foglio è presente una colonna dove nelle celle ci sono inseriti dei codici, questi possono essere diversi tra di loro e anche no.
Ho la necessità di fare un foglio riepilogativo dove mi risulti una colonna dove ci siano tutti i codici inseriti sui fogli precedenti, senza che si ripetano più volte.
Mi spiego meglio:
Se ho il foglio 1 dove nella colonna A ci sono i valori 1 2 3 3 5
Nel foglio 2 (sempre nella colonna A) ci sono i valori 1 2 4 5 6 7
Nel foglio Riepilogo voglio avere il risultato di tutti i valori inseriti (ma non che ri sipetano più volte) in questo caso sarebbe 1 2 3 4 5 6 7

Spero di essere stato chiaro.
Mi sa che è più difficile da spiegare che non la soluzione. :P

Grazie
Simone
iso7782
Newbie
 
Post: 3
Iscritto il: 18/05/09 23:38

Sponsor
 

Re: [EXCEL] da più celle ottenere solo i valori diversi

Postdi Flash30005 » 19/05/09 08:12

Ho considerato i fogli numerati così
Foglio1, Foglio2, Foglio3 etc (valore NF)
e che i codici fossero nella colonna A (da A2 in poi di ogni foglio)
usando questa macro dovresti risolvere
Codice: Seleziona tutto
Sub crea_Riepilogo()
Dim W As Worksheet
Dim Righe As Integer
Dim codice As String
Dim i As Integer
Dim Trovato As Boolean
Dim NF As Integer
NF = 3  '<<< Numero fogli

Righe = Range("A" & Rows.Count).End(xlUp).Row
For F = 1 To NF
    Set W = Sheets("Riepilogo")
    Worksheets("Foglio" & F).Select
    For N = 2 To Righe
        codice = Cells(N, 1).Value
        i = 1
        Trovato = False
        While W.Cells(i, 1).Value <> "" And Not Trovato
            If W.Cells(i, 1).Value = codice Then
                Trovato = True
            End If
            i = i + 1
        Wend
        If Not Trovato Then
            W.Cells(i, 1).Value = codice
        End If
    Next
Next
End Sub


Prova e fai sapere

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] da più celle ottenere solo i valori diversi

Postdi iso7782 » 23/05/09 10:29

Grazie Flash,
Ho provato ma non va.
Ho incollato le istruzioni che mi hai scritto, ma quando premo ESEGUI mi da questo errore RUN-TIME '9'

Cosa c'è che non va?
iso7782
Newbie
 
Post: 3
Iscritto il: 18/05/09 23:38

Re: [EXCEL] da più celle ottenere solo i valori diversi

Postdi Flash30005 » 23/05/09 12:27

Ho ricostruito un foglio test e ho inserito i codici della macro postata e tutto funziona
Scarica il file in allegato
togli l'estenzione .txt (rimane solo Riepilogo.zip)
Lo scompatti e avrai Riepilogo.xls
provalo
ciao
Allegati

[L’estensione txt è stata disattivata e non puó essere visualizzata.]

Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] da più celle ottenere solo i valori diversi

Postdi iso7782 » 23/05/09 12:45

ECCEZIONALE

FUNZIONA, MO PROVO A CONTROLLARE DOVE SBAGLIAVO.
DEVO FARE UN PO' DI PRATICA CON STE MACRO!

GRAZIE MILLE
iso7782
Newbie
 
Post: 3
Iscritto il: 18/05/09 23:38


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] da più celle ottenere solo i valori diversi":


Chi c’è in linea

Visitano il forum: Marius44 e 56 ospiti