confronto tra due colonne

[ilFontaPartecipante ilFonta]

Salve, ho scritto questa macro che dovrebbe confrontare le celle appartenenti a due colonne e dolorare di rosso quelle celle il cui contenuto e' comune, ma qualcosa e' sbagliato, perche' non ottengo alcun risultato.

Grazie

Sub CONFRONTACOLONNE()

Dim masterRange As Variant ' prima colonna
Dim compareRange As Variant ' seconda colonna

Dim masterCell As Variant
Dim compareCell As Variant

Set masterRange = Application.InputBox(prompt:="Inserisci la prima colonna", Type:=8)
Set compareRange = Application.InputBox(prompt:="Seleziona la seconda colonna", Type:=8)

For Each masterCell In masterRange
    For Each compareCell In compareRange
        If masterCell = compareCell Then compare.Select
            With Selection.Font
                .Color = -16776961
               .TintAndShade = 0
            End With
        Next compareCell
Next masterCell
End Sub

[albatros54Moderatore albatros54 Karma: 89 pts]

a primo acchitto questa riga di codice

If masterCell = compareCell Then compare.Select

dovrebbe essere

If masterCell = compareCell Then comparecell.Select

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente?( Alan Turing)

[Luca73Partecipante Luca73 Karma: 58 pts]

Usare

Option Explicit Aiuta....

Grande insegnamento di questo forum

Ciao

[patelModeratore patel Karma: 51 pts]

nella riga

        If masterCell = compareCell Then compare.Select

compare non è definito, forse volevi scrivere compareCell.Select

inoltre a che serve dimensionare variant dei range ? o li dimensioni Range o non li dimensionare affatto

[ilFontaPartecipante ilFonta]

Si, dovevo sostituire compare con compareCell. Grazie a tuti

[Autore]

Articoli