evidenziare un aumento percentuale

[raimea]

ciao
tramite una macro in fgl giorno_2
vorrei evidenziare ( con 3 colori diversi)
3 valori aumentati da una certa percentuale

in cella P3 Q3 R3 scrivo le percentuali da evidenziare
partendo dal valore di riferimento scritto in E5

vado ad analizzare la colonna E5_fino ultima riga

ovviamente non trovero'' il numero " puro" aumentato di X%
andrebbe evidenziato il primo valore utile

ES
nel file allegato evidenziare
x il 25% = 126,82
x il 50%= 151,57
x il 100% = 203,99

vi allego il file

https://www.dropbox.com/scl/fi/x76jyalburq9xynp8gav4/percentuale.xlsm?dl=0&rlkey=57ouk6aujz83sxcug3tuzu99p

ciao

[Anthony47]

Non hai detto con che colore evidenziare, quindi usero' allo scopo lo stesso colore della cella che contiene le percentuali.

Il codice:

Codice: Seleziona tutto

Sub CheckPercento()
Dim myC As Range, myMatch, Incr As Range, myD As Range
Dim dRange As Range
'
Set myD = Sheets("Giorno_2").Range("E5")                '<<< L'inizio dei dati
Set Incr = Sheets("Giorno_2").Range("P3:R3")            '<<< I %
'
Set dRange = Range(myD, myD.End(xlDown))
dRange.Offset(1, 0).Interior.Color = xlNone
For Each myC In Incr
    myMatch = Application.Match(myD * (1 + myC.Value), dRange)
    dRange.Cells(myMatch + 1, 1).Interior.Color = myC.Interior.Color
Next myC
End Sub


Le celle marcate <<< contengono i parametri da personalizzare

Ciao

[raimea]

ciao

e' tutto ok

vero non ho scritto il nome dei colori.

ma OTTIMA l 'idea di prendere direttamente il colore
della cella che contiene la Perc. da evidenziare

grazie

ciao

[BG66]

Ciao @raimea,
non ho fatto in tempo a prelevare il tuo file esempio (... risulta eliminato).
Puoi condividerlo di nuovo?

Gene

[raimea]

ciao

eccoti il file x il test sopra

https://www.dropbox.com/scl/fi/lybvz75rkhji1qg4lytbu/percentuale.xlsm?dl=0&rlkey=0bj9ejw2odpgfsb2nvl2gzgqp

ciao