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
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
.
