elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  macro copiar datos de hoja a un libro		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: macro copiar datos de hoja a un libro  (Leído 7,855 veces)
tony82

Desconectado Desconectado

Mensajes: 31


Ver Perfil
macro copiar datos de hoja a un libro
« en: 20 Marzo 2009, 16:39 pm »
Buenas dias
otra vez yo molestando,si por favor me pueden ayudar
esta vez estoy realizando una macro que me copie los datos de una hoja que tengo oculta y los pegue en un libro nuevo. pero no tengo ni idea de como hacerlo.

tony 82
En línea
Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: macro copiar datos de hoja a un libro
« Respuesta #1 en: 22 Marzo 2009, 05:01 am »
Buenas
Lo que no me queda claro es si necesitas copiar el contenido o la hoja completa?, así que te doy tips  :P
Agregar un libro nuevo
Código
  1. workbooks.add
Guardar un libro (saveas acepta otros parámetros)
Código
  1. 'workbooks(index).SaveAs(nombre_ruta)
  2. workbooks(2).saveas("C:\Archivo.xls")
Copiar contenido de una hoja
Código
  1. 'Seleccionas rango
  2. Selection.copy
  3. 'Seleccionas destino
  4. ActiveSheet.Paste
Copiar hoja completa
Código
  1. Sheets(hoja).Copy After:=Workbooks(nombre_otro_libro).Sheets(index)
  2. 'Se selecciona y copia la hoja, en otro libro luego de ...
Espero te sirva y sino preguntas  ;)

Saludos

Nota: Cuando creas un libro nuevo y pegas contenido del actual en ese, las macros se desplazan, prueba para entender mejor
En línea
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
tony82

Desconectado Desconectado

Mensajes: 31


Ver Perfil
Re: macro copiar datos de hoja a un libro
« Respuesta #2 en: 31 Marzo 2009, 14:28 pm »
Buenos dias,
Novlucker si lo que necesito es copiar la hoja completa a un libro nuevo.
use tu instruccion
Código:
Sheets("ORDENES").Copy After:=Workbooks("Libro2").Sheets("Hoja1")
pero esta necesita que el libro nuevo este abierto, y ademas que sea el libro numero 2 en este caso, ya que lo use con Workbooks(index) y me arroja error.
hay forma que antes de la instrucion se agrege un libro nuevo y en el archivo actual copie toda una hoja y la pegue en ese libro nuevo.

Código:
 woorkbooks.add
Sheets("ORDENES").Copy After:=Workbooks("Libro2").Sheets("Hoja1")
esta instrucion abre un libro nuevo pero cada vez el libro va aumentando su numeracion, entoces sale error de subindice fuera del intervalo. o sea que no encuentra el libro2 abierto.

Muchas gracias
Tony82
En línea
Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: macro copiar datos de hoja a un libro
« Respuesta #3 en: 31 Marzo 2009, 16:01 pm »
Es que justamente te di los codes para que los juntaras, y lo que dice index es el comentario de como sería usarlo, index no funciona pero puedes usar workbooks.count

Código
  1. Workbooks.Add
  2. Sheets(1).Copy Before:=Workbooks(Workbooks.Count).Sheets(1)

Con workbooks.Count sabes cuantos libros hay, y por ende utilizandolo como index te moverás al último (el que acabamos de crear)
También he cambiado el copy After a Before, así copias la hoja en la primera hoja del nuevo libro  :P

Saludos
En línea
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
tony82

Desconectado Desconectado

Mensajes: 31


Ver Perfil
Re: macro copiar datos de hoja a un libro
« Respuesta #4 en: 15 Abril 2009, 15:01 pm »
Buenos dias,
Ok Novlucker, funciono correctamente muchas gracias.


tony82
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
copiar datos de cD
Dudas Generales 		piopioguauguau 2 3,481 Último mensaje 31 Octubre 2011, 18:34 pm
por piopioguauguau
[AYUDA] DUDA - Poblar datos de una hoja a otra con combobox u otro
Programación Visual Basic 		elcalo 1 1,752 Último mensaje 17 Septiembre 2014, 00:00 am
por FranciskoAsdf
Macro en Excel para copiar de un libro a otro con condiciones
Dudas Generales 		MaX2 0 1,539 Último mensaje 8 Agosto 2019, 19:43 pm
por MaX2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines