Hola buenas les escribo para ver si me pueden echar una ayuda con esto. Estoy haciendo una macro que me permite exportar a un archivo totalmente nuevo un formato X el cual queda grabado con un Folio y una leyenda en una carpeta especifica. Ejemplo: C:\Facturacion\Junio\01000_Detalle_factura_2500.xlsx. Esto ya lo tengo listo, mi gran problema es que este archivo como lo mencione lleva un Folio y necesito que después que se grabe tome ese mismo folio y lo copie en mi archivo principal en el libro de FOLIOS. Obviamente este libro es correlativo por lo tanto necesito que vaya copiando los datos hacia abajo y ahí esta mi problema, no se como hacer para que tome la ultima fila y copie el dato que necesito (El folio del archivo exportado). Les dejo una muestra de mi macro, el archivo donde necesito que se graben los datos y el formato que exporto con el folio para ver si me orientan un poco en el tema. Les agradezco de ante mano. Macro: Sub EXPORTAR_FACT_1_MONTO() Dim Hoy As Date Hoy = DateTime.Now Dim Carpeta As String Carpeta = MonthName(Month(Hoy)) Dim nombre As String nombre = Range("E59").Value Dim Folio As String Folio = Range("E64").Value Dim ultimafila As Double Dim FECHA As Date Range("Tabla1[[#Headers],[SERIE]]").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.ListObjects("Tabla1").ShowAutoFilterDropDown = False ActiveWindow.DisplayZeros = False Application.Run "PERSONAL.XLSB!FIJA_TITULOS" Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Range("Tabla1").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("D57").Select ActiveSheet.ListObjects("Tabla3").ShowAutoFilterDropDown = False Range("A54:D54").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("J54").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("Tabla3").Select Selection.Copy Range("D57").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWindow.ScrollRow = 26 ActiveWindow.ScrollRow = 27 ActiveWindow.ScrollRow = 28 Range("E64").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A2").Select ChDir "C:\Facturacion" 'ActiveWorkbook.SaveAs Filename:="C:\Facturacion\" & nombre & ".xlsx", FileFormat:= ActiveWorkbook.SaveAs Filename:="C:\Facturacion\" & Carpeta & "\Convenio\" & Folio & "-Detalle_Factura_" & nombre & ".xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False 'SEGUNDA PARTE Application.Run "PERSONAL.XLSB!FIJA_TITULOS" ActiveWindow.DisplayZeros = False ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _ "C:\Mis Documentos\Imagenes\Atlanta\prueba2.jpg" With ActiveSheet.PageSetup.LeftHeaderPicture .Height = 45.75 .Width = 48 End With Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "&G" .CenterHeader = _ "&""Tahoma,Negrita""&14IMPORTADORA Y EXPORTADORA" & Chr(10) & _ "NUEVA ATLANTA LTDA." & Chr(10) & "RUT: 78.050.590-7&""Tahoma,Normal""&10" & _ Chr(10) & "" & Chr(10) & "" & Chr(10) & "&""Tahoma,Negrita""&12JUNIO DE 2020" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.31496062992126) .RightMargin = Application.InchesToPoints(0.118110236220472) '.TopMargin = Application.InchesToPoints(0.866141732283465) .TopMargin = Application.InchesToPoints(1.73228346456693) .BottomMargin = Application.InchesToPoints(0.15748031496063) .HeaderMargin = Application.InchesToPoints(0.31496062992126) .FooterMargin = Application.InchesToPoints(0.31496062992126) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 70 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With With ActiveSheet.PageSetup RigthHeader = Format(FECHA, "DD/MMMM/YYYY") Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" End With Application.PrintCommunication = True ActiveWorkbook.Save ActiveSheet.Cells(1, 2).Select Range("A2").Select End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Copiar de una hoja a otra

Autor del tema cferrada1981
Fecha de inicio 16 Jun 2020

cferrada1981

New member

16 Jun 2020

Hola buenas les escribo para ver si me pueden echar una ayuda con esto.
Estoy haciendo una macro que me permite exportar a un archivo totalmente nuevo un formato X el cual queda grabado con un...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Resuelto

Macro copiar datos a otra hoja según condición

Respuestas: 3

19 Dic 2025

Leopoldo Blancas

Pregunta

Copiar filas de datos de una hoja a otra - (celda de validación)

Respuestas: 3

25 Nov 2025

Erik Lopez

Pregunta

Copiar de una hoja a otra

Respuestas: 4

28 Feb 2025

Goldfinger

Resuelto

macro copiar cortar y pegar y sumar a otra hoja

Respuestas: 4

27 Nov 2024

POPEYE

Pregunta

Copiar datos desde una Hoja a otra en rangos numerados

Respuestas: 5

13 Oct 2024

Miltiño

Resuelto

Copiar datos con condición al final de otra hoja

Respuestas: 5

2 Sep 2024

crowler

Pregunta

Ayuda con Macro para copiar datos a otra hoja

Respuestas: 11

24 Jul 2024

Gabriela hg

Resuelto

Copiar datos filtrados de una hoja a otra automáticamente

Respuestas: 5

22 May 2024

Paco CarMich

Resuelto

Buscar archivo y copiar datos de una hoja a otra hoja de libro abierto

Respuestas: 2

1 May 2024

Pirtrafilla

Pregunta

Copiar filas y columnas de una hoja y pegarlas en otra

Respuestas: 1

31 Mar 2024

FGV

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba

Bienvenido a la mayor comunidad de usuarios EXCEL

Copiar de una hoja a otra

cferrada1981

New member

Adjuntos

Temas similares