selezionare valore massimo

[rombotuono]

Buonasera,
avrei un quesito alquanto complesso, mi spiego meglio:
vorrei selezionare da un menù a tendina uno alla volta i nomi presenti ogni nome ha una sua percentuale.
in cella o57 seleziono il nome e in cella o55 viene evidenziato il valore.tutto questo ripeto per ogni nome, alla fine in o55 deve essere presente il valore più alto e in o57 il relativo nome.
ho provato con la registrazione macro, ma con risultati disastrosi.
chiedo gentilmente agli esperti se questo quesito sia risolvibile.
grazie
allego file
https://www.mediafire.com/file/7h1dws3s ... a.zip/file

[Anthony47]

Ma tu vuoi sapere i dati che risultano dai soli valori che hai selezionato o di tutti i valori presenti?

[rombotuono]

grazie.
selezionando il menu a tendina
HOME UN 1.5 1° T corrisponde al valore più alto 85.26% è il valore che deve essere presente in o55.
il codice dovrebbe selezionare un nome alla volta e ricercare il valore più alto, una volta trovato deve mostrarlo in cella o55.

[Anthony47]

Prova con questa macro:

Codice: Seleziona tutto

Sub ValiList()
Dim mySplit, I As Long
Dim MaxV(1 To 2)
'
Application.EnableEvents = False
'Application.ScreenUpdating = False
mySplit = Split(Range("O57").Validation.Formula1, ";", , vbTextCompare)
For I = 0 To UBound(mySplit)
    Range("O57") = mySplit(I)
    If Range("O58") > MaxV(1) Then
        MaxV(1) = Range("O58")
        MaxV(2) = mySplit(I)
    End If
Next I
If MaxV(1) > 0 Then
    Range("O57") = MaxV(2)
    MsgBox ("Selezionato: " & MaxV(2))
Else
    Beep
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


[rombotuono]

grazie
Anthony47
funziona alla grande.
chiedo se si può con la stessa macro ampliare la ricerca anche alle altre conlonne che sono p, q, r

[Anthony47]

Si puo'; il sistema piu' veloce per te e' di replicare il codice, cambiando il titolo e modificando quegli Oxx in Pxx, Qxx e Rxx

[rombotuono]

gentilissimo
provo
grazie