Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Ricerca valori doppi in colonna

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Ricerca valori doppi in colonna

Postdi blunotte13 » 28/04/20 19:25

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.
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 136
Iscritto il: 13/01/10 19:35

Sponsor
 

Re: Ricerca valori doppi in colonna

Postdi Anthony47 » 28/04/20 23:16

Dovrebbe bastare modificare in:
Codice: Seleziona tutto
  MsgBox "Value found in cell " & cl.Address


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17043
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Ricerca valori doppi in colonna

Postdi blunotte13 » 29/04/20 11:51

Anthony47 ha scritto: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.
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 136
Iscritto il: 13/01/10 19:35

Re: Ricerca valori doppi in colonna

Postdi Anthony47 » 29/04/20 12:36

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 :D :D

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17043
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Ricerca valori doppi in colonna

Postdi blunotte13 » 29/04/20 17:44

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 :D :lol:
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 136
Iscritto il: 13/01/10 19:35


Torna a Applicazioni Office Windows


Topic correlati a "Ricerca valori doppi in colonna":


Chi c’è in linea

Visitano il forum: Nessuno e 39 ospiti