............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

ARCHIVO GUARDAR COMO

Ver el tema anterior Ver el tema siguiente Ir abajo

ARCHIVO GUARDAR COMO

Mensaje por SALAVERRINO el Jue Jul 23, 2015 11:53 pm

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

SALAVERRINO

Masculino Cantidad de envíos : 9
Edad : 51
Ciudad - Pais : PERU
Version de Excel : EXCEL 2007 Y 2010
Fecha de inscripción : 25/10/2012

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.