Foro Excel

Hola,

Estoy utilizando la función DESREF, para volcar datos de un libro a otro, ya que en uno de ellos los datos están en Vertical y en el otro en Horizontal y es la única manera que he encontrado para hacerlo.

El problema es que solo puedo actualizar los datos, cuando el libro de origen está abierto y no quiero que sea así­, necesito poder hacerlo sin tener que abrir el de Referencia.

Os pongo un ejemplo, para que veais a que me refiero, a ver si alguien puede ayudarme.

Gracias de antemano

Tal vez te sirva esta macro:

Código: Seleccionar todo

Sub pegar()
      Dim miLibro As Workbook
      Range("A1:E2").Select
      Application.ScreenUpdating = False
      Selection.Copy
      Set miLibro = Excel.Workbooks.Open(ThisWorkbook.Path & "/VOLCADO DE DATOS.xls")
      With miLibro
         .Worksheets("LIBRO 2").Range("A2").Select
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=True
         .Save
         .Close
      End With
      Set miLibro = Nothing
      Application.ScreenUpdating = True
End Sub