Saltar al contenido

Copiar data de una hoja y pegar en otra al final del ultimo registro

publicado

Buenos dias Familia

Nuevamente necesito su ayuda tengo un archivo en la cual quiero copiar los datos que estan en el sheet1 de la columna B en adelante sin el encabezado y pegarlo en la sheet2 debajo del ultimo registro que tenga esa hoja.

 

Favor su ayuda muchas gracias

anexare el documento tuve que acortar la data para poder subirlo

data foro.xlsxFetching info...

Featured Replies

publicado

Prueba y comenta

Sub copiar(): Application.ScreenUpdating = False
    Hoja1.Range("B2", "CV" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row).Copy _
    Destination:=Hoja2.Range("A" & Hoja2.Range("B" & Rows.Count).End(xlUp).Row + 1)
End Sub

image.gif

publicado
  • Autor

Perfecto hermano muchas gracias lo que como tengo las hojas con numbre la edite de esta manera pero muchas gracias en verdad 

 

Sub copiar(): Application.ScreenUpdating = False
    Sheets("Auditoria").Range("B2", "CV" & Sheets("Auditoria").Range("B" & Rows.Count).End(xlUp).Row).Copy _
    Destination:=Sheets("IPTV").Range("A" & Sheets("IPTV").Range("B" & Rows.Count).End(xlUp).Row + 1)
End Sub

Archivado

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