ciao
attraverso una query web aggiorno tutti i giorni dei dati tecnici da un sito internet .
nello specifico in excel nella colonna h dalla riga 7 alla riga 33 sono contenuti questi dati e nella colonna j da 7 a 33 la loro variazione percentuale .
per rendere la cosa piu' visiva avevo pensato di far in modo che le celle della colonna j cambiassero colore in base alla variazione del dato corrispondente nella colonna h.
avevo pensato al vba cioe' il metodo change o selection change in modo da poter visualizzare immediatamente la variazione percentuale ma purtroppo non riesco a far si che excel tenga in memoria i vecchi dati facendo si di confrontarli con i nuovi

faccio un breve esempio :
alla variazione del dato nella colonna h io vorrei che nella colonna j il colore di fondo della cella variasse , ad esempio
if range("h7")> il problema e' qui'then
range("h7").interior.colorindex=4
else
range("h7").interior.colorindex=3
end if
spero di aver esposto correttamente il problema ed inoltre accetto tutte le soluzioni

grazie per l'aiuto
ciao

salve
se ho compreso bene il tuo problema, i nuovi dati riversati in colonna H dovrebbero compararsi con i vecchi dati presenti nella stessa colonna H. Va da se che quando li vai a sosttuire perdi i valori di comparazione. Dovresti come normalmente si fa in questi casi crearti un Database storico dei valori e da esso crerti gli scostamenti percentuali. Se non ritieni necessario crearti dun Dbase devi comunque crearti una colonna di appoggio dove verserai i nuovi records della query che via macro andranno a prendere il posto dei dati di colonna H dopo aver calcolato lo scostamento.
saluti
Andrea

---

salve
premesso che non riesco ad avere l'esatta situazione del tuo foglio. Supponendo che i valori da tenere sotto osservazione siano importati in colonna H, copierei i valori di colonna H in una colonna al di fuori dell'area della query poi applicherei una macro di questo tipo: (Nb la copia della colonna dei valori serve solo la prima volta poi viene aggiornata automaticamente dalla macro)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set isect = Application.Intersect(Target, Columns("H:H"))
If Not (isect Is Nothing) Then
For i = 1 To 5 ' ho limitato la tabella a 5 righe
If Range("H" & i).Value > Range("K" & i).Value Then
Range("J" & i).Interior.ColorIndex = 4
Else
Range("J" & i).Interior.ColorIndex = 3
End If
Range("K" & i) = Range("H" & i)
Next
End If
Application.EnableEvents = True
End Sub

saluti
Andrea

---

<BLOCKQUOTE id=quote><font size=1 face="Sans Serif, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
grazie
non e' perfetta ma mi hai dato un buono spunto su cui lavorare
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Sans Serif, Arial, Helvetica" size=2 id=quote>
La perfezione non è di questo mondo...
ci si può solo avvicinare alla perfezione solo conoscendo a fondo il problema.
saluti
Andrea

---