MATCH CASE sin usar .FIND

... la instruccion ".find(What:=..)"... no logro dominarla siempre... me manda a otro rango de celdas y me salen errores
... me posiciono en la hoja y celda que elija y comienzo un bucle para buscar solo en esa columna... al valor del textbox: [...]
... que busque en los registros el valor mas parecido a lo que le consulte
por ejemplo si quiero buscar Cristian, que pueda hacerlo escribiendo solamente Cris [...]

Hola galtor,

"galtor" wrote in message

news:
Hola he intentado usar la instruccion ".find(What:=..)" pero no
logró dominarla siempre sale algo que me manda a otro rango de celdas
y me salen errores, funciona a medias, por lo que mejor creé otra
funcion.
...Me gusta la instruccion ".find" porque puedo elegir el matchCase...

Prueba el siguiente codigo (obviamente lo puedes adaptar a un UserForm para
no usar la propiedad InputBox). Sera mucho mas rapido y mas flexible que tu
rutina:

Sub test()
Dim rng As Range
Dim rngResult As Range
Dim lngCount As Long
Dim strSearch As String
Dim Msg As String
Dim i As Long

On Error Resume Next
Set rng = Application.InputBox( _
Prompt:="Seleccione el rango de busqueda", _
Title:="BUSCAR DONDE", _
Type:=8)
On Error GoTo 0
If rng Is Nothing Then Exit Sub

strSearch = Application.InputBox( _
Prompt:="Introduzca el valor buscado" & Chr(13) & _
"(se puede usar los caracteres especiales '*', '?', '~')", _
Title:="BUSCAR QUE")

If strSearch = "" Then Exit Sub

lngCount = Application.CountIf(rng, strSearch)
If lngCount = 0 Then Exit Sub

Set rngResult = rng.Find(strSearch, rng(1), , xlWhole)
Msg = "Valor" & strSearch & "encontrado en las siguientes celdas:" _
& Chr(13) & rngResult.Address & Chr(13)

For i = 1 To lngCount - 1
Set rngResult = rng.Find(strSearch, rngResult, , xlWhole)
Msg = Msg & rngResult.Address & Chr(13)
Next i
MsgBox Msg
End Sub

Saludos,
KL

hola, Cristian !

> ... la instruccion ".find(What:=..)"... no logro dominarla siempre... me manda a otro rango de celdas y me salen errores
> ... me posiciono en la hoja y celda que elija y comienzo un bucle para buscar solo en esa columna... al valor del textbox: [...]
> ... que busque en los registros el valor mas parecido a lo que le consulte
> por ejemplo si quiero buscar Cristian, que pueda hacerlo escribiendo solamente Cris [...]

dependiendo de lo que requieras hacer despues con alguno/cualuiera/todos/... los datos *parecidos* obtenidos -?-
por que no intentas con los filtros avanzados y llenando un control de lista para... ???

saludos,
hector.

... requiero... buscar en la hoja donde almaceno a los clientes
en la columna A guardo un id para diferenciarlos
en la columna B estan los nombres y en otras columnas estan otros datos -domicilio, ciudad, tels, etc.-
donde requiero que la busqueda se haga es en la columna B, del nombre, desde el renglon 1 hasta el "n"
... no le entiendo bien al SearchOrder:=xlByColumns o usar xlByRows, a donde se va en cada caso?
... ejemplo he buscado Javier y a veces me resulta... en un registro que es "San Javier", al fin de cuentas es un resultado parecido.
... mi libro funciona casi en su totalidad en base a formularios y macros, la mayoría de las hojas están ocultas
la busqueda es mediante un formulario con textboxes, al encontrar el nombre del cliente copio el id
(que esta en la celda de al lado) a una variable y de ahi se derivan otras sub-busquedas en otras hojas
para encontrar las ventas que tenga ese ID y otros detalles.
Los demas campos finalmente se rellenan con los datos encontrados de todo ese proceso.
Te digo que funciona bien, pero tengo que escribir exactamente el nombre que busco porque si no, no lo encuentra...