Copiado de un libor a otro

hola, jorge !

tengo dos libros libro1.xls y libro2.xls
en libro1 tengo un boton que me abre libro2,
ahora lo que necesito en el mismo click del boton es copiar las columnas b, c,e,g y h de libro2
en una hoja nueva de libro1, la hoja se debe llamar informe_fecha, en donde fecha es la fecha del día en que hago el proceso

(a reserva de algo que pudiera haberse quedado en el tintero) -???-
prueba con instrucciones +/- como las siguientes (en algun modulo del "libro1.xls") y...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub La_macro_del_boton()
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets.Add
.Name = "informe_" & Format(Date, "ddmmyy")
Workbooks.Open "libro2.xls"
ActiveSheet.Range("b1:c1,e1,g1,h1") _
.EntireColumn.Copy Destination:=.Range("a1")
ActiveWorkbook.Close False
End With
End Sub

ok, hector muchas graccias


"Héctor Miguel" escribió en el mensaje
news:%

hola, jorge !

tengo dos libros libro1.xls y libro2.xls
en libro1 tengo un boton que me abre libro2,
ahora lo que necesito en el mismo click del boton es copiar las columnas
b, c,e,g y h de libro2
en una hoja nueva de libro1, la hoja se debe llamar informe_fecha, en
donde fecha es la fecha del día en que hago el proceso

(a reserva de algo que pudiera haberse quedado en el tintero) -???-
prueba con instrucciones +/- como las siguientes (en algun modulo del
"libro1.xls") y...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub La_macro_del_boton()
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets.Add
.Name = "informe_" & Format(Date, "ddmmyy")
Workbooks.Open "libro2.xls"
ActiveSheet.Range("b1:c1,e1,g1,h1") _
.EntireColumn.Copy Destination:=.Range("a1")
ActiveWorkbook.Close False
End With
End Sub