Búsqueda en libro excel a partir de una celda de la hoja1 copiar lo de las columnas de al lado, luego repetir ciclo en la hoja2

Estos ejemplos tratasn sobre como recorrer filas y copiar ypegar datos

http://www.programarexcel.com/2014/10/macro-recorre-filas-busca-copia-y-pega.html

http://www.programarexcel.com/2014/09/recorre-columna-y-copia-datos-en.html

http://www.programarexcel.com/2013/12/recorre-fila-busca-un-dato-y-lo-pega-en.html

http://www.programarexcel.com/2013/08/recorre-fila-buscando-y-comparando.html

http://www.programarexcel.com/2014/01/recorre-hojas-extrae-datos-para-resumen.html

http://www.programarexcel.com/2013/12/recorre-fila-busca-un-dato-y-lo-pega-en.html

Te anexo la macro para buscar un dato que pongas en la celda "C1"

El dato lo debes poner en la hoja "buscar", si quieres cambia el nombre en la macro por el nombre que gustes.

Sub buscardato()
'Por.Dante Amor
    Set h1 = Sheets("buscar")
    dato = [C1]
    If dato = "" Then
        MsgBox "escribe un dato en C1"
        Exit Sub
    End If
    '
    u = Range("A" & Rows.Count).End(xlUp).Row
    If u < 3 Then u = 3
    Range("A3:A" & u).ClearContents
    j = 3
    '
    For Each h In Sheets
        If h.Name <> h1.Name Then
            Set r = h.Cells
            Set b = r.Find(dato, lookat:=xlWhole)
            If Not b Is Nothing Then
                ncell = b.Address
                Do
                    h.Rows(b.Row).Copy h1.Range("A" & j)
                    j = j + 1
                    Set b = r.FindNext(b)
                Loop While Not b Is Nothing And b.Address <> ncell
            End If
        End If
    Next
End Sub

Pon un botón en la hoja "buscar" para ejecutar la macro.

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: buscardato
10. Aceptar.
11. Para ejecutarla dale click a la imagen.

Te anexo mi archivo para que veas cómo funciona.

https://www.dropbox.com/s/xuweawmm0tyxn7v/buscar%20dato.xlsm?dl=0 

Saludos. Dante Amor

Si es lo que necesitas.