MACRO nombre de libro en "X" celda del mismo
Tengo esta macro el cual me muestra el cuadro de dialogo para crear libros..
Sub CREAR_INVENTARIOS()
On Error Resume NextMsgBox "Puedes Crear Hasta 7 inventarios", vbInformation, "INVENTARIOS 2015 J.E.U"
MsgBox "PRIMERO", , "INVENTARIOS 2015"
Application.Dialogs(xlDialogSaveAs).Show
MsgBox "SEGUNDO", , "INVENTARIOS 2015"
Application.Dialogs(xlDialogSaveAs).Show
MsgBox "TERCERO", , "INVENTARIOS 2015"
Application.Dialogs(xlDialogSaveAs).Show
MsgBox "CUARTO", , "INVENTARIOS 2015"
Application.Dialogs(xlDialogSaveAs).Show
MsgBox "QUINTO", , "INVENTARIOS 2015"
Application.Dialogs(xlDialogSaveAs).Show
MsgBox "SEXTO", , "INVENTARIOS 2015"
Application.Dialogs(xlDialogSaveAs).Show
MsgBox "SEPTIMO", , "INVENTARIOS 2015"
Application.Dialogs(xlDialogSaveAs).Show
MsgBox "Haz concluido", vbInformation, "INFORMATION"
Application.QuitEnd Sub
Entonces quisiera que al momento de crear un libro nuevo, el nombre que yo le ponga a ese libro que creó se me refleje en la celda A1 del hoja 1..
1 respuesta
Te anexo el código para un libro nuevo:
Application.DisplayAlerts = False
MsgBox "PRIMERO", , "INVENTARIOS 2015"
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
If .Show Then
arch = .SelectedItems(1)
Sheets("Hoja1").[A1] = arch
ActiveWorkbook.SaveAs arch & ".xlsx"
End If
End WithSaludos
hola dan..
¿Ese código es para crar un libro cierto?
¿En caso de crear otro es solo poner otra vez el mismo o ponerlo en sub y llamarlo con CALL cierto?
No Me funciona... me sale esto a la hora de ejecutar el código
y lo crea sin macros...
Quisiera que a partir de mi libro BASE que tengo este cree copias del mismo conservando todo lo que haga en libro BASE incluso maros.. la única diferencia es el nombre del libro el cual ira en la celda A1 de cada libro que cree.
El código es para un libro nuevo. Si lo quieres 7 veces lo repites 7 veces.
Te anexo el código para que lo guarde como xlsm (macros)
Application.DisplayAlerts = False
MsgBox "PRIMERO", , "INVENTARIOS 2015"
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.FilterIndex = 2
.AllowMultiSelect = False
If .Show Then
arch = .SelectedItems(1)
Sheets("Hoja1").[A1] = arch
ActiveWorkbook.SaveAs arch & ".xlsm"
End If
End With
