excel confrontare due tabelle mettere in evidenza le coincidenze

[esa]

Dovrei creare una macro in excel che mi risolva un piccolo problema. Qualcuno mi può aiutare?

In una colonna A ho 2000 numeri di telefono. Nella colonna B ho 100 numeri di telefono.
Vorrei che se il numero contenuto in una cella di A corrisponde ad uno qualsiasi dei numeri della colonna B la relativa cella della colonna A si colori ad esempio di rosso.
Come posso fare?

grazie

[nicola75ss]

Sub evidenzia()
ActiveSheet.Range("a:a").ClearFormats
For Each cella In Range("a1:a2000")
With ActiveSheet.Range("B:B")
Set Rng = .Find(What:=cella, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlFormulas, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext)
        If Not Rng Is Nothing Then
        cella.Interior.ColorIndex = 3
        End If
End With
Next cella
End Sub

Adatta il range della colonna A alle tue esigenze.

[esa]

grande!!!
come mi piacerebbe saper usare vba.
grazie mille!!!

[nicola75ss]

Prego. Buona notte.

[esa]

una domanda.
come posso fare a modificare il codice tenendo conto che non conosco il numero dei dati contenuti in "A" e in "B".

[nicola75ss]

Cosa sai per certo?
I dati nelle due colonne partono sempre dalla seconda riga con la prima che contiene le intestazioni?

[esa]

si
ma il numero dei dati contenuti in entrambi può cambiare.
grazie

[nicola75ss]

Sub evidenzia()
ActiveSheet.Range("a:a").ClearFormats
ultimariga = Range("A" & Rows.Count).End(xlUp).Row
For Each cella In Range("a2:a" & ultimariga)
With ActiveSheet.Range("B:B")
Set Rng = .Find(What:=cella, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlFormulas, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext)
        If Not Rng Is Nothing Then
        cella.Interior.ColorIndex = 3
        End If
End With
Next cella
End Sub

[esa]

grazie

[esa]

Mi permetto di approfittare della tua competeza e della tua disponibilità per porti qualche altra domanda
Avrei bisogno di creae altre tre macro simili.
ho sempre un database con un numero indefinito di elementi (righe) con un numero indefinito di dati (sulle colonne).
Vorrei poter fare due cose attraverso delle macro

n°1
la macro verifica, per ogni riga, i dati contenuri nelle colonne B,C,D e, se tutti e tre i campi sono vuoti cancella l'intera riga.

n°2
la macro verifica, per ogni riga, i dati contenuri nelle colonne B,C,D e, se almeno uno dei tre campi sono vuoti cancella l'intera riga.

n°3
la macro verifica, per ogni riga, i dati contenuri nella colonne B e se tale valore è vuoto copia il corrispondente valore della colonna C.