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
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 Function

Sigue las Instrucciones para una Función

  1. Abre tu libro de excel
  2. Para abrir VBa y poder pegar la función, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la función
  5. En cualquier celda escribe =casa()
  6. 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 Sub

Sigue las Instrucciones para poner la macro en los eventos de worksheet

  1. Abre tu libro de excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
  4. Del lado derecho copia la macro


Saludos. Dante Amor

No olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas