Macro para buscar valor y resultado de varias celdas juntarles en una sola celda
Favor su apoyo para el desarrollo de una macro:
En la Hoja 1 tengo el valor a buscar en la celda Q7.
Los datos a buscar se encuentra en la Hoja 2, el valor a buscar esta en la columna G (Hay valores duplicados), y los datos que se necesitan están en la columna F.
Como resultado debería de tener todas las celdas de la columna F Hoja 2 (Valores únicos, no duplicados), en la celda A15 de la Hoja 1.
Finalmente en la celda A15 los valores deben de estar separados por "/".
2 Respuestas
Respuesta de Dante Amor
1
Espero ayude la imagen.
Cualquier consulta quedo a tu disposición. Gracias.
Te anexo la macro
Sub concatenar()
'Por Dante Amor
'
Dim valores As New Collection
'
Set h1 = Sheets("Hoja1") 'resultados
Set h2 = Sheets("Hoja2") 'base de datos
Set valores = Nothing
Set resultado = h1.Range("A15")
valor_a = h1.Range("Q7").Value
'
Set r = h2.Columns("G")
Set b = r.Find(valor_a, LookAt:=xlWhole)
If Not b Is Nothing Then
celda = b.Address
Do
'detalle
valor = h2.Cells(b.Row, "F").Value
existe = False
For j = 1 To valores.Count
If valores(j) = valor Then
existe = True
End If
Next
If existe = False Then
valores.Add valor
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End If
'
For i = 1 To valores.Count
cad = cad & "/" & valores(i)
Next
Set valores = Nothing
resultado.Value = "'" & Mid(cad, 2)
End Sub.
.Sal u dos. Dante Amor. No olvides valorar la respuesta. G raci as
.
Respuesta de Programar Excel
1
