Macro para copiar rango en una hoja sin guardar
Tengo problemas con una macro en excel, mi objetivo es copia un campo seleccionado de un libro cerrado a una celda de unahoja nueva ( no guardada)
Sub Titulo()
'
' Titulo Macro
' Macro grabada el 14-09-2011 por lhormazabal
'
' Acceso directo: CTRL+t
'
Rows("1:1").Select
Selection.Insert Shift:=xlDown
'esta es la parte que no logro programar
'se debe abrir un xls cerrado y copiar Range("A4:K4")
'a la hoja nueva NO GUARDADA
Application.ScreenUpdating = False
Application.EnableEvents = False
Workbooks.Open ("C:\Documents and Settings\lhormazabal\Escritorio\PLANTILLA CONTEO.xls")
Application.EnableEvents = True
Range("A4:K4").Copy Destino.Worksheets(1).Range("B1")
ThisWorkbook.Activate
'esta es otra de la funciones, pero no preseta problemas
Columns("A:A").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("L:L").Select
Selection.Delete Shift:=xlToLeft
Columns("J:J").Select
Selection.Delete Shift:=xlToLeft
Range("G4").Select
End Sub
Sub Titulo()
'
' Titulo Macro
' Macro grabada el 14-09-2011 por lhormazabal
'
' Acceso directo: CTRL+t
'
Rows("1:1").Select
Selection.Insert Shift:=xlDown
'esta es la parte que no logro programar
'se debe abrir un xls cerrado y copiar Range("A4:K4")
'a la hoja nueva NO GUARDADA
Application.ScreenUpdating = False
Application.EnableEvents = False
Workbooks.Open ("C:\Documents and Settings\lhormazabal\Escritorio\PLANTILLA CONTEO.xls")
Application.EnableEvents = True
Range("A4:K4").Copy Destino.Worksheets(1).Range("B1")
ThisWorkbook.Activate
'esta es otra de la funciones, pero no preseta problemas
Columns("A:A").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("L:L").Select
Selection.Delete Shift:=xlToLeft
Columns("J:J").Select
Selection.Delete Shift:=xlToLeft
Range("G4").Select
End Sub
Respuesta de calvuch
1
El siguiente macro abre el libro2 copia el rango a4:k4 en el libro1 ( que es el nombre del libro activo desde el cual llamaste el macro)
Luego cierra el libro2
Te puede dar una idea:
Sub Macro2()
Workbooks.Open ("C:\libro2.xls")
Range("A4:K4").Select
Selection. Copy
Windows("Libro1"). Activate
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Libro2.xls").Activate
Windows("Libro2.xls").Close
Windows("Libro1"). Activate
Range("A4").Select
End Sub
Luego cierra el libro2
Te puede dar una idea:
Sub Macro2()
Workbooks.Open ("C:\libro2.xls")
Range("A4:K4").Select
Selection. Copy
Windows("Libro1"). Activate
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Libro2.xls").Activate
Windows("Libro2.xls").Close
Windows("Libro1"). Activate
Range("A4").Select
End Sub
CALVUCH, muchas gracias por la pronta respuesta, pero me queda la duda sobre el siguiente paso
Windows("Libro2.xls").Activate
Windows("Libro2.xls").Close
no capto el objetivo ...
Desde ya gracias
Windows("Libro2.xls").Activate
Windows("Libro2.xls").Close
no capto el objetivo ...
Desde ya gracias
En caso de este ejemplo:
Windows("Libro2.xls").Activate ' cambia al libro que solicitaste para obtener el dato
Windows("Libro2.xls").Close ' cierra el libro del cual obtuviste el dato
Si tu intención es mantener activo el libro del cual tomaras el dato, pues elimina esas lineas
Windows("Libro2.xls").Activate ' cambia al libro que solicitaste para obtener el dato
Windows("Libro2.xls").Close ' cierra el libro del cual obtuviste el dato
Si tu intención es mantener activo el libro del cual tomaras el dato, pues elimina esas lineas
