Macro copia datos los traspone en otro y guarda una copia renombrandola con numero consecutivo
Tengo un libro "AGENDA16" con macro que copia datos y los traspone en otro libro "f16" pero necesito que esta misma macro guarde en una carpeta "FSI FICHERO" una copia de este libro nombrándolo con un numero consecutivo que se encuentra en la celda "G5" de la hoja f16 del mism
'ALFREDO PEREZ GUTIERREZ 'copia celdas seleccionadas y las pega en otro libro Sub CopiarCeldas() Application.ScreenUpdating = False 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel destino 'Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "LIBRO1.xlsx") Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\fsi16.xlsm") 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("AGENDA16") Set wsDestino = wbDestino.Worksheets("f16") 'Indicar la celda de origen y destino Const celdaOrigen = "A1" Const celdaDestino = "q4" 'Inicializar los rangos de origen y destino Set rngOrigen = wsOrigen.Range(celdaOrigen) Set rngDestino = wsDestino.Range(celdaDestino) 'Seleccionar rango de celdas origen rngOrigen.Select ActiveSheet.Range("u8:v21").Select Selection.Copy 'Pegar datos en celda destino rngDestino.PasteSpecial xlPasteValues Application.CutCopyMode = False 'Guardar y cerrar el libro de Excel destino wbDestino.Save 'wbDestino.Close End Sub
o libro gracias... Dejo aqui la macro
2 respuestas
Respuesta de fejoal
1
Respuesta de Programar Excel
1