Copia de hoja con nombre predefinido.

Hola John,

Es por los saltos de linea:

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & _
ActiveSheet.Range("A1") & ".xls"

Para cambiar el directorio debes sustituir thisworkbook.path por la ruta que
tenga por ejemplo:

ActiveWorkbook.SaveAs Filename:="C:\temp\" & _
ActiveSheet.Range("A1") & ".xls"

En el directorio temp

Las macros se guardan en el libro inicial, no viajan con la hoja recien
creada.
Puedes comprobarlo si una vez creada la hoja cierras los libros abiertos y
abres el recien creado.

Un saludo,
Juan


"Kröhm" escribió

Hola Juan M,

Gracias por tu consejo!

Mira, he sustituido la referencia a la celda A1 por la C9 que es la que
contiene el número de factura.

No me funciona porque se me pone una línea en rojo. Exactamente ésta:

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" &



El código general es prácticamente el que tú me has puesto:

Sub extraefactura()
'
' extraefactura Macro
' Macro grabada el 11/11/2008 por John Krohm
'

'Sub extraefactura()
Sheets("fra").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" &
ActiveSheet.Range ("C9") & ".xls"
End Sub


Supongo que la línea tendrá que ser modificada. Si se trata de saber cuál
es
el directorio que tendrá como destino la copia de la hoja extraída, en
principio no será el mismo.

Además, ahora me asalta la duda de si la hoja copiada y aislada se "lleva"
también las macros de la hoja de origen.

Agradezco mucho vuestro apoyo.

Saludos

JK

Hecho. Funciona de miedo. Todo genial!
Muchas gracias a ti y a Héctor por vuestros amables consejos!

Por cierto, en la misma macro introduzco otra parte para llevarme sólo los
valores, seleccionando toda la hoja, copiando y pegando (especial) sólo los
valores. No sé si se hace así, pero también funciona! Lo mismo mañana
explota...

Un cordial saludo,
JK

Pd.: por si sirve de algo para otros 'oyentes'. Si el número de factura
contiene signos como / & %, etc. se le va la olla y da error. Corrigiendo eso
no da problemas.