Como hacer una busqueda

[juanlu]

Como soy nuevo registrado, tengo puesto esta misma consulta en el foro de "bases de datos..." y acabo de darme cuenta que exixtia este de clientes, por eso lo cuelgo ahora aqui, si con tenerlo en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[damianomarsilva]

te consulto juanlu (no puedo descargar el archivo)... hablas de un "deplazamiento" de 15 celdas a la derecha y en la misma fila ¿probaste con la funcion DESREF(), que casualmente realiza esa...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Alberto Martinez]

cual es tu correo......

 

[Alberto Martinez]

Tengo problemas para anexar la respuesta, proporcianame tu correo para enviarte el archivo que soluciona tu correo

 

[Alberto Martinez]

Aqui esta la funcion que resuelve el problema
For Each celda In rango
If celda.Value = VALOR Then
A15LUGARES = Cells(celda.Row(), celda.Column() + 15).Value
Exit...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Alberto Martinez]

En la celda AH1 escribe el numero a buscar
La funcion para el ejemplo colocala en la celda AH2
Vamos a suponer que el nombre para el rango C1:D4 sea RANC1Q4
entonces la funcion se escribiria asi...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Alberto Martinez]

Sorry aqui va la funcion completa, debes de colocarla en un modulo de VBA

Function A15LUGARES(rango As range, VALOR As Integer) As Integer
Dim celda As range

For Each celda In rango...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[juanlu]

Muchisimas gracias Alberto, me vale perfectamente.

Supongo que el correo lo pedias para mandarme el fichero y ya lo has solucionado poniendo la funcion aquí­, de todas formas te lo pongo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[damianomarsilva]

te paso una, sin utilizar VBA y es utilizando DESREF().
esta función "desplaza" un rango indicado la cantidad de filas y/o columnas que le pases como argumento:
Desref(referencia; filas; columnas)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[KL]

Sorry aqui va la funcion completa, debes de colocarla en un modulo de VBA

Function A15LUGARES(rango As range, VALOR As Integer) As Integer
Dim celda As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[KL]

incluso asi:

Function A15LUGARES(ByRef Rango As Range, ByVal Valor As Variant) As Variant
    A15LUGARES = Rango.Find(Valor)(, 16)
End Function

 

[sailepaty]

Pongo el link al post donde la solución es con formula, para futuros buscadores.

https://www.exceluciones.com/portal/viewtopic.php?t=8109

Saludos