Copiar hoja en libro nuevo

[fantasma16]

Hola a todos en el foro, quisiera resolver un problema q tengo... de antemano gracias....explico:

quiero copiar una hoja de registro para un nuevo libro pero que el nuevo libro se guarde automaticamente con el nombre del empleado ej..... c:pedro.xlt

[Armando Montes]

Hola, si subes tu libro nos facilitas responder, gracias.

Normas AyudaExcel | Ayuda Excel

[fantasma16]

este es el archivo

REGISTRO1.xls

[Armando Montes]

Intenta con algo asi:

Sub CopySave()

    Dim strFileName As String

    strFileName = Hoja1.Range("B2").Value & ".xlt"

    ActiveSheet.Copy

    ActiveWorkbook.SaveAs strFileName

    ActiveWorkbook.Close

End Sub


[/CODE]

[joseapm6260]

Hola compañeros, en caso qde que quisieras guardarlo en un lugar determinado que habria que añadir?

[Armando Montes]

Debes agregar la ruta, explicacion:

Ejemplos de macros | Curso de VBA Excel

[joseapm6260]

Muchas gracias Armando, como siempre tus respuestas son las adecuadas. Eres un fenomeno.