Estoy superada por unos libros del programa informático Microsoft Excel.
Hola estoy atorada kn unos libros de excel tengo 4 bodegas de las cuales cada archivo tiene 4 libros esto es porque son 3 turnos y en el 4 libro saca resumen de los 3, y quiero automatizarlas ya tengo mi form agregue 4 botones para llamar las 4 bodegas pero son archivos diferentes y el form lo tengo en otro archivo (aclaro todos en excel) como puedo llamarlos y ademas que cada que modifique una rchivo este se guarde automáticamente con un nombre "especifico" es decir un ejemplo bod1_11jun.xls y así sucesivamente otro con bod2_11jun que al final lleve el día o fecha en que estamos :-( ojala puedas ayudarme se que es extenso pero NECESITO AYUDAAAAAA
1 Respuesta
Respuesta de Elsa Matilde
1
Te dejo las instrucciones para que vayas armando tu rutina:
Para abrir otro libro:
Application.Workbooks.Open "C:\Mis documentos\Libro1.xls"
(La ruta puede ser ThisWorkbook. Path si fuese la misma que el libro activo)
Luego activas nuevamente tu libro original:
Workbooks("Libro1.xls").select
Cuando lo quieras guardar armá el nombre en una variable, es lo más práctico:
Dim NuevoNombre As String
NuevoNombre = Day(Date) & Format(Month(Date), "mmmm")
Workbooks("tu_segundo_Libro").SaveAs Filename:=NuevoNombre & ".xls"
Si esto resuelve tu consulta, no olvides finalizarla
Saludos
Elsa
** Más macros en mi manual '400Macros' explicadas en español
Para abrir otro libro:
Application.Workbooks.Open "C:\Mis documentos\Libro1.xls"
(La ruta puede ser ThisWorkbook. Path si fuese la misma que el libro activo)
Luego activas nuevamente tu libro original:
Workbooks("Libro1.xls").select
Cuando lo quieras guardar armá el nombre en una variable, es lo más práctico:
Dim NuevoNombre As String
NuevoNombre = Day(Date) & Format(Month(Date), "mmmm")
Workbooks("tu_segundo_Libro").SaveAs Filename:=NuevoNombre & ".xls"
Si esto resuelve tu consulta, no olvides finalizarla
Saludos
Elsa
** Más macros en mi manual '400Macros' explicadas en español
