Foro Excel

- Gracias Adrián por tomarte el trabajo de explicar el funcionamiento de la función BUSCAR.

- villaespesa: Si te fijas en el archivo que subí para mostrar dos formas de conseguir lo mismo (como bien lo resalta Adrián), verás que he incluído una ÚNICA restricción o detalle a tener en cuenta pues lo requiere la función BUSCAR: ¿Puede ser que no la hayas leído ó tomado en cuenta? (jajajaja)

Saludos, Cacho R.

Adrian escribió:Hola Toldeman, vi tu función pero me parece que sería mejor hacerla "flexible" ya que la tuya es "rígida", mira te dejo esta para que la estudies. No obstante presenté dos alternativas sin macros.

Espero tus comentarios:

Código: Seleccionar todo

Function SUMAPALABRAS(RangoSuma As Range, RangoRef As Range)
Dim Total As Double, Celda As Range
For Each Celda In RangoSuma
   'busco y sumo
  If Not RangoRef.Find(Celda.Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then _
  Total = Total + RangoRef.Find(Celda.Value, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1)
Next Celda
SUMAPALABRAS = Total
End Function

Hola adrian, en primer lugar darte las gracias por tu interes en enseñar a los que estamos empezando con esto de las macros.
Aunque el tema ya esta resuelto, escribo por la funcion que has propuesto. Me imagino que te refieres a que la funcion que hice no es flexible porque unicamente es aplicable en la hoja activa. He estado estudiando tu codigo y me alegro mucho porque entiendo como funciona, lo unico es que hay que introducir dos parametros, los dos rangos a comparar. He modificado mi anterior codigo para solo introducir un parametro, no se si voy por el camino correcto, rogaria me corrijieses.

Código: Seleccionar todo

Public Function su(rango As Range)
    For Each Celda In rango
    For i = 3 To 7
    If Sheets("Hoja1").Cells(i, 10) = Celda Then X = X + Sheets("Hoja1").Cells(i, 11)
    Next
    Next
    su = X
    End Function

Aprovecho para mandar un abrazo a mi amigo cacho que tanto paciencia a tenido conmigo, y como no otro para todos vosotros.

Cacho R escribió:- Gracias Adrián por tomarte el trabajo de explicar el funcionamiento de la función BUSCAR.

- villaespesa: Si te fijas en el archivo que subí para mostrar dos formas de conseguir lo mismo (como bien lo resalta Adrián), verás que he incluído una ÚNICA restricción o detalle a tener en cuenta pues lo requiere la función BUSCAR: ¿Puede ser que no la hayas leído ó tomado en cuenta? (jajajaja)

Saludos, Cacho R.

Hola Cacho R.

Si algún otro detalle hubiera y no lo he tenido en consideración ha sido porque algo no comprendo bien, pero creo haber escrito la fórmula igual que la que vos escribiste:

Mi fórmula:= SUMAPRODUCTO( BUSCAR(B5:B11; {0\"PREV"\"CAER"\"PAER"\"ANAE"\"ANAL"\"ANAA"\"FGEN"\"FMÁX"\"FEXP"\"COOR"\"COMP"}; {0\1\2\3\4\5\2\1\5\3\1\6}) )

Tu fórmula:= SUMAPRODUCTO( BUSCAR(D17:D22; {0\"Bronce"\"Diamante"\"Oro"\"Plata"\"Plomo"}; {0\3\2\5\4\1}) )

La verdad es que las veo iguales.

No sé dónde puede estar el error.

Un saludo y a ver si me puedes indicar dónde está el detalle que no he tenido en consideración porque tiene que haberlo ya que a mí no me da un resultado correcto.

¡Con todo gusto, villaespesa! Te comento:

Es muy importante (quizás es lo más importante) que tomes el hábito de leer la ayuda del Excel (tanto la del programa como la ayuda en línea).
En efecto: el problema que tienes aquí no es "encontrar la fórmula mágica" (ésa ya te la hemos proporcionado). El problema es que desconoces como trabaja un elemental función del Excel como BUSCAR.

Entonces te sugiero que leas detenidamente el siguiente enlace:

--> BUSCAR (Forma vectorial)

particularmente donde dice: IMPORTANTE.

Desde luego: ya si no dieras con la razón del mal uso de la función BUSCAR, no quedará más remedio que "darte servido" el tema (pero que conste que eso no es ayudar a estudiar el tema).

Saludos, Cacho R.

Muchas gracias Cacho R.

Vaya por delante que me gusta mucho la idea de no dar cosas masticadas.

Por ello, leeré bien todo ese manual.

Espero que mi corta inteligencia me dé para comprender dicha fórmula.

Muchas gracias y ya os diré qué tal me ha ido con el ejemplo en cuestión solucionado (en su caso).

Hola adrian, gracias por tu apreciacion. El for lo acote de 3 a 7 porque imagine que los valores de referencia (metales) serian siempre los que tiene en la tabla y en la hoja1.
Si esto no fuese asi, tú propuesta es la correcta.

Un saludo y de nuevo gracias por tú colaboración.

Hola Cacho R.

He dado con la solución: ordenar en el vector comparación los distintos valores.

El problema que tenía es que al aumentar el número de valores posibles, he de estar más atento a dicho ordenamiento.

Intentaba ordenar los valores en el vector resultado y tenía el error, como es lógico.

Muchas gracias Cacho R.

Hola, colegas...

Esperando que nuestro amigo villaespesa proporcione alguna respuesta sobre los últimos aportes, y así, a bote pronto, lo único que se me ocurre es acudir a rangos nombrados, y liarse con la función INDIRECTO() como en el caso adjunto.
Y esto es así porque me he fijado en que las soluciones basadas en SUMAPRODUCTO() han de tener la misma dimensión.
La solución, por ejemplo:
=+SUMA(INDIRECTO(C2);INDIRECTO(C3);INDIRECTO(C4);INDIRECTO(C5);INDIRECTO(C6);INDIRECTO(C7);INDIRECTO(C8);INDIRECTO(C9);INDIRECTO(C10);INDIRECTO(C11);INDIRECTO(C12);INDIRECTO(C13);INDIRECTO(C14))
es demasiado 'pedaleada'...

Estoy buscando alguna matricial que me sume valores nombrados como si fuesen numéricos, pero por ahora, ahí va eso... Ahora, la propuesta que hago es ¿Quién me hecha una mano para reducir esto a una matricial?

Un saludo

XPELOS la aportación es la que indica Cacho R., ordenar los valores del vector de comparación.

Un saludo.

¡Felicitaciones, villaespesa!

villaespesa escribió:... He dado con la solución: ordenar en el vector comparación los distintos valores...

Acceder a la solución siempre es grato. Pero acceder a ella mediante algún tipo de esfuerzo personal es mucho mejor, ¿No?.

Hasta la próxima.
Cacho R.