............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Cortar un rango y pegar en otro libro....

Ver el tema anterior Ver el tema siguiente Ir abajo

Cortar un rango y pegar en otro libro....

Mensaje por cbyto el Dom Nov 09, 2008 7:23 pm

Hola, buenas a todos.
Queria saber si se puede generar una macro para cortar un determinado rango.
Es asi, poseo un libro con 13 hojas. Doce de ellas nombradas con los meses del año y la ultima es una resumen de los datos de esas hojas.
Yo necesitaria poder cortar un rango (que simpre es el mismo, A1:G25) de alguna de las 12 hojas (que me pregunte de que hoja) y pegar el rango en otro libro.
Se puede esto?

Yo la verdad ....... ni idea

Si me pueden ayudar se los agradeceria

cbyto

Masculino Cantidad de envíos : 58
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por GalileoGali el Dom Nov 09, 2008 7:41 pm

El libro destino existe o hay que crearlo?
si hay que crearlo como lo llamaras
si ya existe, como se llama y donde esta (preferentemente, seria en la misma carpta que el de los meses)
cortar o copiar?
cortar o elminar?

En este foro acostumbramos venir a buscar las respuestas y comentarlas respecto a si han servido o no...
todavia ioyama sigue esperando respuesta aca
[Tienes que estar registrado y conectado para ver este vínculo]

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por cbyto el Lun Nov 10, 2008 7:51 am

No sabia lo de la respuesta. Ahora lo hago.

El archivo ya existe (Resumen.xls), esta en la misma carpeta que el de los meses.
Seria un copiar y pegar, sin eliminar nada del archivo de los meses

cbyto

Masculino Cantidad de envíos : 58
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por GalileoGali el Lun Nov 10, 2008 6:55 pm

Aqui va un codigo muy básico

Código:
Sub COPIARYPEGAR()
Dim mes As String, ruta As String

Dim wbkDestino As Workbook

mes = Application.InputBox("Indique el nombre de la hoja de la que tomara datos", , , , , , , 2)
Application.ScreenUpdating = False

If mes = "" Or mes = "Falso" Then Exit Sub
On Error Resume Next
Err.Clear
Set wbkDestino = Workbooks("Resumen.xls")
If Err.Number <> 0 Then
ruta = ThisWorkbook.Path & "\Resumen.xls"
Workbooks.Open ruta
Set wbkDestino = ActiveWorkbook
End If
On error Goto 0

ThisWorkbook.Sheets(mes).Range("A1:G25").Copy wbkDestino.Sheets(1).Range("A1")

End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por cbyto el Mar Nov 11, 2008 9:45 pm

Hola, gracias por la macro.
ahora sabes que me pasa algo re-loco. cuando la probe en un archivo cualquiera y la ejecute anduvo de 10.
La inclui en el archivo "verdadero" y no me anda y eso que copie el código tal cual me lo pasaste. Tendras alguna idea del porque?
La tabla es mas o menos asi

Cantidad tkt 55 4
Cantidad envios100 34
Totales 155 38

Esos numeros (55;4;100:34) salen de usar la funcion CONTARA()
Cuando copio todo con la macro no me pone el 55;4;100;38. Me pone 1; 1; etc
Te subiria el archivo pero no se como.

Igualmente gracias por la ayuda que me diste

cbyto

Masculino Cantidad de envíos : 58
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por GalileoGali el Mar Nov 11, 2008 10:50 pm

Proba con esto

ThisWorkbook.Sheets(mes).Range("A1:G25").value wbkDestino.Sheets(1).Range("A1:G25").value
en lugar de esto
ThisWorkbook.Sheets(mes).Range("A1:G25").Copy wbkDestino.Sheets(1).Range("A1")

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por cbyto el Miér Nov 12, 2008 7:58 am

Nada
Da error:
"Se ha producido el error 438 en tiempo de ejecucion"
"El objeto no admite esta propiedad o metodo"

cbyto

Masculino Cantidad de envíos : 58
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por GalileoGali el Miér Nov 12, 2008 12:51 pm

Para COLGAR el archivo puedes usar: esnips, skydrive, rapidshare, megaupload, o cualquier otra de cientos de Uploaderes existentes en la red (casi todos gratuitos)

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por cbyto el Miér Nov 12, 2008 7:31 pm

Subiendo el archivo......espero.
Gracias

[Tienes que estar registrado y conectado para ver este vínculo]

o
[Tienes que estar registrado y conectado para ver este vínculo]


Última edición por GalileoGali el Jue Nov 13, 2008 6:28 am, editado 1 vez (Razón : Modificados URL)

cbyto

Masculino Cantidad de envíos : 58
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por GalileoGali el Jue Nov 13, 2008 7:02 am

Probemos ahora:

Código:
Sub CopiayPega()

Dim mes As String, ruta As String
Dim wbkDestino As Workbook
Dim destino

mes = Application.InputBox("Indique el nombre de la hoja de la que tomara datos", , , , , , , 2)
Application.ScreenUpdating = False

If mes = "" Or mes = "Falso" Then Exit Sub
On Error Resume Next
Err.Clear
Set wbkDestino = Workbooks("Resumen.xls")
If Err.Number <> 0 Then
    ruta = ThisWorkbook.Path & "\Resumen.xls"
    Workbooks.Open ruta
    Set wbkDestino = ActiveWorkbook
'    mensaje = "Copia concluida exitosamente"
'    MsgBox mensaje
End If
On Error GoTo 0
ThisWorkbook.Activate
With ThisWorkbook
.Sheets(mes).Range("S1:W11").Copy
Set destino = wbkDestino.Sheets(1).Range("A1:E11")
destino.PasteSpecial xlPasteFormats
destino.PasteSpecial xlPasteColumnWidths
destino.Value = ThisWorkbook.Sheets(mes).Range("S1:W11").Value
End With
Application.CutCopyMode = False
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por cbyto el Jue Nov 13, 2008 8:22 am

Te agradezco por toda la ayuda y perdona por romper tanto con esto.
Me dio el siguiente error:
"Error 1004 en tiempo de ejecucion "
"Fallo metodo PasteSpecial de la clase range"

El error lo muestra en esta linea
destino.PasteSpecial xlPasteColumnWidths

No te quiero romper mas con este tema, ni que pierdas mas tiempo

Muchas gracias por preocuparte y darme unamano con esto

cbyto

Masculino Cantidad de envíos : 58
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por GalileoGali el Jue Nov 13, 2008 1:04 pm

He revisado el codigo con la prueba de hacerlo correr y corre perfectamente, puede ocurrir que se trate de un problema de versiones
Podes probar esto:
en Excel anteriores al 2003:
.................... .PasteSpecial Paste:=xlColumnWidths

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por cbyto el Jue Nov 13, 2008 7:09 pm

Tenes razon....lo corri en excel 2003 y 2007 y anda perfecto.
Tambien lo probe en el 2000 y anda con la modificacion que me pasaste al final

Mil gracias Gali

Un abrazo

cbyto

Masculino Cantidad de envíos : 58
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Cortar un rango y pegar en otro libro....

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.