Buenos días a los prestigiosos integrantes de este foro, en esta ocasión recurro a uds, para solicitar su ayuda en como modificar la macro, el cual permita guardar el archivo resultado con la extensión .xls, ya que con esta macro lo genera con la extensión .xlsm , siendo una copia exactamente al original con la diferencia que en el archivo fuente son barrados los datos ingresados, por lo que necesito es que al guardar el archivo resultado elimine las hojas BASES DE DATOS y Hoja1 quedando únicamente la Hoja2 (el cual contiene formula que son transportador de la Hoja1 - resaltado de color celeste) y solo debe quedar como valores, para mejor el archivo fuente.
Sub guardar24072015()
Nombre = ActiveWorkbook.Name
Carpetaa = ActiveWorkbook.Path
filaa = Carpetaa & "\" & Nombre
Nombrar = MsgBox("usar el archivo por default", vbYesNo + vbDefaultButton2, "AVISO")
If Nombrar = vbYes Then
filab = Carpetaa & "\" & "plantilla electronica1"
Else
Titulo = InputBox("¿Como se va a llamar el archivo?", "AVISO")
If Titulo = "" Then
Exit Sub
Else
filab = Carpetaa & "\" & UCase(Titulo) & ".xlsm"
End If
End If
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
xNombre = ActiveWorkbook.Name
Workbooks.Open (filaa)
Sheets("Hoja1").Range("C2:C50").ClearContents
Sheets("Hoja1").Range("G2:G50").ClearContents
Workbooks("ESTRUCTURA DE ABONOS.xlsm").Save
Sheets("Hoja1").Select
Range("C2").Select
Workbooks(xNombre).Close savechanges = True
Sheets("Hoja1").Range(Cells(2, 1), Cells(lastRow, 50)).ClearContents
End Sub
Buenos días a los prestigiosos integrantes de este foro, en esta ocasión recurro a uds, para solicitar su ayuda en como modificar la macro, el cual permita guardar el archivo resultado con la extensión .xls, ya que con esta macro lo genera con la extensión .xlsm , siendo una copia exactamente al original con la diferencia que en el archivo fuente son barrados los datos ingresados, por lo que necesito es que al guardar el archivo resultado elimine las hojas BASES DE DATOS y Hoja1 quedando únicamente la Hoja2 (el cual contiene formula que son transportador de la Hoja1 - resaltado de color celeste) y solo debe quedar como valores, para mejor el archivo fuente.
Sub guardar24072015() Nombre = ActiveWorkbook.Name Carpetaa = ActiveWorkbook.Path filaa = Carpetaa & "\" & Nombre Nombrar = MsgBox("usar el archivo por default", vbYesNo + vbDefaultButton2, "AVISO") If Nombrar = vbYes Then filab = Carpetaa & "\" & "plantilla electronica1" Else Titulo = InputBox("¿Como se va a llamar el archivo?", "AVISO") If Titulo = "" Then Exit Sub Else filab = Carpetaa & "\" & UCase(Titulo) & ".xlsm" End If End If ActiveWorkbook.Save ActiveWorkbook.SaveAs Filename:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False xNombre = ActiveWorkbook.Name Workbooks.Open (filaa) Sheets("Hoja1").Range("C2:C50").ClearContents Sheets("Hoja1").Range("G2:G50").ClearContents Workbooks("ESTRUCTURA DE ABONOS.xlsm").Save Sheets("Hoja1").Select Range("C2").Select Workbooks(xNombre).Close savechanges = True Sheets("Hoja1").Range(Cells(2, 1), Cells(lastRow, 50)).ClearContents End SubDesde ya agradezco su apoyo y colaboración.
ESTRUCTURA DE ABONOS.xlsm
RESULTADO.xlsm
RESULTADO.xls