Buenas noches:
Trabajo con tres libros, libro1, libro2 y libro3, que los abro los tres si o si, pero como puedo guardar desde mi libro1 los otros dos? sin la necesidad de ir libro por libro y darle click en el botón guardar?
Gracias
Jesús
//-->
Buenas noches:
Trabajo con tres libros, libro1, libro2 y libro3, que los abro los tres si o si, pero como puedo guardar desde mi libro1 los otros dos? sin la necesidad de ir libro por libro y darle click en el botón guardar?
Gracias
Jesús
Buen dia
Con este codigo guardas todos los libros activos desde cualquier libro.
Sub Guardar_todos_los_libros()
For Each X In Application.Workbooks
X.Save
Next X
End sub
Un Saludo...
Gracias por la respuesta, pero y si quiero guardar tres libros especificos, por ejemplo tengo los siguientes libros caja, cuentas y notas, y solo quiero guardar los tres, y no asi los demas libros que puede ser que vaya abriendo
saludos
Jesús
Jesus Martinez Plantarosa
Buen dia
este codigo valida si el libro o libros que estamos especificando estan abiertos y los guarda.
Sub Guardar_3_libros()
For i = 1 To Application.Workbooks.Count
If Application.Workbooks(i).Name = "Caja.xlsx" Then
Application.Workbooks(i).save
Exit For
End If
Next
For i = 1 To Application.Workbooks.Count
If Application.Workbooks(i).Name = "Cuentas.xlsx" Then
Application.Workbooks(i).save
Exit For
End If
Next
For i = 1 To Application.Workbooks.Count
If Application.Workbooks(i).Name = "Notas.xlsx" Then
Application.Workbooks(i).save
Exit For
End If
Next
End Sub
Un saludo
RicardoSS
Muchas gracias, perfecto muchas gracias
saludos
Jesús
TEMA SOLUCIONADO
Jesus Martinez Plantarosa