Cómo copiar diferentes rangos d celdas d una hoja y pegarlas en distintas columnas d un nuevo libro

Bueno encontré un código el cual me permite copiar celdas y pegarlas pero en la siguiente fila, lo que quiero hacer es abrir un nuevo documento y que de mi hoja4 me copie los rangos a1:c57 en la columna a, e1:57 en la columna d, i1:k57en la columna g, m1:o57 en la columna j, q1:s57 en la columna m y u1:w57 en la columna p; en el nuevo documento quise usar el código de la siguiente manera:

Sub tickets1()
Workbooks.Add
Workbooks("almacen dulces.xlsm").Activate
fila = 1
Sheets(4).Select
Range("A1:C57").Select
Selection.Copy
Workbooks(Workbooks.Count).Sheets(1).Cells(fila, 1).PasteSpecial
Sheets(4).Select
Range("E1:G57").Select
Selection.Copy
Workbooks(Workbooks.Count).Sheets(1).Cells(fila, 4).PasteSpecial
Sheets(4).Select
Range("I1:K57").Select
Selection.Copy

End Sub

Pero creo que no funciono muy bien, agradeceré su ayuda ya que no tengo mucha experiencia de macros con excel.

1 Respuesta

Respuesta
1

Utiliza esta macro desde tu archivo principal:

Sub tickets1()
mio = activeworkbook.name
Workbooks.Add
otro = activeworkbook.name
Workbooks("almacen dulces.xlsm").Activate
Sheets(4).Select
Range("A1:C57").Select
Selection.Copy
Workbooks(otro).Sheets(1).range("a1").PasteSpecial paste:=xlvalues
Range("E1:G57").Select
Selection.Copy
Workbooks(otro).Sheets(1).range("d1").PasteSpecial paste:=xlvalues
Range("I1:K57").Select
Selection.Copy
Workbooks(otro).Sheets(1).range("g1").PasteSpecial paste:=xlvalues
Range("m1:o57").Select
Selection.Copy
Workbooks(otro).Sheets(1).range("j1").PasteSpecial paste:=xlvalues
Range("q1:s57").Select
Selection.Copy
Workbooks(otro).Sheets(1).range("m1").PasteSpecial paste:=xlvalues
Range("u1:w57").Select
Selection.Copy
Workbooks(otro).Sheets(1).range("p1").PasteSpecial paste:=xlvalues
End Sub

recuerda finalizar la consulta

Gracias experto el código me funciono excelente, aprovechando, ¿con que instrucción conservo el formado que tiene mi documento?

Entonces utiliza la macro así:

Sub tickets1()
mio = activeworkbook.name
Workbooks.Add
otro = activeworkbook.name
Workbooks("almacen dulces.xlsm").Activate
Sheets(4).Select
Range("A1:C57").Select
Selection.Copy
Workbooks(otro).activate
Sheets(1).select
range("a1").select
activesheet.paste
workbooks(mio).activate
Range("E1:G57").Select
Selection.Copy
Workbooks(otro).activate
Sheets(1).select
range("d1").select
activesheet.paste
workbooks(mio).activate
Range("I1:K57").Select
Selection.Copy
Workbooks(otro).activate
Sheets(1).select
range("g1").select
activesheet.paste
workbooks(mio).activate
Range("m1:o57").Select
Selection.Copy
Workbooks(otro).activate
Sheets(1).select
range("j1").select
activesheet.paste
workbooks(mio).activate
Range("q1:s57").Select
Selection.Copy
Workbooks(otro).activate
Sheets(1).select
range("m1").select
activesheet.paste
workbooks(mio).activate
Range("u1:w57").Select
Selection.Copy
Workbooks(otro).activate
Sheets(1).select
range("p1").select
activesheet.paste
End Sub

recuerda finalizar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro "guardar como" una sola hoja del libro con rango de celdas especifico

Me gustaría asignar a un botón Macro para "guardar como" un rango de celdas determinadas de la hoja del libro en el que estoy y una ruta determinada. O sea que me aparezca el cuadro de dialogo en donde yo le pueda poner nombre y que solo me guarde la...
1 respuesta

Mondelo modificación de macro para que me copie datos filtrado y los copie a un nuevo libro.

Acudo a usted luis mondelo por la gran ayuda y colaboración tan oportuna que me ha brindado. Gracias sos el mejor. Hace unos días buscaba copiar datos filtrados y pegarlos a otra hoja del mismo libro, es posible que con el código siguiente se haga...
1 respuesta

Macro para copiar fila a otra hoja sin sobreescribir

Utilice la macro de la siguiente manera y funciona perfectamente, lo único es que cuando me copia la información me la sobreescribe y no me la pega en la siguiente fila que esta libre. La única diferencia es que cuando coloco PasteSpecial...
1 respuesta

Macro guardar hoja excel

Ayer hice una pregunta a cerca de como hacer una macro para guardar una hoja en la que estoy con cuadro de dialogo y de un rango de celdas determinado. Luismondelo me respondió satisfactoriamente. Pero quiero modificar y que me la guarde directamente...
1 respuesta

Crear Macro para guardar archivo con extensión CSV (asignando ciertas celdas)

Estimados Gusto de Saludarlos. Bueno soy novato en este tema. Recién aprendiendo a crear macro... Fvr necesito vuestra ayuda... Tengo una hoja de calculo en excel 2010. Dentro de la misma tengo macros para concatenar y copiar y pegar.!... Lo que me...
1 respuesta

En una macro se ha producido el error 9 en tiempo de ejecución subíndice fuera del intervalo ayuda

Herede una macro con problemas, e leído por varios foros y no he podido acertar con la solución, este el código Sub sinmail() Dim nbrpln As String Dim vendedor As String Dim archi, i As Integer vendedor = Range("k5") cliente = Range("d7") nbre =...
1 respuesta

Eliminar el coetenido del portapapeles

Me podrías ayudar realice esta macro para copiar información de un libro a otro el problema que tengo es que cuando termina me sale un mensaje que me dice que hay gran cantidad de información en el portapapeles haga clic en si para guardar y no para...
2 respuestas

Mediante macro copiar hojas a un nuevo libro quitando vínculos

¿Cómo seria una macro que me copie dos hojas y las pegue en un nuevo libro pero que quite los vínculos de las hojas copiadas?, tengo esta macro pero solo me quita los vínculos de la hoja Forma10: Sub Imprime() Application.ScreenUpdating = False...
2 respuestas

Macro que llame a otro archivo xls. Lea los valores de 2 columnas especificas y luego las copie en..

Tengo un libro1.xlsx El cual tiene una hoja (master) que está construida de la siguiente manera. Columna A (INDICE) - Es decir no se repite.(Numérico) Columna B (Nombre) Columna C (NumeroX) - Numérico Columna D (Descriptor) Columna E (Descriptor 2)...
1 respuesta

Macro para importar datos de txt a una hoja Excel

Estoy usando Excel 2003 y realmente es la primera vez que trabajo con el, bueno mi problemas es el siguiente. Tengo una carpeta que contiene varios archivos txt, estos contienen una columna de datos cada uno, y necesito hacer una macro que en una...
2 respuestas