Ciao,
dovrei convertire questa sub affinché possa cercare e trovare testo anziché numeri (da riga 3 a fine tabella, da col.1 a col.5), ma non so proprio da dove cominciare
Sub cerca_con_Colore()
Dim Myvalue As Long
Dim Mycolor As Long
Myvalue = InputBox("DIGITA IL VALORE DA CERCARE", "CERCA VALORE")
Mycolor = InputBox("DIGITA RIFERIMENTO COLORE : numerico", "DIGITA COLORE")
For N = 3 To Cells(3, 1).End(xlDown).Row
Set Area = Range(Cells(N, 1), Cells(N, 5))
For Each cl In Area
If cl = Myvalue Then
With cl
.Interior.ColorIndex = Mycolor
End With
End If
Next cl
Set Area = Nothing
Next N
End Sub
E' fattibile oppure occorre riscrivere i codici in modo totalmente diverso? A intutito credo che uno dei parametri che andranno riscritti è il Myvalue, ma non vorrei dire una sciocchezza.
Grazie assai, buona serata
eZio

salve
La variabile Myvalue è battezzata di tipo long, quindi numerica prova a cambiarla in tipo String
saluti
Giap

---