Referencia y búsqueda datos excel
Hola; gracias a la gran ayuda que me aportaste, vuelvo a recurrir a ti para que puedas intentar explicarme lo siguiente:
Tengo la tabla siguiente:
Personas Colores
Pepe amarillo
JUAN VERDE
antonio rojo
LUIS AZUL
LUIS VERDE
Luis amarillo
antonio verde
PEPE ROJO
PEPE AZUL
¿Qué función utilizo para que me muestre y me devuelva; primero la persona que busco
Por nombre Ej: PEPE; ¿Y luego los colores que le corresponden?
En este caso Pepe aparece 3 veces; y se le asocian AMARILLO, ROJO Y AZUL.
Yo había pensado en concatenar, buscar/índice/concatenar pero creo que es una unión de estas tres; sabes el código en Visual Basic de esto anterior.
Muchas Gracias.
Recibe un Cordial Saludo
Tengo la tabla siguiente:
Personas Colores
Pepe amarillo
JUAN VERDE
antonio rojo
LUIS AZUL
LUIS VERDE
Luis amarillo
antonio verde
PEPE ROJO
PEPE AZUL
¿Qué función utilizo para que me muestre y me devuelva; primero la persona que busco
Por nombre Ej: PEPE; ¿Y luego los colores que le corresponden?
En este caso Pepe aparece 3 veces; y se le asocian AMARILLO, ROJO Y AZUL.
Yo había pensado en concatenar, buscar/índice/concatenar pero creo que es una unión de estas tres; sabes el código en Visual Basic de esto anterior.
Muchas Gracias.
Recibe un Cordial Saludo
1 Respuesta
Respuesta de carruina
1
Crea un modulo en visual basic y añádele la siguiente función
Function Colores(pNombre As String, pRango As Range) As String
Dim laux
laux = pNombre
For i = 1 To pRango.Rows
If pRango.Cells(i, 1) = pNombre Then
laux = laux & " " & pRango.Cells(i, 2)
End If
Next i
Colores = laux
End Function
Esta función recibe dos parámetros la referencia a una celda con el nombre a proesar y el rango a procesar.
Ejemplo =Colores(A2; A2:B10)
Function Colores(pNombre As String, pRango As Range) As String
Dim laux
laux = pNombre
For i = 1 To pRango.Rows
If pRango.Cells(i, 1) = pNombre Then
laux = laux & " " & pRango.Cells(i, 2)
End If
Next i
Colores = laux
End Function
Esta función recibe dos parámetros la referencia a una celda con el nombre a proesar y el rango a procesar.
Ejemplo =Colores(A2; A2:B10)
Muchas gracias. Ahora mismo voy a probarlo.
Recibe un cordial Saludo
Recibe un cordial Saludo
Ok
Pero cuando lo hayas probado acuérdate de cerrar y valorarla :-)
Pero cuando lo hayas probado acuérdate de cerrar y valorarla :-)
Hola carruina; te he escrito una nueva pregunta se llama "Envío de datos cuando se produce envío de email"; estoy liado en poder ver las funciones en VB que me devuelven los colores de las celdas.
Espero tu respuesta.
Recibe un cordial saludo
Espero tu respuesta.
Recibe un cordial saludo
¿Podrías cerrar y valorar esta respuesta?
