Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

collegare e confrontare 2 fogli excel/calc

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

collegare e confrontare 2 fogli excel/calc

Postdi candykat » 27/07/13 11:18

Buongiorno a tutti,
Sto cercando di collegare 2 fogli di excel in maniera tale che sul terzo foglio mi risultino i dati del foglio 1 senza i dati uguali che si trovano nel 2, mi spiego meglio: sul foglio 1 e sul foglio 2 ci sono degli elenchi di nomi, io vorrei che nel foglio 3 mi risultassero solo i nomi che non compaiono nel foglio 2. E' possibile?
candykat
Newbie
 
Post: 1
Iscritto il: 27/07/13 10:54

Sponsor
 

Re: collegare e confrontare 2 fogli excel/calc

Postdi Flash30005 » 27/07/13 17:03

Ciao Candykat e benvenuto nel Forum
Una macro del genere dovrebbe risolvere il quesito
Codice: Seleziona tutto
Sub ElencoUniv()
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
Set Ws3 = Worksheets("Foglio3")
Ws3.Cells.ClearContents
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
Tr = 0
    For RR2 = 2 To UR2
    If Ws1.Range("A" & RR1).Value = Ws2.Range("A" & RR2).Value Then
    Tr = 1
    Exit For
    End If
    Next RR2
    If Tr = 0 Then
    UR3 = Ws3.Range("A" & Rows.Count).End(xlUp).Row + 1
    Ws3.Range("A" & UR3).Value = Ws1.Range("A" & RR1).Value
    End If
Next RR1
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "collegare e confrontare 2 fogli excel/calc":


Chi c’è in linea

Visitano il forum: patel e 3 ospiti