Excel se queda en blanco, debo liberar la memoria?

ola buen día!!!

Tengo un código que usted muy amablemente me proporcionó, al principio me funcionaba bien... Pero ahora cada ves que lo ejecuto se demora mucho tiempo y luego se atora, y tengo que cerrar el programa y reiniciarlo para que reaccione!. Será que tengo que liberar la memoria???? Hay algún código para hacer eso?? O usted que me sugiere??

agradezco mucho tu apreciable ayuda! Saludos!

pd. Adjunto el código que ejecuto:

Sub CREAREPORTE()
'Por.DAM
Sheets("CAPTURA").Activate
MiReporte = Range("O7")
Set l1 = ThisWorkbook
Sheets(Array("REPORTE MENSUAL", "BITACORA DE RECIBOS")).Copy
Application.DisplayAlerts = False
Sheets("REPORTE MENSUAL").Cells.Copy
Sheets("REPORTE MENSUAL").Select
Range("A1").Select
Range("A1").PasteSpecial Paste:=xlValues
Sheets("BITACORA DE RECIBOS").Cells.Copy
Sheets("BITACORA DE RECIBOS").Select
Range("A1").Select
Range("A1").PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs Filename:=MiReporte & "REPORTE MENSUAL.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
l1.Activate
MsgBox "COPIA TERMINADA", vbInformation, "COPIAR"
End Sub
Respuesta
1

¿Tienes mucha información en las hojas a copiar?

¿Tienes imágenes?

Intenta cambiar en la macro esta línea

Sheets("REPORTE MENSUAL"). Cells. Copy

Por esta

Sheets("REPORTE MENSUAL"). UsedRange. Copy

son mil filas que se copian, pero aun tengo muchas sin datos... por eso se me hizo muy extraño!

cambie la parte que me dijo, y parece ser que si accedió a ejecutarse, se lo agregué a ambas hojas!

tienes alguna idea de porque sucede esto???

Agradezco nuevamente tu valiosísima ayuda!

Si, es por falta de memoria o del procesador de tu compu.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas