Nesecito esta formula por favor

[nico57]

Como hago para que un criterio buscado por la formula buscarv se repita varias veces y tome como valor la ultima ?

Ejemplo:



A 400
B 500
A 600
D 400
C 300
C 900
A 800

LA PRIMERA COLUMNA CORESPONDE A LA PRIMERA DE LA MATRIZ, SUPONIENDO ES A Y EL VALOR BUSCADO DEBE DAR 800, COMO "A" SE REPITE VARIAS VECES COMO HAGO PARA Q TOME EL ULTIMO ?

[yenay]

creo que puedo darte una solución parcial, es un poco cutre pero puede ser que te valga:

| A | B | C | D
1| A |400| =SI(a1="A";B1;0)|=MAX(C1:C7)
2| B |500| =SI(a1="A";B2;0)|
3| A |600| =SI(a1="A";B3;0)|
4| D |400| =SI(a1="A";B4;0)|
5| C |300| =SI(a1="A";B5;0)|
6| C |900| =SI(a1="A";B6;0)|
7| A |800| =SI(a1="A";B7;0)|

De esta forma la hoja hace un filtro intermedio y hace 0 todo lo que no sea A, luego sólo hay que buscar el máximo de todos.

También se puede programar una función nueva, pero ya es meterse en macros. Si no te vale esta solución puedo programar la función (no veo que sea muy dificil)

[nico57]

En Realidad No Me Sirver, Lo Resumire Un Poco, Para Que La Formula Buscarv Toma Un Valor De La Primera Columna De La Matriza, Y En Esa Columna El Valor Buscado Se Repite Varias Veces, Yo Queiro Que Tome El Ultimo.

[3pies]

Se puede mejorar, porque este ejemplo que acabo de hacer, discrimina entre mayúsculas y minúsculas, de tal forma que no será lo mismo buscar a que A:

Código:

Sub buscar_dato()
'Para que funcione, debemos situarnos en la primera celda con datos.
'Supondremos que ese rango es B5
Range("B5").Select
'Nos situamos al final del mismo
Selection.End(xlDown).Select
'Montamos nuestro buscador
palabra_a_buscar = InputBox("Introduce la palabra a buscar", "Buscador")
'Ahora buscamos en sentido inverso, de abajo a arriba
Do While Not IsEmpty(ActiveCell)
    If ActiveCell.Value = palabra_a_buscar Then
        'Seleccionamos la celda de la derecha donde tenemos el dato
        columna_contigua_donde_esta_el_dato = ActiveCell.Offset(0, 1).Address
        'le quitamos el signo de absoluto ($) que nos devuelve Address
        columna_contigua_donde_esta_el_dato = Replace(columna_contigua_donde_esta_el_dato, "$", "")
        Exit Do
    End If
    ActiveCell.Offset(-1, 0).Select
Loop
'Mostramos un mensajillo
If columna_contigua_donde_esta_el_dato = "" Then
    MsgBox "No he encontrado nada. Lo siento."
Else
    MsgBox "El dato que te interesa está en la celda: " & columna_contigua_donde_esta_el_dato
End If
End Sub

[nico57]

Gracias, no tendrias una formula que cuenta la cantidad de letras que hay en una celda (in espacios blancos)

[3pies]

Aquí lo tienes en forma de función (copia y pega esta función en un módulo):

Código:

Function contarsinespacios(celda As range)
'Reemplazamos los espacios vacíos por nada (es decir, los eliminamos,
'pero solo a efectos del cálculo del nº de caracteres)
mi_texto = Replace(celda, " ", "")
'Contamos los caracteres que hay, ahora que tenemos el texto en la variable
'mi_texto, el texto sin espacios vacíos
cantidad_de_texto = Len(mi_texto)
'ponemos el número de caracteres en la celda
'donde tenemos esta función (la fómula)
contarsinespacios = cantidad_de_texto
End Function

Para llamar a esta función, ponte en cualquier celda vacía y pon esto:

Código:

=contarsinespacios(celda)

donde celda es la celda cuyos datos quieres contar. Por ejemplo:

Código:

=contarsinespacios(A1)

Salu2