Copiar datos de una hoja a otra e ir acumulándolos
Hola a todos necesito de su ayuda para ir acumulando datos que registro en una hoja que se llama CAPTURA, los datos de esta hoja varían, pudiendo ser 1 ó 2 hasta 35 datos que inician en la FILA 5, y de la columna A a la AX, los datos que existan los debe copiar a la hoja BD para ir acumulándolos en esta. Otro detalle: en la hoja CAPTURA en la celda A a partir de la fila 5 siempre estarán los números del 1 al 35 y al ejecutar la macro me gustaría que en la hoja BD como se van a ir acumulando los datos, los números se vayan sumando en la columna A.
Por ejemplo si paso 5 registros que tengo en la hoja CAPTURA es decir de la fila 5 a la 9, estos se pasaran a la hoja BD debajo de los que ya existen, pero los datos de la columna A, deberán llevar un consecutivo según la hoja BD,
Ojala me halla explicado y me puedan ayudar, muchas gracias de antemano.
1 Respuesta
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel y en tu hoja "CAPTURA"
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 "CAPTURA", 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 Asignar macro / Selecciona: BD
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub bd()
'Por.DAM
Set h1 = Sheets("CAPTURA")
Set h2 = Sheets("BD")
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
If u2 = 4 Then
n = 1
u2 = 5
Else
n = h2.Range("A" & u2) + 1
u2 = u2 + 1
End If
For i = 5 To h1.Range("A" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "B") = "" Then Exit For
h1.Range(h1.Cells(i, "B"), h1.Cells(i, "AX")).Copy _
h2.Range("B" & u2)
h2.Range("A" & u2) = n
u2 = u2 + 1
n = n + 1
Next
End Sub Saludos. Dante Amor
No olvides finalizar la pregunta.
