cerca nome mancante in 2 fogli

[raimea]

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

[Anthony47]

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.

[raimea]

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.

[Flash30005]

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

[raimea]

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