Pasar datos de hoja1 a base hoja2

H o  l a:

Pon la siguiente macro en un módulo

Sub CopiarDatos()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
    If u2 < 2 Then u2 = 2
    h2.Range("A2:J" & u2).Clear
    fila = 8
    Do While Cells(fila, "C") <> ""
        fila = fila + 1
    Loop
    fila = fila - 1
    h1.Range("C8:L" & fila).Copy
    h2.Range("A2").PasteSpecial xlValues
    h2.Range("A2").PasteSpecial xlFormats
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    MsgBox "Fin"
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: CopiarDatos
10. Aceptar.
11. Para ejecutarla dale click a la imagen.

':)
':)

Funciona, pero se me olvido que cada vez que tenga nuevos datos en la hoja1 estos se deben pegar en hoja2 abajo del dato ya existe, es decir posicionarse el la celda vacía bajo los datos existentes, y así se guardara la información como una base de datos de los movimientos realizados