Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Colorare cella

Ultimo Aggiornamento: 10/05/2020 15:17
Post: 1
Registrato il: 24/12/2017
Città: BOLOGNA
Età: 56
Utente Junior
Office 3
OFFLINE
10/05/2020 12:11

colorare cella
salve, ho una tabella con migliaia di nomi, è possibile che usando il pulsante Cerca per trovare un nome in una cella della tabella, la cella che contiene il risultato cambi colore di sfondo? Di default rimane bianca e faccio fatica a vederla subito. Ho Office 365
grazie
[Modificato da lucky5667 10/05/2020 12:16]
Post: 947
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
10/05/2020 15:01

Metti questa macro nel modulo del Foglio interessato. Se non hai celle colorate autonomamente dovrebbe soddisfare la tua necessità.
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Cells.Interior.ColorIndex = xlNone     'cancella colore
    Target.Interior.ColorIndex = 35     'colore verde
    
End Sub

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
10/05/2020 15:17

Un saluto a rollis13

Non saprei col 365, in teoria sulla linguetta del foglio, visualizza codice ed incolli sulla destra.
Ammettiamo che hai 1000 nomi in colonna A, se fossero di più aumenti 1000.
Fossero in colonna B cambia in Range("B1:B1000")
Unico fastidio se col mouse selezioni le celle in A
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
    Range("A1:A1000").Interior.ColorIndex = xlNone
    Cells(Target.Row, 1).Interior.ColorIndex = 8
End If
End Sub
[Modificato da ABCDEF@Excel 10/05/2020 15:19]
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Colorare cella in base alla risposta (7 messaggi, agg.: 12/01/2017 10:40)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 00:45. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com