Saltar al contenido

Copiar mas de una vez en una hoja oculta

publicado

Estimados, estoy desarrollando un programa en el que tengo 2 hojas: BASE DE DATOS y REGISTRO.

Lo que realiza el programa es: tener una base de datos a tiempo real sobre el trabajo del dia(BASE DE DATOS), y tener un registro del trabajo diario (registro)

El código realiza lo siguiente: copia el rango( ej "a1:l:350") de la hoja "BASE DE DATOS" , busca el primer espacio vacío (bucle), y luego pega en la hoja "REGISTRO".

Range("a1:l350").Copy Sheets("REGISTRO").Range("A1"), utilizando esto solo me sirve para el primer día pues en el segundo día la información se pegará encima del día anterior.

Lo que me gustaría es eliminar ese bucle. Y mantener la hoja registro oculta.

Espero sus opiniones. Gracias.

Featured Replies

publicado

.

Elimina el bucle y copia la información así:

FilaLibre= Sheets("REGISTRO").Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A1:L350").Copy Sheets("REGISTRO").Range("A" & FilaLibre)[/CODE]

[size=5][color=#ff0000][b][u]Nota[/u][/b]: Código no probado por falta de archivo.[/color][/size]

.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.