Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

cerca nome mancante in 2 fogli

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

cerca nome mancante in 2 fogli

Postdi raimea » 24/03/10 19:07

colonna f colonn h (fogl5)

NAPOLI 3 INTER
Duisburg 1 Kaiserslautern
Lione 1 Real Madrid
WIGAN 1 BOLTON
Standard Liegi 1 Salisburgo
BRESCIA 2 ASCOLI
ESKISEHIRSPOR 1 genclerbirligi
ANCONA 2 PADOVA
-----------------------------------------------------

colonna c (fogl6)

Ordine Alfabetico

Aachen
ALMERIA
amburgo
Ancona
ANDERLECHT
ASCOLI
ATLETICO bilbao
ATLETICO MADRID
BANIK ostrava
BARCELLONA


avendo 2 foglio excell come riportato sopra
vorrei una formula che mi controlli i nomi dei 2 fogli
ed incrementando il fogl 5, faccia un confronto con il fogl 6 in modo di estrarre il nuovo nome
solo se non ancora presene nel fogl 6
ringrazio
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: cerca nome mancante in 2 fogli

Postdi Anthony47 » 25/03/10 02:15

La mia interpretazione e' che quel numero tra le due squadre sta' nella colonna G.
Assegna alla colonna C di Fogl6 il "nome" LISTA: seleziona tutta la colonna, Menu /Inserisci /Nome /Definisci, come Nome scrivi LISTA, Ok.
Poi su Fogl5 selezioni da F1 a F100 e applichi una formattazione condizionale: Menu /Formato /Formattazione condizionale; Condizione1=la formula e', come formula inserisci =E(CONTA.SE(LISTA;F1)=0;F1<>""); premi Formato, tab Motivo, selezioni il colore Rosso, Ok, Ok.
Ripeti per la colonna H, usando H1 nella formula invece di F1.

In questo modo le voci che sono in Fogl5 ma mancano nell' elenco di Fogl6 saranno colorate di Rosso; ti bastera' copiarle da Fogl5 e fare Incolla speciale /Valori su Fogl6.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: cerca nome mancante in 2 fogli

Postdi raimea » 25/03/10 07:10

si, ti confermo che il numero dopo la colonna F e' in colonna g.

quello che scrivi e' vero e funziona, solo che ce lo gia cosi.
io vorrei poter estrarre proprio il nome della/e nuove squadre non ancora in fgl 6
ti ringrazio.
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Re: cerca nome mancante in 2 fogli

Postdi Flash30005 » 25/03/10 13:49

Prova questa macro
Codice: Seleziona tutto
Sub CompilaEl()
    UR5 = Worksheets("Foglio5").Cells(Rows.Count, 6).End(xlUp).Row
    UR6 = Worksheets("Foglio6").Cells(Rows.Count, 3).End(xlUp).Row
    For R5 = 2 To UR5
        For C5 = 6 To 8 Step 2
            SQ5 = UCase(Worksheets("Foglio5").Cells(R5, C5).Value)
            For R6 = 2 To UR6
                SQ6 = UCase(Worksheets("Foglio6").Cells(R6, 3).Value)
                If SQ5 = SQ6 Then GoTo salta
            Next R6
            Uri = Worksheets("Foglio6").Cells(Rows.Count, 3).End(xlUp).Row + 1
            Worksheets("Foglio6").Cells(Uri, 3).Value = SQ5
salta:
        Next C5
    Next R5
    Call Ordina
End Sub
Sub Ordina()
 Worksheets("Foglio6").Select
    Columns("C:C").Select
    Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("B1").Select
End Sub


Avvia "CompilaEl"

Fai sapere
ciao


P.s. Sarebbe opportuno mettere i nomi squadre, sempre, tutte in maiuscolo
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-

Re: cerca nome mancante in 2 fogli

Postdi raimea » 26/03/10 09:44

Ringrazio Molto il Sig. Flash30005
per la serieta' - professionalita' - disponibilita dimostrata.

con una sola macro ha risolto entrambe i miei 2 post.

riporto la SUA macro (applicata al mio file)

----------------------------------------------
Sub CompilaElenco()
Worksheets("6-Squadre.Alfabeto").Unprotect
UR5 = Worksheets("5-Squadre").Cells(Rows.Count, 6).End(xlUp).Row
UR6 = Worksheets("6-Squadre.Alfabeto").Cells(Rows.Count, 3).End(xlUp).Row
For R5 = 9 To UR5
For C5 = 6 To 8 Step 2
SQ5 = UCase(Worksheets("5-Squadre").Cells(R5, C5).Value)
For R6 = 8 To UR6
SQ6 = UCase(Worksheets("6-Squadre.Alfabeto").Cells(R6, 3).Value)
If SQ5 = SQ6 Then GoTo salta
Next R6
Uri = Worksheets("6-Squadre.Alfabeto").Cells(Rows.Count, 3).End(xlUp).Row + 1
Worksheets("6-Squadre.Alfabeto").Cells(Uri, 3).Value = SQ5
salta:
Next C5
Next R5
'Call Ordina
Worksheets("6-Squadre.Alfabeto").Protect
End Sub
Sub Ordina()
Worksheets("6-Squadre.Alfabeto").Select
Columns("C:C").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B1").Select
End Sub

---------------

chiunque fosse interessato a ricevere il file alla quale e' stata applicata mi contatti
via pm
Eliminato indirizzo di mail per rischio spam
by Anthony
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "cerca nome mancante in 2 fogli":


Chi c’è in linea

Visitano il forum: Nessuno e 65 ospiti