salvar copia de hoja desde una macro.

13/07/2005 - 20:16 por Dr_Rodriguez | Informe spam
Buenas tardes grupo

Necesito una manera de salvar una hoja del libro que empleo con la ruta y
titulo que hay en una hoja, la cosa es que necesito la instruccion para
hacerla como una macro activada desde un botón, que no esta en la hoja desde
doned lo activo, grabandola desde "grabar" del menu de macros no consigo
manera de hacerlo.

Tengo en una celda la siguiente formula: =concatenar(h2,"\"h3) que trae como
resultado: x:uta_de_directorioombre
donde h2 es la ruta y h3 es el nombre que quisiera para el archivo.

Alguien sabrá como hacerlo?

Saludos

Leo.
 

Leer las respuestas

#1 KL
13/07/2005 - 20:38 | Informe spam
Hola Dr_Rodriguez,

necesito la instruccion para
hacerla como una macro activada desde un botón, que no esta en la hoja
desde
doned lo activo



sinceramente esta frase no la acabo de entender. ?podrias reformualrlo
porfa?

Tengo en una celda la siguiente formula: =concatenar(h2,"\"h3) que trae
como
resultado: x:uta_de_directorioombre
donde h2 es la ruta y h3 es el nombre que quisiera para el archivo.



Suponiendo que:

1) en la celda [A1] de la hoja "Hoja1" tienes la formula:
=H2&"\"&H3
(la funcion CONCATENAR se sustituye facilmente con el operador &)
3) el boton que ejecuta el macro esta en la misma hoja
4) quieres salvar copia de la "Hoja2" en un libro nuevo con la ruta y el
nombre que aparecen en la celda [A1] de la hoja "Hoja1"
5) la ruta que aparece en la celda [A1] de la hoja "Hoja1" ya existe en tu
sistema

prueba asignar a tu boton el siguiente codigo y colocarlo en un modulo VBA
estandar (no de hoja, thisworkbook o formulario)

Sub Test()
With ThisWorkbook
Nombre = .ActiveSheet.Range("A1")
.Sheets("Hoja2").Copy
End With
ActiveWorkbook.SaveAs Nombre
End Sub

Saludos,
KL

Preguntas similares