Salve,
ho cercato parecchio in rete (sono un amante della funzione "cerca" :D) ma non sono riuscito a trovare nulla che risolva il mio problema: ho una tabella- che si riferisce ad uno scaffale di magazzino- di 35 colonne, ognuna per ciascun prodotto stoccato nello scaffale, e di circa 300 righe riferite alle date di inventario di quel magazzino. Devo redigere un'analisi in cui vengano evidenziate (qui viene l'inghippo) in quella tabella determinate quantità di merce. Esempio pratico:
41 18 27 10 14 21 75 34 2 18 39 142 78 91 27 112 161 82 142 62 157 39 42 147 261 etc.
37 27 36 21 11 31 47 71 43 28 61 96 66 108 18 136 147 101 133 68 27 52 73 129 201 etc.
31 42 37 31 18 29 41 64 33 24 75 18 43 127 21 109 135 89 158 34 18 42 61 141 187 etc.

Devo evidenziare, usando quella tabella, il n.18 presente nella 1^riga in col.2 e 10, in 2^riga in col.15, in 3^riga col.5 e 12 e 21.
Le varie funzioni di excel, tipo CERCA etc. mi restituiscono i valori in altre colonne e comunqe mi fanno una ricerca colonna per colonna... a me serve una macro in cui evidenziando di volta in volta il valore che cerco (nell'es. il 18) vengano evidenziate, nella stessa tabella, le celle colorandole e bordandole con il bordo più evidente... alcuni comandi li ho imparati, tipo
colorIndex= (n.coolre)
e
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlMedium
ma per il resto... buio assoluto!! :D :D :D
Un Grazie anticipato per l'aiutone ;)
eZio

salve
prova con questa:
Sub cerca()
Application.ScreenUpdating = False
Dim Myvalue As Long
Myvalue = InputBox("DIGITA IL VALORE DA CERCARE", "CERCA VALORE")
For n = 1 To Cells(1, 1).End(xlDown).Row
Set area = Range(Cells(n, 1), Cells(n, 35))
For Each cl In area
If cl = Myvalue Then
With cl
.Interior.ColorIndex = 36
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlMedium
End With
End If
Next cl
Set area = Nothing
Next n
Application.ScreenUpdating = True
End Sub
saluti
Giap

---