Ricerca valori doppi in colonna

[blunotte13]

Ciao a tutti, ho provato a fare copia/taglia/incolla/registratore di macro di alcune macro trovate in rete, ma non riesco ad ottenere ciò che voglio.
Io vorrei confrontare il valore delle celle di un dato range e trovare i valori ripetuti. Il range riesco a determinarlo, il ciclo per scorrere le celle fino a fine range anche, ma non riesco a fare il confronto, nel msgbox che c'è nella macro per indicare in che cella di trova il doppione viene sempre indicata la cella in cui si trova il valore da confrontare ma non la seconda o terza cella in cui lo posso trovare.
Questa la macro frankenstein

Codice: Seleziona tutto

Sub prova_3()

Range("D2:AC90").Select
    Selection.Find(What:=Range("A15").Value, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Select
 
ActiveCell.Offset(1, 1).Select

NumRows = Range(Selection, Selection.End(xlDown)).Rows.Count
 
For i = 1 To NumRows

Dim x As Boolean
y = ActiveCell.Value
  For Each cl In Range(Selection, Selection.End(xlDown))
   If cl = y Then
   x = True
  End If
 Next
If x = True Then
  MsgBox "Value found in cell " & ActiveCell.Address
Else
 MsgBox "Value not found"
End If
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Allego anche un file di esempio:
http://www.filedropper.com/fileforum

Grazie per l'aiuto.

[Anthony47]

Dovrebbe bastare modificare in:

Codice: Seleziona tutto

  MsgBox "Value found in cell " & cl.Address

Ciao

[blunotte13]

Dovrebbe bastare modificare in:

Codice: Seleziona tutto

  MsgBox "Value found in cell " & cl.Address

Ciao

Grazie della risposta, ma lanciando la macro mi da un errore:
" errore di run time "424" oggetto necessario.

[Anthony47]

Eh si, l'istruzione msgbox e' fuori dal ciclo For Each cl /Next cl...

Ho modificato tutta la sub come segue:

Codice: Seleziona tutto

Sub prova_3()
Range("D2:AC90").Select
    Selection.Find(What:=Range("A15").Value, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Select
 
ActiveCell.Offset(1, 1).Select
numrows = Range(Selection, Selection.End(xlDown)).Rows.Count
Dim x As String ' As Boolean
 
For i = 1 To numrows - 1
    y = ActiveCell.Value
    x = ""
    For Each cl In Selection.Offset(1, 0).Resize(numrows - i, 1) ' Range(Selection.Offset(1, 0), Selection.Offset(1, 0).End(xlDown)) 'Range("f1:f30")
        If cl = y Then
            x = cl.Address
        End If
    Next
    If x <> "" Then
        MsgBox y & " FOUND in cell " & x 'MsgBox ("Valore Presente")
    Else
        MsgBox y & " not found"  'MsgBox ("Valore Assente")
    End If
    ActiveCell.Offset(1, 0).Select
Next i
End Sub


A me fa qualcosa di sensato, ma non sapendo con certezza quale era il tuo obiettivo non so se anche tu sarai soddisfatto

Ciao

[blunotte13]

Grazie, invece era ciò che volevo.
Un foglio solo può avere poco senso, ma nell'insieme del file che sto cercando di fare secondo la mia logica un senso ce l'ha