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