none
ARCHIVO GUARDAR COMO RRS feed

  • Pregunta

  • Buenas tardes, tengo un pequeño problema con esta Macro, y con esta macro me permite generar otro archivo con un nombre distinto, pero no lo esta generando como debe ser, porque tanto el archivo plantilla como el nuevo archivo se queda con los mismos datos. Y lo que necesito es que los datos que contiene mi archivo plantilla al momento de generar el nuevo archivo se borre (resaltado) al momento que ejecute la macro GUARDAR COPIA con el nuevo nombre de archivo.

    Nota: Al momento de generar la macro, pregunta si deseo "usar el archivo por default", porque lo que doy la opción NO, para que luego me permita colocar el nuevo nombre que uno quiere.

    Agradezco su apoyo.

    Adjunto Codigo, por no poder adjuntar archivo:

    Sub guardar()

    nombre = ActiveWorkbook.Name
    carpeta = ActiveWorkbook.Path
    filaa = carpeta & "\" & nombre

    nombrar = MsgBox("usar el archivo por default", vbYesNo, "AVISO")

    If nombrar = vbYes Then
    filab = carpeta & "\" & "plantilla electronica1" & ".xlsm"
    Else
    titulo = InputBox("¿Como se va a llamar el archivo?", "AVISO")
    filab = carpeta & "\" & titulo & ".xlsm"
    End If

    ActiveWorkbook.Save

    ActiveWorkbook.SaveAs Filename:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    xnombre = ActiveWorkbook.Name

    Workbooks.Open (filaa)
    Workbooks(xnombre).Close savechanges = False
    End Sub

    viernes, 24 de julio de 2015 3:06

Todas las respuestas

  • Hola

    Podrías cerrar el archivo generado con la plantilla, y crear uno nuevo basado en esa plantilla

    Otra opción es que borres los datos contenidos, seleccionando los ragos o celdas que los tienen

    Salu2,


    José Mª Fueyo [MS MVP Access]

    viernes, 24 de julio de 2015 7:11