funzione SE colore

ciao, vi allega un file sul quale ho provato a lavorare (da super inesperto) purtroppo senza risultato.
mi servirebbe una formula per scrivere all'interno di una cella in funzione del fatto che quella adiacente sia colorata o meno, l'esempio dovrebbe essere abbastanza chiaro.
nel file è inserita una macro, che però credo sia incompleta o abbia qualche problema...
chi mi da una mano?
grazie

Ciao Paolo

Ti riallego il tuo file con la sottostante function inserita



N.B. La funzione opera correttamente solo se il colore è applicato alle celle manualmente e non con formattazione condizionale.

Dimenticavo il file

ciao alfrimpa,
era proprio quello che cercavo, GRAZIE.
purtroppo la funzione viene calcolata solo dopo aver premuto ctrl+alt+f9 eseguendo un ricalcolo forzato, e non so il motivo....
io ho office 2016, non so se sia questo, ho già controllato la scheda formule ed il calcolo è impostato su automatico, non so più dove sbattere la tesata.
ti riallego il file dove vedrai, almeno sul mio pc è così, una cella colorata in rosso e la sua adiacente senza la "x".
grazie

Ciao,

ho dato un'occhiata su Google: sono a zero con il VBA.


http://www.excel-easy.com/vba/examples/volatile-functions.html



Dovrebbe bastare aggiungere

Application.Volatile


-------------------------------------

Function colore(a As Range)

Application.Volatile

If a.Interior.ColorIndex <> 3 Then
colore = ""
Else
colore = "x"
End If
End Function

-------------------------------------

Ne approfitto per salutare Alfredo

ciao (Canapone),
intanto grazie, ma non funziona ancora, l'unico miglioramento è che invece di dover premere ctrl+alt+f9 per ricalcolare devo premere 'solo' f9.....
comunque ti ringrazio, se trovi qualcos'altro fammi sapere per piacere, io continuo a cercare, ma senza risultati.

Ciao,

colorare una cella non scatena eventi né il ricalcolo del foglio, quindi l'unica soluzione è quella di ricorrere ad una classe (idea originale, credo, del mitico r) per gestire il cambio colore.
Allego il file modificato :

Non c'è che da ricordarlo: grande Scossa!

grazie Scossa.vr, credo sia proprio quello che cercavo, un pò complicato da adattare al mio file, anche perchè capisco molto poco di vba, ma con un pò di pazienza credo di riuscire.
se dovessi aver bisogno risciverò, grazie.

solo una domanda Scossa.vr, come faccio ad inserire un modulo ClasseCmdBar?
quando provo ad inserire unmodulo di classe mi inserisce un modulo "Classe1" non "ClasseCmdBar" come nel tuo file....
è per quello che da me non funzioona?

Ciao Paolo

Credo che tu debba (scossa eventualmente confermerà) la proprietà Name del modulo di classe da "Classe1" a "ClasseCmdBar".

Vai nell'editor di VBA in alto a sinistra seleziona tra i moduli di classe "Classe1" premi F4 e ti si apre la finestra delle proprietà; la prima che vedi è "Classe1" e modificala in "ClasseCmdBar"

grazie a tutti per l'aiuto, sono riuscito a risolvere...
come sempre, GRANDI RAGAZZI!