Jump to content

"Grabar como..." usando el nombre de un CELDA


Recommended Posts

Hola

Como podría guardar un archivo utilizando el contenido de una celda concreta. El tema es que tengo una plantilla que se irá actualizando en función de la introducción del DNI de la persona y quisiera que se grabara automáticamente según ese campo en concreto.

gracias

Link to comment
Share on other sites

Hola quechua

Bienvenido al foro (revisa las normas por favor)

Con una macro de evento sita en la hoja deseada puedes obtener lo que quieres.

El código será similar al siguiente

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target = "" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("A1") & ".xls"
End Sub
[/CODE]

Cuando modificas la celda A1 el archivo se te guardará automáticamente con el nombre o número que haya en A1 (tienes que evitar los caracteres no permitidos o modificar la macro para que no los acepte a fin de evitar el error consiguiente).

Un saludo desde Vitoria

Link to comment
Share on other sites

Hola Ioyama,

Primero de todo darte las gracias por tu ayuda.

En referencia al comando, me da error. Yo la verdad es que soy un principiante en el tema de programar macros, por lo que no se si lo hago bien.

Yo creo una macro y copio el comando que me envias y cuando la ejecuto me da el siguiente error: "...Error de compilación... Se esperaba End Sub"

Como con palabras no se si me expreso del todo bien, te adjunto el archivo que estoy intentando poner la macro.

Espero tu respuesta y reitero mi agradecimiento.

PD: No es el archivo que utilizaré ya que ocupa más espacio, pero si que está en la celda correspondiente (la naranja es donde irá el DNI y será la referencia para cuando se haga el guardar como

Ivan

MASTER con macros.zip

Link to comment
Share on other sites

Hola Quechua.

Con todos mis respetos al maestro Ioyama, y con permiso del maestro Macro Antonio, aquí te dejo un código que me enseñó un fiel amante al Ballantines, a una solicitud más o menos parecida a la tuya y que me funciona perfectamente.

Te explico lo que yo hice:

Te creas un botón, en propiedades del botón le pones como nombre GuardarDirecto.

Y en el código del botón, copias y pegas el código que te he puesto, claro que tendrás que cambiar la ruta y la celda que contiene la referencia.

Sub GuardarDirecto()

Archivo = "C:\Varios\" & Range("D7").Value & " " & _
Format(Date, "yyyymmdd") & " " & _
Format(Time, "hhmmss") & ".xls"
ActiveWorkbook.SaveCopyAs Archivo

End Sub[/CODE]

Bueno amigo, espero que te sirva :encouragement:

Saludos

Link to comment
Share on other sites

Hola.

Perdona es que tengo varios códigos y me he confundido.

Sustituye la primera línea (Sub GuardarDirecto()), por esta: Private Sub GuardarDirecto_Click().

No puedo probarlo con tu fichero porque yo utilizo Office 2003 y hay conflictos con versiones superiores.

Si lo haces tal como te lo he explicado debe funcionar, a mí me funciona.

Saludos

Edito.

He creado este pequeño ejemplo para que veas que sí funciona.

Libro2.xls

Link to comment
Share on other sites

¡ Bravo "Cocinillas !, así me gusta, trasmitiendo los conocimientos de "oreja a oreja", jajaja

Este es el espíritu del foro, aunque hay algunos que todavía "nosan enterao".

Un abrazo

Link to comment
Share on other sites

¡ Bravo "Cocinillas !, así me gusta, trasmitiendo los conocimientos de "oreja a oreja", jajaja

Este es el espíritu del foro, aunque hay algunos que todavía "nosan enterao".

Un abrazo

Gracias, Antoni.

Creo que así es como debe ser, no cuesta nada y te sientes bien si puedes echar un cable a quién lo necesite. Siempre y cuando esté a tu alcance la solicitud expuesta, claro.

Un abrazo, maestro.

Link to comment
Share on other sites

Hola a todos

Muchas gracias si que funciona, ahora lo único que tengo que hacer es que en la empresa me habiliten las macros para así poder ejecutar este comando en el ordenador del trabajo.

Gracias de nuevo

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Pues tienes toda la razón.  Mucho más simplificado. ¡GRACIAS!
    • Que tal, verificando la consulta no veo necesidad de duplicar la Tabla de Reparto, dado que se puede simplemente agregar una columna (Importe total) con la siguiente fórmulación: =SUMAR.SI(Consumos!AR$2:AR$8;[@[Nombre completo]];Consumos!AK$2:AK$8)*[@[%]] Espero les sea útil.
    • Hola de nuevo por aquí. Sigo con el fichero de consumos y con problemas. Ayer me ayudasteis y mucho a determinar los conductores y sus consumos. Ahora lo que necesito es lo siguiente. Tengo una tabla donde los empleados imputan de manera porcentual a distintas ordenes de trabajo. Está en la hoja Reparto. Veréis que por ejemplo el primer empleado reparte un 50 a una OT y otro 50 a otra. El segundo empleado imputa un 40 a una OT y otro 60 a otra y el tercero imputa un 25 a una OT, un 65 a otra y un 10 a otra. Esto desglosarlo es un autentico lío, y cada mes me emplea muchísimo tiempo . Lo que quisiera es que en la hoja que le he llamado desglose me creara una tabla o en la que he hecho y me calculara el consumo de combustible de cada empleado teniendo en cuenta la OT y su porcentaje. He creado la tabla y he puesto los importes que deberían salir. Los importes de cada consumo están en la hoja Consumos en la columna AK (IMP_TOTAL). Por ejemplo en la hoja Desglose el primer empleado sería GARCIA FERNANDEZ, VICENTE y a la OT 11000001 tendría un importe de 28,70 euros ya que en la hoja Reparto decimos que imputa un 50 a esa OT y el consumo total de ese empleado de la hoja Consumo es de 57,40 euros. Y así con el resto. He puesto una tabla para que sea dinámico y si hay más consumos o empleados se vaya actualizando dinámicamente, o eso creo. Lo que no veo claro es que busque y autorrellene con formulas la tabla sin hacerlo con macros. Al menos para mi se me hace muy difícil ver la posibilidad. No tengo claro si he conseguido explicarme, cualquier duda os respondo. Y como siempre muy agradecido por vuestro tiempo y compartir tan hábiles conocimientos, y además de manera desinteresada y amable. Gracias.   Ejemplo consumos combustible sq.xlsx
    • Hola, yo también tengo el mismo problema, ¿podrías decir cómo lo solucionaste, por favor? :c
    • Hola Oscar, funciona perfectamente. He probado igual que con Silvia e independientemente del orden o incluso mezclando fechas funciona bien.   Gracias.  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy