Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

avviare stessa macro con click su range diversi

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

avviare stessa macro con click su range diversi

Postdi miko » 23/03/13 21:09

buona sera,
con riferimento alla seguente immagine:

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
windows xp-office 2003
miko
Utente Senior
 
Post: 422
Iscritto il: 29/12/09 10:44

Sponsor
 

Re: avviare stessa macro con click su range diversi

Postdi Flash30005 » 23/03/13 22:13

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: avviare stessa macro con click su range diversi

Postdi miko » 26/05/13 11:02

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
windows xp-office 2003
miko
Utente Senior
 
Post: 422
Iscritto il: 29/12/09 10:44


Torna a Applicazioni Office Windows


Topic correlati a "avviare stessa macro con click su range diversi":


Chi c’è in linea

Visitano il forum: wallace&gromit e 26 ospiti