avviare stessa macro con click su range diversi

[miko]

buona sera,
con riferimento alla seguente immagine:



cliccando in una qualunque cella, avente lo stesso colore, vorrei avviare una macro che cerca
i valori che sono contenuti nello stesso range dello stesso colore;
la macro di ricerca è identica per tutti i range.
ad esempio cliccando in una qualunque cella del range di colore verde, A1-C2, devo avviare la macro che cerca
i valori contenuti nel range di colore verde, 41, 13, 49, 52;
cliccando invece in una qualunque cella del range di colore ciano, A10-C11, devo avviare la macro cerca
per i valori contenuti nel range di colore ciano, 3, 23, 25, 78;
i problemi che ho nel realizzare questa macro è che non so come impostare il codice per
Intersect(Target, Range....nel caso di range non contigui, (conosco quello su range continuo),
e come prelevare, al variare del range colorato, i valori da cercare.
inoltre non conosco il numero di range colorati in quanto questi derivano da una altra macro.
buon week end a tutti
grazie

[Flash30005]

Nel Vba del foglio inserisci questo codice

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("A" & Rows.Count).End(xlUp).Row
CheckArea = "A1:C" & UR
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    If ActiveCell.Interior.ColorIndex = xlNone Then Exit Sub
    Miocol = ActiveCell.Interior.ColorIndex
NumeriCol
End If
End Sub

In un modulo questo

Codice: Seleziona tutto

Public Miocol, UR As Integer
Sub NumeriCol()
For RR = 1 To UR
    For CC = 2 To 3
        If Cells(RR, CC).Interior.ColorIndex = Miocol Then
            MsgBox Cells(RR, CC).Value  '<<<<< sostituisci riga con una tua macro
        End If
    Next CC
Next RR
End Sub

Al posto del messaggio puoi fare quello che ti occorre
ciao

[miko]

buona domenica a tutti,
chiedo scusa del ritardo nel rispondere ai miei vari post e nel fornirvi l'esito delle soluzioni;
purtroppo vari impegni mi hanno costretto ad abbandonare il pc ed i vari progetti.
per quanto attiene al quesito di questo topic, la soluzione indicata da Flash funziona perfettamente.
grazie del tuo contributo.
saluti