macro guardar hoja en un archivo nuevo

[gabrielmsi]

hola a todos, mi problema es el siguiente. Hice una base de datos en excel, con muchisimas hojas (no me fije el nº exacto), q estan relacionadas por formulas y los datos los voy modificando o agregando a diario. De esas hojas (no todas) tengo q hacer back up por c/una para tener un archivo historico. Entonces pense en hacer una macro ( no se como) q cumpla las siguientes condiciones:

a) q guarde la hoja q quiero (no el libro) generando un archivo nuevo

b) q pueda dar nombre al archivo. (seria ideal q lo tome de una celda d la hoja a guardar)

c) por ultimo, q el destino del archivo sea de acuerdo a la hoja q estoy guardando

En realidad es mas complicada la cosa,jaj, pero si pueden ayudarme en esto, soluciono una aparte bastante engorrosa. Desde ya muchas gracias.

[abrahamvj]

un ejemplo, ya tu adaptalo a lo que necesitas.

sub Ejemplo ()
Application.screenupdating = False
libro=activeworkbook.name
For contando = 1 to sheets.count
workbooks(libro).sheets(contando).copy
next
Application.screenupdating = true
End sub

Ese codigo es de uno de mis amigos de LWP

Abraham

[ideasking]

Te hice un archivo ejemplo de como puedes manejar tu caso. Es un archivo donde mediante un pequeño formulario tu escribes a que Hoja quieres ir, que nombre le quieres poner y en que directorio lo quieres guardar y al presionar un boton te crea tu nuevo archivo justamente con las caracteristicas que le diste. Escribeme a [email protected] y te lo envio.

[gabrielmsi]

muchas gracias por las opciones, ya pude hacer la macro con su ayuda