Macro para guardar libros diferentes
Hola todos, necesito su amable colaboración indicándome como puedo hacer una macro que me permita desde el libro activo abrir otro libro guardado en una ruta definida y luego guardar este mismo en una ruta diferente.
Y también si es posible que en el libro mencionado se cambie una celda especifica antes que se guarde.
Les agradezco su amable ayuda
Y también si es posible que en el libro mencionado se cambie una celda especifica antes que se guarde.
Les agradezco su amable ayuda
1 respuesta
Respuesta
1
En la planilla tienes que dibujar un rectángulo, luego darle un click con el botón derecho y poner donde dice asignar macro, luego grabas una y la detienes en el momento de iniciar, vas a macros, marcas esta que acabas de hacer y le das donde dice paso a paso, luego pones esta instrucciones:
Sub Rectángulo_Haga_clic_en()
'
' Rectángulo_Haga_clic_en Macro
'
'
Workbooks.Open Filename:="C:\Users\Juan\Desktop\Libr81.xls"
Range("A1").Select
ActiveCell.FormulaR1C1 = "pppppp"
a = "Libro 82"
Range("E14").Select
ActiveSheet.Shapes.Range(Array("1 Rectángulo")).Select
Selection.Delete
ActiveWorkbook.SaveAs Filename:= _
"C:\users\juan\Desktop\" & a & ".xls", FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Lo primero que esta en negrita es la dirección donde esta el libro que deseas abrir, así que cambiala a donde se encuentra, lo segundo es la celda que quieres que cambie, así que selecciona la celda que tiene que cambiar, y lo tercero es lo que quieres que introduzca en esa celda.
Sub Rectángulo_Haga_clic_en()
'
' Rectángulo_Haga_clic_en Macro
'
'
Workbooks.Open Filename:="C:\Users\Juan\Desktop\Libr81.xls"
Range("A1").Select
ActiveCell.FormulaR1C1 = "pppppp"
a = "Libro 82"
Range("E14").Select
ActiveSheet.Shapes.Range(Array("1 Rectángulo")).Select
Selection.Delete
ActiveWorkbook.SaveAs Filename:= _
"C:\users\juan\Desktop\" & a & ".xls", FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Lo primero que esta en negrita es la dirección donde esta el libro que deseas abrir, así que cambiala a donde se encuentra, lo segundo es la celda que quieres que cambie, así que selecciona la celda que tiene que cambiar, y lo tercero es lo que quieres que introduzca en esa celda.
Una cosita más abajo también se encuentra la dirección donde quieres que guarde el libro, esa también la deberás cambiar, y borra esto
Range("E14"). Select
ActiveSheet.Shapes.Range(Array("1 Rectángulo")).Select
Selection.Delete
Te pido disculpas por los errores espero que ahora quede solucionado
Range("E14"). Select
ActiveSheet.Shapes.Range(Array("1 Rectángulo")).Select
Selection.Delete
Te pido disculpas por los errores espero que ahora quede solucionado