Anónimo
Buscar anexando datos
Hola estoy buscando una función que al buscar en una columna me
devuelva los datos de otra columna, parece ser la tan querida BUSCARV
pero yo quiero que devuelva TODOS los resultados
ejemplo
remera azul
pantalón verde
remera rojo
y cuando busco "remera" aparezca "azul rojo"
Gracias a todos
devuelva los datos de otra columna, parece ser la tan querida BUSCARV
pero yo quiero que devuelva TODOS los resultados
ejemplo
remera azul
pantalón verde
remera rojo
y cuando busco "remera" aparezca "azul rojo"
Gracias a todos
1 respuesta
Respuesta de jrgces
1
Con una sola fórmula de Excel no creo que se pueda conseguir lo que necesitas, pero con una función personalizada creo que sí:
Function Colores(ByVal col1 As Range, ByVal col2 As Range, strCriterio As String) As String
Dim v As Variant, n As Byte, cColores As New Collection
v = Evaluate("=if(" & col1.Address & "=" & """" & strCriterio & """" & "," & col2.Address & "," & """""" & ")")
For n = LBound(v) To UBound(v)
On Error Resume Next
If v(n, 1) <> "" Then
cColores.Add v(n, 1), v(n, 1)
End If
On Error GoTo 0
Next n
For n = 1 To cColores.Count
Colores = Colores & IIf(Colores = "", "", " ") & cColores(n)
Next n
End Function
Si, por ejemplo, las prendas estuvieran en el rango A1:A10 y sus coloresn en B1:B10 la sintaxis sería:
=Colores(A1:A10,B1:B10,"remera")
Por si no has trabajado antes con UDFs, he subido un ejemplo a http://www.jrgc.es/ejemplos/20090107a.xls
Las celdas con las fórmulas son E1 y E2
Function Colores(ByVal col1 As Range, ByVal col2 As Range, strCriterio As String) As String
Dim v As Variant, n As Byte, cColores As New Collection
v = Evaluate("=if(" & col1.Address & "=" & """" & strCriterio & """" & "," & col2.Address & "," & """""" & ")")
For n = LBound(v) To UBound(v)
On Error Resume Next
If v(n, 1) <> "" Then
cColores.Add v(n, 1), v(n, 1)
End If
On Error GoTo 0
Next n
For n = 1 To cColores.Count
Colores = Colores & IIf(Colores = "", "", " ") & cColores(n)
Next n
End Function
Si, por ejemplo, las prendas estuvieran en el rango A1:A10 y sus coloresn en B1:B10 la sintaxis sería:
=Colores(A1:A10,B1:B10,"remera")
Por si no has trabajado antes con UDFs, he subido un ejemplo a http://www.jrgc.es/ejemplos/20090107a.xls
Las celdas con las fórmulas son E1 y E2