Función o macro que realice una búsqueda y me concatene los resultados
Necesito una función o macro que me realice una búsqueda de datos y me concatene el resultado, ejemplo:
Tengo dos columnas A= numero de casa ; B: avance de la misma
La función o macro debería buscarme en la columna "B" todas las casas que se encuentren a un 50% de avance y me concatene los nombre de la columna "A" de las casas, separadas por una coma y un espacio entre ellas
ejemplo: A1, A2, B3, C5, C6
1 Respuesta
Respuesta de Dante Amor
1
Te anexo una función
Function casa()
'Por.Dante Amor
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "B") = 0.5 Then
cad = cad & Cells(i, "A") & ", "
End If
Next
If cad <> "" Then
casa = Left(cad, Len(cad) - 2)
End If
End FunctionSigue las Instrucciones para una Función
- Abre tu libro de excel
- Para abrir VBa y poder pegar la función, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la función
- En cualquier celda escribe =casa()
- Para actualizar la función presiona sobre la celda F2 y enter.
Si quieres algo en automático, pon la siguiente macro en los eventos de worksheet. El resultado te lo pone en la celda C2
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("B:B")) Is Nothing Then
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "B") = 0.5 Then
cad = cad & Cells(i, "A") & ", "
End If
Next
If cad <> "" Then
[C2] = Left(cad, Len(cad) - 2)
End If
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
Saludos. Dante Amor
No olvides valorar la respuesta.
