Macro para buscar un valor determinado en una columna y que copie la fila correspondiente a la celda donde se encuentra el valor

H o l a: Te anexo la macro.

Según tus comentarios necesitas 3 hojas, una para poner la lista de validación, la 2 donde tienes tus datos y la 3 para poner el resultado.

Cambia en la macro "Hoja1", "Hoja2" y "Hoja3" por los nombres de tus hojas

También cambia en la macro "B2" por la celda donde tienes tu lista de validación

Y por último, cambia en la macro "A" por la columna donde se va a realizar la búsqueda.

Sub Buscar_valores()
'---
'   Por.Dante Amor
'---
    Set h1 = Sheets("Hoja1")        'Hoja con la lista de validación de datos
    Set h2 = Sheets("Hoja2")        'Hoja con los proyectos
    Set h3 = Sheets("Hoja3")        'Hoja resultado
    celda = "B2"                    'celda con la lista de validación
    col = "A"                       'columna específica con los proyectos
    '
    h3.Rows(2 & ":" & Rows.Count).Clear
    valor = h1.Range(celda)
    If valor = "" Then
        MsgBox "Falta poner el valor a buscar"
        Exit Sub
    End If
    '
    j = 2
    Set r = h2.Columns(col)
    Set b = r.Find(valor, lookat:=xlWhole)
    If Not b Is Nothing Then
        celda = b.Address
        Do
            h2.Rows(b.Row).Copy h3.Rows(j)
            j = j + 1
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> celda
    End If
    h3.Select
    MsgBox "Fin del proceso"
End Sub

Sigue las Instrucciones para un botón y ejecutar la macro

1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Buscar_valores
10. Aceptar.
11. Para ejecutarla dale click a la imagen.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Buenos días,

Muchas gracias, pero no se por qué cuando la ejecuto en la hoja 3 donde tiene que poner los resultados, me borra todo. =(

He grabado una macro, que creo que el proceso es más sencillo: voy a la celda de la lista desplegable, copio el contenido de esa celda, me voy a la hoja donde tengo los proyectos y en el filtro de la columna pego el nombre que he copiado de la lista. Copio las filas que me quedan y las pego en la tercera hoja.

El problema que tengo haciendo esto, es que al copiar el contenido que en ese momento hay en la lista desplegable, se queda por defecto ese literal, y no me sirve para cuando elijo otro valor en la lista. ¿Como podría poner ese dato dinámico para que copie lo que en cada momento haya en esa lista?

Adjunto la macro:

------------------------------------------------------------------------------------------------------------------------------------------

Sub Proyectos()
'
' Proyectos Macro
'
' Acceso directo: Ctrl+Mayús+Q
'
    Range("B11:H11").Select
    ActiveCell.FormulaR1C1 = "Proyecto 1"
    Sheets("Datos 2 ").Select
    ActiveSheet.Range("$A$1:$I$60").AutoFilter Field:=1, Criteria1:= _
        "Proyecto 1"
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Hoja 2").Select
    Range("B11").Select
    ActiveSheet.Paste
End Sub

----------------------------------------------------------------------------------------------------------------------------------------------

Range("B11:H11").Select -> es donde se encuentra la lista desplegable.

ActiveCell.FormulaR1C1 = "Proyecto 1" -> Aqui es donde me pega literalmente la opción que he cogido en la lista, y lo que me gustaría hacer es que dependiendo del valor que coja en esa lista, ejecute la macro y copie y filtre lo que hay en ese momento.

Muchísimas gracias por todo.