FORMULA

[Lucio Peruggini]

Nella immagine vi è la spiegazione.
Grazie molte

https://www.dropbox.com/s/vck0a3jvm07c5 ... o.PNG?dl=0

[Marius44]

Ciao Lucio
con una immagine ci si può far poco. Costruire le tue due colonne è un lavoro faticoso. Ma perchè non inserisci il file e agevoli chi volesse aiutarti?

Comunque, fra le mie scartoffie ho trovato questa macro che confronta la colonna A con la colonna B e mette, nella colonna C, un asterisco quando trova due valori uguali.

Codice: Seleziona tutto

Sub Confrontare_A_B()
Dim rngA As Range
Dim rngB As Range
Dim rw As Long
    Set rngA = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
    Set rngB = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
    rw = 1
    For Each cell In rngB
        If Application.CountIf(rngA, cell.Value) = 0 Then
            Cells(rw, 3) = "*"
            rw = rw + 1
        End If
    Next
End Sub


Prova ad adattarla alle tue esigenze e vedi se è quello che volevi. Ciao,
Mario

[Lucio Peruggini]

Ciao Mario, hai ragione potevo inserire anche il file; eccolo!

https://www.dropbox.com/s/en16g5dyy1sa8 ... .xlsx?dl=0

Ora non ho tempo per valutare la macro ma penso che una formula sia più agevole.
Ti ringrazio e farò sapere se essa va bene.
Ciao

[Lucio Peruggini]

Non ricordo più come allegare il link per farlo scaricare dal Dropbox; lo farò con calma oggi. Ciao a tutti e buona giornata.

[Lucio Peruggini]

Eccolo! Ora si può scaricare il file.

https://dl.dropboxusercontent.com/u/182 ... crivi.xlsx

Ciao

[Lucio Peruggini]

Ciao Mario, la macro mi da errore (vedi foto) - che non riesco a risolvere.
https://dl.dropboxusercontent.com/u/182 ... 0-%200.PNG

Ho risolto con formula fondendo le due colonne (=SE(A17=A18;"*";""); questo è quanto sono riuscito a fare.
https://dl.dropboxusercontent.com/u/182 ... 0-%201.PNG

Grazie

[Lucio Peruggini]

Comunque, fra le mie scartoffie ho trovato questa macro che confronta la colonna A con la colonna B e mette, nella colonna C, un asterisco quando trova due valori uguali.

Ciao Mario, la macro funziona (mi mancava alla fine l'End Sub) però non fa quello che dicevo io e non saprei nemmeno dove metter mano. Se inserisci la tua macro nel foglio Excel che ho inviato te ne rendi subito conto.
In realtà dei cento ambi inseriti nelle colonne A e B, solo 17 sono doppioni.
Ciao

[Marius44]

Ciao Lucio
t'avevo detto che bisognava adattarla. L'ho trasformata un po' e faccio mettere l'asterisco all'altezza della riga della colonna B quando trova un "uguale".
Guarda che nel tuo conteggio c'è un errore (la macro non mente )

Codice: Seleziona tutto

Sub Confrontare_A_B()
Dim rngA
Dim rngB
    rngA = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
    rngB = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
    For i = 2 To UBound(rngA)
        For j = 2 To UBound(rngB)
            If rngA(i, 1) = rngB(j, 1) Then
                Cells(j + 1, 4) = "*"
            End If
        Next j
    Next i
   
End Sub


Ri...prova e fai sapere. Ciao,
Mario

[Lucio Peruggini]

Ciao Mario, nel mio Excel ne avevo saltato uno (il 20.81).
Ora va bene; svolge egregiamente il suo lavoro.

Molte grazie

[Anthony47]

La macro di Mario funziona regolarmente se applicata sui dati pubblicati.
Potrebbe pero' esserci un problema sulla prima riga, in quanto gli array inseriti nelle variant rngA e rngB gia' cominciano da Riga 2, quindi i loop non dovrebbero essere del tipo For i/j = 2 To UBound(rngA/B) ma del tipo

Codice: Seleziona tutto

For i/j = 1 To UBound(rngA/B)

Una possibile alternativa: in C2 la formula

Codice: Seleziona tutto

=CONTA.SE(A:A;B2)

da copiare poi verso il basso
Questa ti restituisce N/0, dove N e' quante volte l'accoppiata di col B e' presente in col A; se ti da' fastidio questa "visione" allora formatta l'area delle fomule: avvia Formato celle, tab Numero, scegli Personalizzato; come Tipo inserisci "*";#,0;#
Questa ti cambia solo la "visualizzazione", non il contenuto della cella; se vuoi proprio che la cella contenga "*" oppure "niente" allora modifica la formula data prima in

Codice: Seleziona tutto

=SE(CONTA.SE(A:A;B2)>0;"*";"")

Ciao a tutti.

[Lucio Peruggini]

Ciao Anthony

Le formule vanno benissimo (preferisco la seconda).
La correzione alla macro di Mario mi da errore (vedi immagine)

https://dl.dropboxusercontent.com/u/182 ... azione.PNG

Ciao e grazie molte

[Anthony47]

Volevo risparmiare e invece mi tocca raddoppiare...

Codice: Seleziona tutto

    For i = 2 To UBound(rngA)
        For i/j = 1 To UBound(rngA/B)

Eccicredo che si in***za....

Prova con

Codice: Seleziona tutto

    For i = 1 To UBound(rngA)
        For j = 1 To UBound(rngB)

Ciao

[Lucio Peruggini]

Ora e ok!
Grazie