Buenas noches, para optimizar mi trabajo, intento crear una macro que copie información de un libro de origen a uno de destino, la macro debe escoger un libro de una ubicación específica (el libro no tiene un nombre específico) abrirlo y copiar un determinado rango, la cantidad de columnas del rango simpre es igual, pero varia el número de filas, la macro funciona hasta abrir un libro del directorio escogido, pero no copia el rango del libro abierto y mucho menos lo copia en el libro de destino. En un modulo del libro de destino he colocado el código siguiente:
Sub CommandButton1_Click()
Dim Filename As Workbook
If MsgBox("Desea Importar Archivo", vbYesNo, "Pregunta") = vbYes Then
'Con este mensaje si el usuario selecciona si se continua con el proceso, sino no pasa nada
ChDir "C:\Users\MIGUEL\Desktop\FSF\OT"
Workbooks.Open Filename:=Application.GetOpenFilename("Archivos de excel,*.xls*", _
, "Seleccione archivo para actualizar datos.")
'con este código abro un archivo de una ubicación
'TODO BIEN HASTA ESTA PARTE DONDE VIENE EL PROBLEMA
Workbooks("Filename.xls").Worksheets("Hoja1").Activar
Range("B3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Seleeciona un rango en el archivo elelgido para copiarlo en un libro de destino
Windows("FSF.xls").Activate
Range("B3").Select
ActiveSheet.Paste
'copia rango seleccionado en hoja de destino.
Else
'Seleccionó NO, no haga nada
End If
End Sub
