Macro para guardar tres libros desde uno solo

5 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Macro para guardar tres libros desde uno solo

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

Etiquetas: 

RicardoSS
Imagen de RicardoSS
Offline
última acción: Hace 6 años 4 meses
alta: 25/09/2017 - 18:08
Puntos: 180
Guardar todos los libros activos

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

 

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Tres especificos

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

RicardoSS
Imagen de RicardoSS
Offline
última acción: Hace 6 años 4 meses
alta: 25/09/2017 - 18:08
Puntos: 180
Macro para guardar solo libros seleccionados;1 o mas libros

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

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Muy bien

Muchas gracias, perfecto muchas gracias

saludos

Jesús

TEMA SOLUCIONADO

Jesus Martinez Plantarosa