¿Como se busca en una hoja de Excel un Texto en una Celda?

hola, !

Tengo una Hoja de Excel (Inventario) muy grande y para no buscar un cierto articulo en todo la Hoja
que implica mucho tiempo, como puede hacer para con "BUSCAR" o algun otro comando
encuentro el articulo mucho mas rapido.
O sea, solo escriibo el Codigo o la Descripcion del articulo y..Ya, alli esta?

quieres decir que no te vale la opcion de buscar desde el menu de edicion ?

[entonces]... sera necesario que comentes algunos detalles adicionales...
[de esos que suelen quedarse 'en el tintero'] :))

saludos,
hector.

Mis disculpas Hector se que no debo personalizar mis consultas, pero me
ayudaste anteriormente con esta macro, pero no me funciono como deseaba,
creo que estoy a solo un paso de lograr que haga lo que necesito pero ya no
se realmente como hacer, te pongo el texto de tu mensaje por si recordas
cual era la consulta y podes ayudarme a corregir o areglar lo que se
necesite en esta macro:




" gracias por estas instrucciones funciona muy bien pero el problema es
que copia solamente la celda R1 y las demas las deja intactas, lo que
necesito es que copie todas las celdas que tienen valores difrentes de cero
en la columna R sin contar R1 y despues de haber hecho el filtrado que las
copie a partir de la primer celda visible de la columna E.



hola, Luis !

en lo que 'termino de masticar' el resto de tu mensaje [que no son tres o
cuatro lineas]... :))
prueba con algo +/- como lo siguiente [aunque es 'practicamente' lo mismo
que ya te habia sugerido]:...

OJO: si el rango sobre el que se hace el filtro avanzado... [A1:K508]
es -tambien-... 'estimado' -?-
existe la posibilidad de que el 'conteo' de areas no resulte lo 'preciso'
que se requiere por el procedimiento -?-

y... si cualquier duda [o informacion adicional -que no se encuntre en el
mensaje anterior-]... comentas ?
saludos,
hector.

Sub Filtrado_1()
With Range("a1:k508")
.AdvancedFilter _
Action:=xlFilterInPlace, _

CriteriaRange:=Workbooks("colega.xls").Worksheets("registro").Range("q165:v1
66"), _
Unique:=True
With .SpecialCells(xlCellTypeVisible)
On Error GoTo Ninguno
IIf(.Areas(1).Rows.Count > 1, _
.Areas(1).Cells(2, 5), .Areas(2).Cells(1, 5)).Select
End With
End With
With Worksheets("nota")
.Range(.Range("r2"), .Range("r65536").End(xlUp)).Copy ActiveCell
End With
Exit Sub
Ninguno:
MsgBox "Criterios no cumplidos !!!"
End Sub

Muchisimas gracias.