Enviar hoja a un archivo nuevo .xlsx
Hola buen día!
Creé un formulario donde guardo la información relevante de recibos de pago, tales como fecha/folio/nombre del alumno/concepto/cantidad/ solo que tengo el siguiente detalle, como ya es mucha la información almacenada, deseo que la hoja donde guardo la información("BITÁCORA DE RECIBOS") SEA MANDADA CON EL MISMO FORMATO A UN ARCHIVO NUEVO (que genere con una macro) .XLSX y que me libere las celdas de "BITÁCORA DE RECIBOS" para seguir almacenando los folios del siguiente mes. Esto con la finalidad de no enviar todo mi archivo de macros... Espero puedan ayudarme.. Muchísimas gracias antemano
1 respuesta
le acabo de mandar el correo electrónico, muchas gracias.. espero su pronta respuesta!
1. No me dijiste de dónde a dónde se tiene que copiar.
2. ¿Después de copiar tengo que borrar la información?
3. ¿Cómo se va a llamar el nuevo libro?
Hola que tal, buen día!!!
1. Desde la celda a1 hasta donde encuentre la ultima celda con dato
2. Después de copiar la información copiada en el nuevo documento borrar la información.
3. El libro nuevo que se va a llamar “reporte mensual.xlsx”
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: copiadatos
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub copiadatos()
'Por.DAM
Set l1 = ThisWorkbook
Sheets("BITACORA DE RECIBOS").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"REPORTE MENSUAL.xlsx", _
FileFormat:=xlOpenXMLWorkbook, _
CreateBackup:=False
l1.Activate
Range("A2", ActiveCell.SpecialCells(xlLastCell)).ClearContents
Application.DisplayAlerts = False
MsgBox "Copia terminada", vbInformation, "COPIAR"
End SubSaludos.DAM
Si es lo que necesitas.
Hola buen día!
Corre perfectamente bien te lo
agradezco infinitamente!!!!
Tengo una duda más, espero
puedas ayudarme!!
Ese reporte que se creó en otra
hoja, si me sirve y mucho, el detalle está que mando a mi superior el reporte. Entonces, lo que me gustaría preguntarte es
que ¿como podríamos copiar únicamente los valores y que no me copie las
formulas?
Muchísimas gracias x tu ayuda!
Que tengas un buen día!
Cambia la macro por esta
Sub cop2()
'Por.DAM
Set l1 = ThisWorkbook
Sheets("BITACORA DE RECIBOS").Copy
Cells.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"REPORTE MENSUAL.xlsx", _
FileFormat:=xlOpenXMLWorkbook, _
CreateBackup:=False
l1.Activate
Range("A2", ActiveCell.SpecialCells(xlLastCell)).ClearContents
Application.DisplayAlerts = False
MsgBox "Copia terminada", vbInformation, "COPIAR"
End SubNo olvides finalizar la pregunta
