copiar celdas a otro libro abierto sin usar ACTIVE

[gracielamabel]

Hola!!!
Usaba una macro para copiar celdas de un libro a otro (hojas distintas,carpetas distintas), usando el "ir y venir" entre libros.. Solucionaba el parpadeo con Application.ScreenUpdating =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dantte666]

el error dice: book2 , se requiere un objeto

Es que no tienes definido book2
Un ejemplo
book2= Workbook("Read_IVA.xlsm")
Tienes una alternativa bastante simple, que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dantte666]

Es el nombre del libro en el que se van a pegar los datos.

 

[Macro Antonio]

.
Esto debería funcionar:

Sub CopiarDeBook1ABook2()
   Application.ScreenUpdating = False
   Workbooks.Open "C:\Users\Documents\graciela\archivo2.xlsm" 'Pasa a ser el libro...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[gracielamabel]

Antoni:
Aqui me sale un error: error 9 en tiempo de ejecucion subindice fuera del intervalo
ThisWorkbook.Sheets("hoja n10").Range("A2:A5").Copy ActiveWorkbook.Sheets("hoja n20").Range("B3:B6")

 

[gracielamabel]

Dantte666:
me sale aqui
r2 = Workbooks("C:\Users\Documents\graciela\archivo2.xlsm).Sheets("hoja n20").Range("B3:B6")

(no es Workbooks con s final?)
el error 9 en tiempo de ejecucion subindice...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dantte666]

r2 = Workbooks("C:\Users\Documents\graciela\archivo2.xlsm).Sheets("hoja n20").Range("B3:B6")

Asi:
Set r2 = Workbooks("archivo2.xlsm").Sheets("hoja n20").Range("B3:B6")

 

[Dantte666]

La Macro de Antoni Funciona perfectamente. me inclino por esta, debieras considerar subir tus libros,

Ahora pasé a excel 2016 en windows 10 y esto no funciona!..

...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Antoni:
Aqui me sale un error: error 9 en tiempo de ejecucion subindice fuera del intervalo
ThisWorkbook.Sheets("hoja n10").Range("A2:A5").Copy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[gracielamabel]

r2 = Workbooks("C:\Users\Documents\graciela\archivo2.xlsm).Sheets("hoja n20").Range("B3:B6")

Asi:
Set r2 = Workbooks("archivo2.xlsm").Sheets("hoja...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[gracielamabel]

es copiar lo de archivo1 en archivo 2...no andara por ahi el error?

 

[gracielamabel]

es copiar lo de archivo1 en archivo 2...no andara por ahi el error?

ejecutando desde el archivo 1

 

[Dantte666]

Una delas dos hojas, o las dos, no existen en alguno de los libros.

Estoy de acuerdo con Antoni.

Francamente no comprendi bien lo que escribiste en un principio en la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[gracielamabel]

Ok!!, mil gracias, lo haré esta noche (en 5 horas)...gracias!!!!!!!!!!!!!!

 

[gracielamabel]

desde cero:

hay 2 libros ya abiertos en distintas rutas

el archivo1.xlsm en la ruta: D:\Users\Usuario\Documents\carpeta1
y el archivo2.xlsm en la ruta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dantte666]

Sub CopiarDeBook1ABook2()
'Dim Wb1, Wb2 As Workbook
Dim Wb1, Wb2 As Range
With Application
  .ScreenUpdating = False
  .EnableEvents = False
End With
Set Wb1 =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dantte666]

Del codigo Eliminas esta linea:

'Dim Wb1, Wb2 As Workbook, ya que es inecesria, no confundir con esta: 'Dim Wb1, Wb2 As Range

 

[gracielamabel]

si...es diferente (se me borro, perdon).....Voy PROBAR...mil gracias!!!!!

 

[gracielamabel]

Sub CopiarDeBook1ABook2()
'Dim Wb1, Wb2 As Workbook
Dim Wb1, Wb2 As Range
With Application
  .ScreenUpdating = False
  .EnableEvents = False
End With
Set Wb1 =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dantte666]

Pues en todo caso no declares el tipo de Variable, solo elimina esa linea, en excel no es necesario, solo mediante set ya has declarado el objeto, lo más curioso, es que a mi si me funciona el...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí