Excel trova cella colorata VBA

[Margheraus]

Buonasera a tutti,
Ho recuperato un vecchio topic che forniva un codice per trovare le celle colorate, tale codice subito ha funzionato e ora mi restituisce un errore.
Purtroppo non sono un’esperta e quindi ho deciso di chiedere il vostro supporto. Praticamente devo creare una formula tipo SE( e(cella1=“testo”; colore cella1= rosso); “testo2”; “t3”). Come costruisco il check sul colore sfondo cella?
Spero di essermi spiegata, grazie a chi mi vorrà aiutare.
Buona serata!
Margherita

[Anthony47]

Intanto Benvenuta nel forum

Avrebbe fatto piacere sapere cosa avevi provato, anche per poter capire il motivo per cui non funziona piu'...

Allora... Per sondare il colore di una cella bisogna usare il vba. Ad esempio:

Codice: Seleziona tutto

Function CkColor(ByRef TCell As Range, ByRef RefCol As Range) As Boolean
Application.Volatile
CkColor = (TCell.Cells(1, 1).Interior.Color = RefCol.Interior.Color)
End Function


Copia il codice e incollalo in un Modulo standard del tuo vba (potrebbero aiutare queste informazioni: viewtopic.php?f=26&t=103893&p=647675#p647675 )

Poi su excel potrai usare la funzione CkColor con la seguente sintassi:

Codice: Seleziona tutto

CkColor(LaCellaDaSondare; LaCellaDiRiferimento)


Restituira' Vero se il colore della cella da sondare e' uguale a quello della cella di riferimento; oppure falso
Io raccomando di usare la cella di riferimento (non il codice del colore) perche' ci sono molti "rossi"
Quindi la tua formula diventera'

Codice: Seleziona tutto

=SE( e(cella1="testo"; CkColor(cella1;CellaColorataDiRosso); "testo2"; "t3")

Tuttavia la funzione non intercetta la colorazione generata da formattazione condizionale, ne' si aggiorna quando assegni un nuovo colore alle celle, perche' quella fase non genera nessun evento. L'aggiornamento avverra' quando il foglio subisce un cambiamento nei dati

Prova ad adattare alla tua situazione; e se ti areni siamo qua...

[Margheraus]

Ciao e grazie mille per la celerità e la gentilezza!! Appena riesco a lavorarci su ti aggiorno e ti mando per info il codice che ho usato!
Buona giornata e a presto
Margherita

[Margheraus]

Ciao,
ecco qui il codice dell'altra funzione:
Public Function COLORE(Cella As Range, indice As Long) As Boolean
If Cella.Interior.ColorIndex <> indice Then
COLORE = False
Else
COLORE = True
End If
End Function

In realtà penso sia una questione di aggiornamento (anche se ho provato a fare qualche tentativo), perchè non appena ho inserito la nuova funzione tutto ha ripreso a funzionare e l'errore '#NOME?" è sparito dandomi il risultato atteso.
Hai qualche suggerimento, non essendo pratica di VBA non vorrei sbagliare qualcosa quando riutilizzo il foglio.
Grazie mille
Margherita