APOYO CON MACRO PARA COPIAR INFORMACIÓN DE UNA HOJA A OTRA

[Gabriela hg]

 

 

Hola buenas tardes!

 

Agradezco de antemano su ayuday mi duda es la siguiente:

 

Tengo una base de datos la cual se alimenta mediante una lista desplegable y esa base quiero alimentar otra mas solo con algunos campos

 

el punto es que tengo la siguiente macro para pegar datos:

 

 

Sub pegadatos()

    

    Application.ScreenUpdating = False

    

    Worksheets("Hoja2").Range("B7:B100000").Copy Destination:=Worksheets("BASE GENERAL").Range("B5")

    Worksheets("Hoja2").Range("C2:C100000").Copy Destination:=Worksheets("BASE GENERAL").Range("C5")

    Worksheets("Hoja2").Range("D2:D100000").Copy Destination:=Worksheets("BASE GENERAL").Range("M5")

    Worksheets("Hoja2").Range("F2:F100000").Copy Destination:=Worksheets("BASE GENERAL").Range("O5")

    Worksheets("Hoja2").Range("G2:G100000").Copy Destination:=Worksheets("BASE GENERAL").Range("P5")

    Sheets("Hoja2").Select

    Range("A1").Select

    Sheets("CARGA BATCH").Select

    Range("A1").Select

 

    Application.ScreenUpdating = True

 

End Sub

 

Pero al momento de ejecutarla en vez de pasar la información, me pasa la forma donde estan mis datos origenes y lo que quiero son las cantidades así como también que cada que cambie un registro de cliente y vuelva a ejecutar la macro me registre la nueva información a partir del renglo donde concluyo la última instrucción.

 

Espero darme a entender y me ayuden con sus conocimientos.

GRACIAS

 

[Israel Cassales]

 Bueno, para asegurarte de que los nuevos datos se peguen a partir de la última fila utilizada, primero se debe encontrar la última fila con datos en “BASE GENERAL”.

Puedes usar lastRow (Ejemplo):

Encuentra la última fila con datos en "BASE GENERAL"
    lastRow = wsBaseGeneral.Cells(wsBaseGeneral.Rows.Count, "B").End(xlUp).Row + 1

Y modifica en tu código:

Destination:=wsBaseGeneral.Range("B" & lastRow)

Haz una prueba y regresas con el avance o comentarios, sino es uno mismo tal vez algún Maestro pueda aportar algo adicional.

Nota: Para una ayuda mejor elaborada se recomienda poner un libro de ejemplo, esto evita conjeturas que no ayudan en la determinación de sentencias.

Saludines.

[Gabriela hg]

Hola buenas noches

 

Adjunto el archivo para su apoyo, muchas gracias 

CONCENTRADO.xlsx

[JSDJSD]

Sin entender lo que quieres te dejo una posible solución 

[JSDJSD]

El archivo

CONCENTRADO.xlsm

[Gabriela hg]

Hola muchas gracias lo voy a revisar, cualquier duda me puedes seguir apoyando?

 

gracias!

 

Saludos!

[JSDJSD]

Si