Macro para copiar datos de una hoja a otra y borrarlos

Hola.
Tengo una información en la hoja Registro y quiero copiarla en la hoja Informe Productos, pero que cuando borre estos datos de la hoja Registro y digite otros nuevos, se copien en la Hoja Informe Productos, debajo de los anteriores.
Tengo lista la macro para copiarlos, pero no puedo generar el contador o la condición para que se copien unos debajo de los otros.
Agradezco su colaboración.
Esta es la macro:
Sub informeproducto()
'
' informeproducto Macro
'
'
    Range("D4").Select
    Selection.Copy
    Sheets("Informe Productos").Select
    Range("B10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Registro").Select
    Range("C6").Select
    Selection.Copy
    Sheets("Informe Productos").Select
    Range("C10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Registro").Select
    Range("B11:F26").Select
    Selection.Copy
    Sheets("Informe Productos").Select
    Range("D10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Registro").Select
End Sub

1 Respuesta

Respuesta
1
Este es un pequeño ejemplo con una fracción de tu macro
Sub informeproducto()
'
' informeproducto Macro
'
'
Dim FILA As Integer
For FILA = 2 To 300
        Sheets("Registro").Select
        Range("C6").Select
        Selection.Copy
        Sheets("Informe Productos").Select
        Range("B" & FILA).Select
        If Selection.Value = "" Then
        Range("B" & FILA).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        FILA = 0
            Else
    End If
    Next
End Sub
Hola.
Aprecio y agradezco muchísimo tu ayuda.
Aplique lo que me enviaste (claro que anteriormente le había efectuado unos cambios al archivo y por ende a la macro) me funciono pero me genera un error: 1004 y cuando le digo depurar para entrar a corregir me sombrea lo siguiente:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Claro que me copia todos los datos, y todo super bien, pero no se suprimirle este error.
Te envio nuevamente la macro modificada.
De corazón t agradezco muchísimo, este trabajito que estoy realizando es muy importante y conozco poco de macros.
Sub informeproducto()
'
' informeproducto Macro
'
Dim FILA As Integer
For FILA = 9 To 300
 Sheets("Registro").Select
 Range("D13:M30").Select
 Selection.Copy
 Sheets("Informe Productos").Select
 Range("B" & FILA).Select
 If Selection.Value = "" Then
 Range("B" & FILA).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        FILA = 0
            Else
    End If
    Next
End Sub
Gracias.
Irla.
Probé ese código y no me dio error, si quieres enviame el archivo para revisarlo. Mi correo es [email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Actualizar un registro de una tabla con macros.

Soy muy asiduo a esta web, es muy interesante y útil, me incribi para preguntar por primera vez y ojala la respuesta sea pronta. Mi problema es.. Tengo una hoja (INGRESO) la cual ingresa productos a una tabla que esta en otra hoja (INV-08) y el...
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Activar una macro en excel con el enter

Estoy creando una macro en excel 2007... Primero grabe la macro donde solo ingreso el dato código y se autocompletan los demás campos con los datos de otra hoja por medio de la fórmula BuscarV ... Pero ahora necesito que al ingresar el código y dar...
1 respuesta

¿Cómo puedo hacer validación de datos al ejecutar una macros de guardado?

Tengo una macro en una hoja llamada NUEVO CLIENTE que guarda infroamcion en otra hoja llamada CLIENTES REGISTRADOS. Application.ScreenUpdating = False Sheets("CLIENTES REGISTRADOS ").Unprotect password:="28021990" Application.ScreenUpdating = False...
1 respuesta

Llenar campos obligatorios para ejecutar una macro...

Tengo esta macro en la cual me guarda la información de algunas celdas que se llenan, pero quisiera que no me permita ejecutar la macro si alguna de esas celdas no están llenas. Sub CREA_NUEVO_CLIENTE() ' ' CREA_NUEVO_CLIENTE Macro ' AGREGA NUEVO...
1 respuesta

Macro para actualizar base de datos (copiar y pegar)

Estoy realizando una plantilla para alimentar la una base de datos tengo la hoja ingresar en la que hay q diligencias todos los todos los datos requeridos como lo son radicado, tipo de producto, proceso etc; después de diligenciar los datos doy click...
1 respuesta