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
