Como creo una macro en excel para guardar como...

Hola amigo, de nuevo te molesto, en la ayuda que me brindastes anteriormente me fue de gran utilidad, pero quisiera ahora que me colaboraras agregando otras cositas para dejar mi archivo ya terminado.
Esto fue el código que tu me respondiste la vez pasada...
Ok; Como ya conoces el funcionamiento, te pongo solo el codigo; Solo tendrás que copiarlo y pegarlo en tu macro.
Sub MacroX()          'La que tu tengas definida---
  DIM NombreFichero as String
  DIM Fecha as String
   NombreFichero=Range("A1").Select    'A1 corresponde a la celda con el nombre de fichero
   ChDir "C:\Carpeta de Documentos\"
   Fecha=Format(Date(), "DDMMAA") 'Puedes cambiar el formato a tu gusto
   ActiveWorkbook.SaveAs Filename:=NombreFichero & Fecha
   MsgBox "Fichero " & NombreFichero & Fecha & " guardado"
End Sub
Bueno, lo que necesito ahora es agregarle más funciones al mismo botón...
1. Quiero que al dar clic en el botón, me imprima 2 copias, me haga un guardar como con el nombre de una celda y la fecha, limpie todos las celdas que utilice, y que me quede el libro original activo...
De antemano agradeciendo tu colaboración...

1 respuesta

Respuesta
1
A ver... te escribo el código completo para que solo tengas que "Copiar" y "Pegar"
Espero que me puntúes bien por todo el trabajo, ehh,-)
-------------------
Sub MacroX()          'La que tu tengas definida---
  DIM NombreFichero as String
  DIM Fecha as String
   NombreFichero=Range("A1").Select    'A1 corresponde a la celda con el nombre de fichero
   ChDir "C:\Carpeta de Documentos\"

   Fecha=Format(Date(), "DDMMAA") 'Puedes cambiar el formato a tu gusto
   ActiveWorkbook.SaveAs Filename:=NombreFichero & Fecha
   MsgBox "Fichero " & NombreFichero & Fecha & " guardado"

   ActiveWindow.SelectedSheets.PrintOut Copies:=2  '->Con esto imprime las 2 copias
   Range("A1:B8").Select      '-> Escribe aqui el rango de celdas que quieres borrar
   Selection.ClearContents   '-> Esta instruccion borra el contendido de las celdas.
End Sub
------------------------
Con esto, considero que estará resuelto tu problema...
Mi hermano esta bien tu a porte, ya guarda y todo pero solo me falta que me deje el archivo original abierto y cierre el que creo el guardar como...
Osea que me deje el original abieto para que otro usuario lo utilice, y valla guardando los que valla realizando en la carpeta dejándome el original activo...
Gracias de nuevo...
Ok, eso es muy fácil... tan solo tienes que guardar el archivo original (el que deseas que esté con las casillas limpias) como Plantilla. Para ello, cuando le des a "Guardar Como", en "Tipo de Archivo", especifica "Plantilla", (también sirve si le cambias la extensión a la hoja de calculo... en vez de XLS, tienes que cambiarla a XLT)
Con este "truco", no se guardará el archivo principal, y siempre lo tendrás "listo" para la siguiente vez...
Mi hermano, el truco esta bien, pero tengo un pequeño inconveniente, la copia que me guarda, me la guarda también en el formato de plantilla, y ademas queda activo, no lo cierra, lo que necesito es que me guarde la copia que hago la cierre y me deje el original abierto, no importa que borre el contenido, que después yo le coloco al archivo original al un botón para que antes de empezar borre todos los datos...
De antemano agredeciendo tu colaboración...
Ya he hecho algunos cambios para que quede exactamente como tu deseas... aquí va el código completo:
____________________________________
Sub MacroX()          'La que tu tengas definida---
  Dim NombreFichero As String
  Dim Fecha As String
   NombreFichero = Range("A1"). Value  'A1 corresponde a la celda con el nombre de fichero
   Fecha = Format(Date, "DDMMYY") 'Puedes cambiar el formato a tu gusto
ActiveWorkbook. Sheets. Select     'Selecciona todas las hojas del libro
   ActiveWorkbook. Sheets. Copy 'Y crea una copia de las hojas seleccionadas
'Aqui le decimos que guarde las hojas copiadas con el nombre del fichero que deseamos, y en la carpeta que queremos
   Workbooks(2).Close SaveChanges:=True, Filename:=NombreFichero & Fecha
   ActiveWindow.SelectedSheets.PrintOut Copies:=2  '->Con esto imprime las 2 copias
   Range("B2:B8").Select      '-> Escribe aqui el rango de celdas que quieres borrar
   Selection. ClearContents '-> Esta instruccion borra el contendido de las celdas.
End Sub

Nota: Te recomiendo que en el libro original, elimina las hojas que no necesites y deja solo las que necesitas, porque sino, cuando lo copias, se copian todas las hojas, incrementando bastante el tamaño del fichero de Excel.
______________________________________
Con esto, considero que ya tienes arreglado el problema... espero que me puntúes bien, porque he tenido que machacarme mucho la cabeza... no me salía a la primera y he tenido que exprimirme a fondo con este tema, ya por "cabezonería personal", je je...
En fin, espero que ahora si esté arreglado... ha sido un placer echarte una mano.-
Amigo que pena molestarlo tanto, pero yo utilizo 2 hojas en el archivo, y una de esas hojas es una base de datos de productos, al ejecutar la macro mando a imprimir todo, hasta la base de datos, podrías regarlarme un correo donde te pueda mandar el archivo para que lo revises y tengas una idea de lo que quiero...
Gracias de nuevo...
Ok, te envío de nuevo el programita retocado para arreglar este problema.
_________________________________________________________
Sub MacroX()          'La que tu tengas definida---
  Dim NombreFichero As String
  Dim Fecha As String
   NombreFichero = Range("A1"). Value  'A1 corresponde a la celda con el nombre de fichero
   Fecha = Format(Date, "DDMMYY") 'Puedes cambiar el formato a tu gusto
   ActiveWorkbook. Sheets. Select     'Selecciona todas las hojas del libro
   ActiveWorkbook. Sheets. Copy 'Y crea una copia de las hojas seleccionadas
  'Aqui le decimos que guarde las hojas copiadas con el nombre del fichero que deseamos, y en la carpeta que queremos
   Workbooks(2).Close SaveChanges:=True, Filename:=NombreFichero & Fecha
'Antes de imprimir, desactivamos todas las hojas para que solo se imprima la que deseas:
   Sheets("Hoja1").Select      'Selecciona solo la hoja que quieres imprimir
   Sheets("Hoja1"). Activate 'y la activa...
   ActiveWindow.SelectedSheets.PrintOut Copies:=2  '->Con esto imprime las 2 copias
   Range("B2:B8").Select      '-> Escribe aqui el rango de celdas que quieres borrar
   Selection. ClearContents '-> Esta instruccion borra el contendido de las celdas.
End Sub
________________________________________
No obstante, si deseas enviarme tu programa mi correo es: [email protected]
Un saludo, y espero que ahora si funcione bien...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para vincular una celda a un archivo pdf

Utilizo excel 2007, en mi sistema de facturación tengo varias macros, al pulsar un botón me guarda en pdf, imprime, crea siguiente numero de factura y manda la información a una tabla dinámica que lo organiza por numero de albarán, hasta ahí, todo...
1 respuesta

Macro guardar Hoja de EXCEL en formato PDF, Imprimir y Borrar

Siguiendo en el rubro construcción vial, quería saber si se puede hacer un macro que al presionar el botón me guarde la hoja Impresión ARENA en formato .PDF y adquiriendo como nombre el valor de una celda especifica en el escritorio de mi pc, una vez...
1 respuesta

Guardar hoja de excel en pdf con nombre de una celda en una carpeta especifica

Tengo un libro excel donde se guardan las facturas con el nombre de una celda en una carpeta especifica mi macro funciona perfectamente el problema es que quisiera que se guarde en pdf lo he intentado pero se guardan todas las hojas del libro en pdf...
1 respuesta

Macro que imprima, guarda hoja y contador

Les comento estoy creando un programa en excel 2010 en el cual sirva para facturar, pero mi problema consiste en que necesito crear un botón que me cumpla con tres funciones a la vez, que imprima los datos de la hoja 1, que aumente el consecutivo o...
1 respuesta

Macro para guardar y crear consecutivo

Tengo en Excel un formato de pedidos que uso frecuentemente, quiero crear un botón de guardar, que guarde éste formato en una hoja nueva del mismo libro con nombre Nº de pedido de celda G1, además que el Nº de pedido de mi formato original aumente...
1 respuesta

Macro para copiar contenido de varias celdas

Tengo una hoja en donde tengo que rellenar cinco celdas, cuando estas celdas están completas quisiera que la hoja con todos los datos se guardara completa en una carpeta(cortar y pegar)y el contenido de las cinco celdas se grabaran en una fila de...
1 respuesta

Macros para imprimir

Quisiera saber como hacer un macros que me imprima un rango de celdas (a1 a k56) Por medio de un botón y la cantidad de copias estén dadas por el valor que tome de una Celda especifica (p5)
1 respuesta

Macro que Crea PDF y Envía El PDF por Outlook

De la manera más amable solicito ayuda, ya he creado una macro que me permite hacer un archivo en PDF, lo que requiero es que el archivo que fue creado sea enviado vía por medio de Outlook. Adjunto código de la macro para crear el PDF. Sub...
1 respuesta

Borrar celdas de otra hoja

Intente grabar una macro de la siguiente forma: Private Sub CommandButton1_Click() ' ' Macro1 Macro ' Macro grabada el 06/08/2009 Sheets("Hoja2").Select Range("A1:K40").Select Selection.ClearContents Sheets("Hoja1").Select Range("A1").Select End Sub...
1 respuesta

Guardar como pdf excel

Estoy realizando una macro que pueda unificar el contenido de varias hojas en un solo PDF, quiero que automáticamente seleccione un rango diferente en cada hoja para que solo imprima ese rango seleccionado en el PDF final. Ej: tengo 4 hojas...
1 respuesta