Macro para Guardar desde mi libro otro libro
Como puedo guardar desde mi libro1 que tiene el nombre de MENU mi otro libro abierto que tiene el nombre de CUENTA
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub Guardar_Otro_Libro() 'Por.Dante Amor nombre = "CUENTA.xlsx" existe = False For Each libro In Workbooks If LCase(libro.Name) = LCase(nombre) Then existe = True Exit For End If Next ' If existe = False Then MsgBox "No está abierto el libro : " & nombre Exit Sub End If ' Workbooks(nombre).Save MsgBox "Libro guardado : " & nombre End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Gracias Dante como siempre un gran colaborador, para ser mas explicativo, y disculpa por no completar mi consulta, pero esta es la pregunta completa: tengo tres libros de trabajo uno caja otro cuenta y otro nota , desde mi libro caja tengo un botón y desde ahí quiero guardar el libro cuenta y el libro nota, espero haya sido claro, muchas gracias nuevamente por tu tiempo y paciencia
saludos cordiales
Jesús
La macro que te envié funciona para guardar otro libro, esa es la petición original.
Te anexo la macro actualizada para guardar 2 libros
Sub Guardar_Otro_Libro() 'Por.Dante Amor nombre = "CUENTA.xlsx" existe = False For Each libro In Workbooks If LCase(libro.Name) = LCase(nombre) Then existe = True Exit For End If Next ' If existe = False Then MsgBox "No está abierto el libro : " & nombre Else Workbooks(nombre).Save MsgBox "Libro guardado : " & nombre End If ' nombre = "NOTA.xlsx" existe = False For Each libro In Workbooks If LCase(libro.Name) = LCase(nombre) Then existe = True Exit For End If Next ' If existe = False Then MsgBox "No está abierto el libro : " & nombre Else Workbooks(nombre).Save MsgBox "Libro guardado : " & nombre End If End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
