Fecha y hora actual: Sábado 22 Jul 2017 13:40
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

MEJORAR MACRO AL GRABAR

Responder al Tema

Índice del Foro > Excel > MEJORAR MACRO AL GRABAR

Autor Mensaje
SALAVERRINO



Registrado: 24 Jul 2015
Mensajes: 1

Mensaje Publicado: Domingo 30 Abr 2017 14:32

Título del mensaje: MEJORAR MACRO AL GRABAR

Responder citando

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

[/code]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
Código:
[/quote]

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Responder al Tema
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 1 Hora

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

MACRO EXCEL: busquedas sin usar bucles

Alexia Excel 1 Viernes 28 Oct 2016 14:35 Ver último mensaje
El foro no contiene ningún mensaje nuevo

nsertar Montos segun fecha de couta en un calen...

djnilo Excel 1 Jueves 24 Sep 2015 16:41 Ver último mensaje
El foro no contiene ningún mensaje nuevo

ayuda con macro login y permisos

yordin Excel 0 Miércoles 09 Sep 2015 21:23 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Grabar registros en Base de Datos de Access 201...

fezaca Visual Basic .NET 2 Domingo 14 Jun 2015 18:18 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Macro para bajar página

Plasmus Programación en general 0 Miércoles 20 May 2015 06:56 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,