Estoy realizando una macro donde tengo que abrir un archivo copiar los datos y pasarlos a otro archivo, lo hago de la siguiente manera:
If Dir(strNetwork) <> "" Then
ChDir strNetwork ' Posicionarse en el directorio de red
Workbooks.Open Filename:=strNetwork & strFile ' Abrir el archivo
Windows(strFile).Activate ' Activar ventana del archivo
Columns("A:BL").Copy
SendKeys ("{Enter}") ' Evitar el mensaje de copia masiva de información
Windows(strFile).Close
Windows("Facturación FINAL.xls").Activate
Sheets("PEDIDOS").Select
Range("A1").Select
ActiveSheet.Paste
Else
MsgBox "La [" & strNetwork & "] en red no disponible, presiona el botón cambiar para más información", vbCritical, "Error"
End If
Se puede optimizar? Por ejemplo,
Ejecución lenta
Range("E1").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste
Ejecución rapida
Range("E1").Copy Range("D10")
Pero esto se hace dentro de un mismo archivo, alguna sugerencia?