Condividi:        

selezionare valore massimo

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

selezionare valore massimo

Postdi rombotuono » 25/01/23 21:14

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
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27

Sponsor
 

Re: selezionare valore massimo

Postdi Anthony47 » 26/01/23 01:37

Ma tu vuoi sapere i dati che risultano dai soli valori che hai selezionato o di tutti i valori presenti?
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: selezionare valore massimo

Postdi rombotuono » 26/01/23 09:29

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.
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27

Re: selezionare valore massimo

Postdi Anthony47 » 26/01/23 10:52

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: selezionare valore massimo

Postdi rombotuono » 26/01/23 12:33

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
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27

Re: selezionare valore massimo

Postdi Anthony47 » 26/01/23 14:49

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: selezionare valore massimo

Postdi rombotuono » 26/01/23 15:26

gentilissimo
provo
grazie
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27


Torna a Applicazioni Office Windows


Topic correlati a "selezionare valore massimo":

BTp Valore
Autore: MarioLombardi
Forum: Forum off-topic
Risposte: 2

Chi c’è in linea

Visitano il forum: Nessuno e 36 ospiti