Somma valori celle colorate

[blunotte13]

Ciao a tutti, ho trovato una funzione che somma i valori delle celle colorate e funziona.
L'unica pecca è che se coloro una cella contenente un valore, non viene fatta in automatico l'operazione di somma, ma devo ogni volta selezionare il range di celle di cui mi interessa sapere il totale.
Nel foglio ho anche messo questo:

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub

ma non funziona comunque.
E' una cosa fattibile? Sbaglio qualcosa io ?
Allego file di esempio.
Grazie.

http://www.filedropper.com/cartel2

[Anthony47]

I colori sono da intendersi come degli elementi decorativi, non come attributi di valorizzazione...
Comunque se vuoi migliorare la situazione, aggiungi questa riga nel codice della Function:

Codice: Seleziona tutto

Function SommaSeColore(Data As Range, RifCella As Range)
Application.Volatile       '<<< AGGIUNGI
Dim Somma, RifCellaCol As Long
'etc etc

In questo modo il ricalcolo sara' effettuato ogni qualvolta il foglio esegue un qualsiasi calcolo
Attenzione pero' che tutto potrebbe risultare pesante se hai tantissime celle da esaminare

Ciao

[blunotte13]

Provata e va bene per il mio file, grazie per l’aiuto e buona giornata.