Foro de elhacker.net

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

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

workbooks.add

Guardar un libro (saveas acepta otros parámetros)

'workbooks(index).SaveAs(nombre_ruta)
workbooks(2).saveas("C:\Archivo.xls")

Copiar contenido de una hoja

'Seleccionas rango
Selection.copy
'Seleccionas destino
ActiveSheet.Paste

Copiar hoja completa

Sheets(hoja).Copy After:=Workbooks(nombre_otro_libro).Sheets(index)
'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

Buenos dias,
Novlucker si lo que necesito es copiar la hoja completa a un libro nuevo.
use tu instruccion
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.

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

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

Workbooks.Add
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

Buenos dias,
Ok Novlucker, funciono correctamente muchas gracias.


tony82