Excel - MEJORAR MACRO AL GRABAR

   
Vista:
Imágen de perfil de JOSE LUIS

MEJORAR MACRO AL GRABAR

Publicado por JOSE LUIS (24 intervenciones) el 30/04/2017 02:56:45
Buenas noches a los miembros de este foro, en esta ocasión quisiera pedir su ayuda en como mejorar la macro, es decir que al grabar el archivo nuevo se grabe con la extensióon .xlsx, pero esta planilla en VBA, para lo cual adjunto archivo


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub guardar24072015()
NOMBRE = ActiveWorkbook.Name
CARPETAA = ActiveWorkbook.Path
filaa = CARPETAA & "\" & NOMBRE
nombrar = MsgBox("usar el archivo por default", vbYesNo + vbDefaultButton2, "AVISO")
'nombrar = MsgBox("Guardar el archivo por default?", vbYesNo + vbDefaultButton2, "AVISO")
If nombrar = vbYes Then
'filab = CARPETAA & "\" & "plantilla electronica1" & ".xlsm"
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
'ActiveWorkbook.SaveAs fileName:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
xnombre = ActiveWorkbook.Name
Workbooks.Open (filaa)
Sheets("LLENADO").Range("B7:G16").ClearContents
Sheets("LLENADO").Range("K7:P16").ClearContents
Sheets("LLENADO").Range("B21:G30").ClearContents
Sheets("LLENADO").Range("K21:P30").ClearContents
Sheets("LLENADO").Range("B35:G44").ClearContents
Sheets("LLENADO").Range("K35:P44").ClearContents
Sheets("LLENADO").Range("B49:G58").ClearContents
Sheets("LLENADO").Range("K49:P58").ClearContents
Sheets("LLENADO").Range("B63:G72").ClearContents
Sheets("LLENADO").Range("K63:P72").ClearContents
 
Sheets("LLENADO").Range("I7:I16").ClearContents
Sheets("LLENADO").Range("R7:R16").ClearContents
Sheets("LLENADO").Range("I21:I30").ClearContents
Sheets("LLENADO").Range("R21:R30").ClearContents
Sheets("LLENADO").Range("I35:I44").ClearContents
Sheets("LLENADO").Range("R35:R44").ClearContents
Sheets("LLENADO").Range("I49:I58").ClearContents
Sheets("LLENADO").Range("R49:R58").ClearContents
Sheets("LLENADO").Range("I63:I72").ClearContents
Sheets("LLENADO").Range("R63:R72").ClearContents
 
 
Workbooks("ESTRUCTURA PLANILLAS.xlsm").Save
'Workbooks("ESTRUCTURA PLANILLAS.xlsm").Close
 
Sheets("LLENADO").Select
    Range("B7").Select
 
Workbooks(xnombre).Close savechanges = True
Sheets("LLENADO").Range(Cells(7, 1), Cells(lastRow, 50)).ClearContents
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder