Risolto Colorare cella temporaneamente solo quando seleziono un'altra cella con numero uguale.

hawk77

Utente junior
20 Aprile 2021
26
3
2016
0
Ciao a tutti, ci serebbe un modo per colorare lo sfondo di una cella solo quando seleziono un'altra cella che ha lo stesso valore?
Però il colore dello sfondo deve essere temporaneo cioè quando seleziono un'altra cella con numero diverso lo sfondo del numero precedentemente colorato deve sparire.
Ho allegato file come esempio, sperando sia comprensibile la mia richiesta.
Grazie.
 

Allegati

alfrimpa

VBA Expert
Supermoderatore
18 Dicembre 2015
36.849
2.445
67
Napoli
2019 Pro Plus
1.146
Occorre il VBA

Inserisci questo codice nel modulo del foglio

Visual Basic:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
If Not Intersect(Target, Range("N3:w13")) Is Nothing Then
    Range("A3:j13").Interior.ColorIndex = xlNone
    For Each cel In Range("A3:j13")
        If cel.Value = Target.Value Then
            cel.Interior.ColorIndex = 6
        End If
    Next cel
End If
End Sub
 
  • Like
Reactions: hawk77

hawk77

Utente junior
20 Aprile 2021
26
3
2016
0
Sicuramente sbaglio io qualcosa ho fatto come mi ha detto pero quando seleziono qualche numero con sfondo colorato del gruppo B nel gruppo A non colora lo sfondo . La ringrazio ancora per l' aiuto e la pazienza.
 

alfrimpa

VBA Expert
Supermoderatore
18 Dicembre 2015
36.849
2.445
67
Napoli
2019 Pro Plus
1.146
Il codice non va in un modulo standard ma nel modulo del foglio interessato

 

alfrimpa

VBA Expert
Supermoderatore
18 Dicembre 2015
36.849
2.445
67
Napoli
2019 Pro Plus
1.146
Ok ma la prossima volta cerca di proporre tu qualcosa qualche tuo tentativo anche non funzionante (documentandoti in rete) altrimenti non impari nulla.
 

hawk77

Utente junior
20 Aprile 2021
26
3
2016
0
Ha perfettamente ragione, già da ieri ho trovato in questo sito il file del corso Vba by Alexandra e stò incominciando a leggerlo anche se sò che ci vorrà un pò prima di riuscire a pedalare da solo e vi ringrazio per averlo messo a disposizione di chi vuol imparare a programmare.
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!