Macro che cerca & colora una cella

[tempusfugitPartecipante tempusfugit]

Salve a tutti,

ho creato un set di istruzioni che mi permettono di ricerca ed evidenziare un valore numerico o alfanumerico in una cella di una tabella, ora vorrei che con il vostro aiuto, ogni volta che operassi una nuova ricerca il riempimento dell'ultima cella ricercata tornasse quello in origine , che non colorasse celle che non contengono nessun valore se non presente e che mi restituisse un messaggio qualora ci fossero valori numerici o alfanumerici uguali.

In allegato il file con la macro.

GRazie.

Sub trovaEcolora()
    On Error Resume Next
    inpt = InputBox("Cosa vuoi ricercare?")
    Range(col & 3).Select
        Cells.Find(What:=inpt, After:=ActiveCell, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    False).Activate
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

 

Allegati:

You must be logged in to view attached files.

[Luca73Partecipante Luca73 Karma: 58 pts]

Ciao PEr Far Tornare al colore originale basta cancellare il colore aggiunto (se è una Tabella oppure se al'inizio era come tale oppure colorare come all'inizio. La prima è più facile in quanto basta selezionare tutta la tabella e toglere la formattazione colore celle) la seconda è un po' piu complicata in quanto o ricolori tutta la tabella oppure devi cercarequale cella ga un colore diverso e la ricolori.

Ciao

Luca

[Autore]

Articoli