Averiguar la referencia de celda que contiene un dato especifico

Hola HM,

=direccion(min(si(a1:f5=ag20,fila(a1:a5))),min(si(a1:f5=ag20,columna(a1:f1))))

Si hay mas de una celda con el valor 7, me parece que la formula dara diferentes resultados en los siguientes casos:

1) [B4]=7 y [D1]=7 (sera falso)

2) [B1]=7 y [D4]=7

Saludos,
KL

hola chicos,

he probado la funcion de KL (hasta ahora estoy usando los bucles), y la
1ª vez me ha funcionado bien, pero despues me da el error '91 Variable
o bloque with no establecido', y salvo que lo haya hecho sin darme
cuenta, no he cambiado nada mas que el valor a buscar, que ademas
existe.

asi es como lo he probado:->

Function miRef(ByRef rango As Range, ByVal valor As Double) As String
miRef = rango.Find(valor, rango(1, 1), xlValues,
xlWhole).Address(0, 0)
End Function

Sub textMiRef()
Dim result As String, rng As Range
With Hoja1
Set rng = .Range("a1:a" & .[a65536].End(xlUp).Row)
End With
result = miRef(rng, 50)
Debug.Print result
Set rng = Nothing
End Sub

la verdad es que es la 1ª vez que uso Find (que creo que me vendrq muy
bien) y no tengo ni idea de cual puede ser la causa del error, pues en
la funcion el 'rango' si lo reconoce ya que al depurar rango(1,1) me da
el valor correspondiente a dicha celda(a1).

si veis algo os lo agradezco

un saludo y hasta pronto
Ivan

hola, KL !

=direccion(min(si(a1:f5=ag20,fila(a1:a5))),min(si(a1:f5=ag20,columna(a1:f1))))

Si hay mas de una celda con el valor 7, me parece que la formula dara diferentes resultados en los siguientes casos:
1) [B4]=7 y [D1]=7 (sera falso)
2) [B1]=7 y [D4]=7

es correcto... estoy 'contando' [segun el ejemplo expuesto por Miguel] que no se den estos casos :))
de lo contrario... [aun por UDF] haria falta confirmar cual de todos es el que esta buscando ;)

saludos,
hector.

Hola Ivan,

El problema esta en el procedimiento "textMiRef" que es donde haces referencia a la hoja "Hoja1" de forma incorrecta. Probablemente
en tu libro no hay hoja cuya propiedad .CodeName (no se confunda con la propiedad .Name) equivalga a "Hoja1" o es que tu libro no
esta activo en el momento de ejecucion del codigo.

Saludos,
KL


"Ivan" wrote in message news:
hola chicos,

he probado la funcion de KL (hasta ahora estoy usando los bucles), y la
1ª vez me ha funcionado bien, pero despues me da el error '91 Variable
o bloque with no establecido', y salvo que lo haya hecho sin darme
cuenta, no he cambiado nada mas que el valor a buscar, que ademas
existe.

asi es como lo he probado:->

Function miRef(ByRef rango As Range, ByVal valor As Double) As String
miRef = rango.Find(valor, rango(1, 1), xlValues,
xlWhole).Address(0, 0)
End Function

Sub textMiRef()
Dim result As String, rng As Range
With Hoja1
Set rng = .Range("a1:a" & .[a65536].End(xlUp).Row)
End With
result = miRef(rng, 50)
Debug.Print result
Set rng = Nothing
End Sub

la verdad es que es la 1ª vez que uso Find (que creo que me vendrq muy
bien) y no tengo ni idea de cual puede ser la causa del error, pues en
la funcion el 'rango' si lo reconoce ya que al depurar rango(1,1) me da
el valor correspondiente a dicha celda(a1).

si veis algo os lo agradezco

un saludo y hasta pronto
Ivan

hola KL, gracias por tu rapida respuesta

realmente si tengo una 'Hoja1' (CodeName), pero no iba por ahí el
problema, del que acabo de descubrir la causa:->

resulta que las pruebas las he relizado sobre una columna cuyos
registros son numericos (aprox. del 1 al 10000, pero no estan todos),
pero que estan formateados de esta forma: '0000', y resulta que cuando
busco un numero de 4 digitos el resultado es correcto, pero si es por
debajo de 1000, me aparece el error.

he mirado la ayuda y menciona un argumento (de Find) sobre los
formatos, pero no especifica nada.

¿como se podria solucionar el problema?

un saludo y hasta pronto
Ivan