La macro no guarda

Hola, esta macro funciona perfectamente si le saco la instrucción "Application.ActiveWorkbook.Sabe" también probé con "ActiveWorkbook.Sabe", lo que me sorprende es que en otras macros más complejas y extensas esa instrucción funciona bien.
Me aparece un cartel con "recursos insuficientes" y cuando lo cierro otro que dice "error 1004", te agradezco cualquier ayuda. Saludos
Sub Prueba2()
'
' Prueba2 Macro
'
Application.ScreenUpdating = False
i = 0
Workbooks("REFORMA 8 (Salteado)").Worksheets("Base de datos mejorada").Activate
ActiveSheet.Calculate
Range("A1:AFN1").Select
Selection.Copy
Windows("Libro1"). _
        Activate
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
    ActiveCell.Offset(1, 0).Activate
    Workbooks("REFORMA 8 (Salteado)").Worksheets("Hoja26optimiz").Activate
Range("GCB59").Copy
Range("A41:GCK41").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
ActiveSheet.Calculate
Range("A59:GCB59").Copy
ActiveCell.Offset(2, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
       Range(ActiveCell, ActiveCell.Offset(13, 4812)).Select
        Selection.Calculate
Repetir:
Range(Cells(ActiveSheet.Range("B54").Value, ActiveSheet.Range("B45").Value), Cells(ActiveSheet.Range("B54").Value, ActiveSheet.Range("B46").Value)).Select
Selection.Calculate
Selection.Copy
ActiveCell.Offset(-13, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
Range(Cells(ActiveSheet.Range("A44").Value, ActiveSheet.Range("B45").Value), Cells(ActiveSheet.Range("A56").Value, ActiveSheet.Range("B46").Value)).Select
Selection.Calculate
Range("A44:G55").Select
 Selection.Calculate
If Range("B50") > 0 Then
i = i + 1
Range("E59").Value = i + 1
If Range("E59") = 10000000 Then
GoTo FIN
End If
 Range(Cells(ActiveSheet.Range("A55").Value, ActiveSheet.Range("B49").Value), Cells(ActiveSheet.Range("A55").Value, ActiveSheet.Range("C49").Value)).Select
 Selection.Copy
 ActiveCell.Offset(-16, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
Range(ActiveCell.Offset(6, 0), Cells(ActiveSheet.Range("A50").Value, ActiveSheet.Range("C49").Value)).Select
Selection.Calculate
Range(ActiveCell.Offset(-4, 0), Cells(ActiveSheet.Range("A46").Value, ActiveSheet.Range("C49").Value)).Select
Selection.Calculate
 If Range("JI59").Value = "FIN" Then
GoTo FIN
End If
        If Range("B44") > Range("B59") Then
         Range("A57:GW59").Select
         Selection.Calculate
         Range("A59:GCB59").Copy
        Windows("Libro1"). _
        Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
    ActiveCell.Offset(1, 0).Activate
Application.ScreenUpdating = True
Application.ActiveWorkbook.Save
Application.ScreenUpdating = False
 Workbooks("REFORMA 8 (Salteado)").Worksheets("Hoja26optimiz").Activate
 End If
 Range("A44:G55").Select
 Selection.Calculate
 GoTo Repetir
 Else: GoTo Repetir
 End If
ActiveCell.Offset(-16, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
 Range(ActiveCell, ActiveCell.Offset(11, Range("C49").Value - Range("B49").Value)).Select
 Selection.Calculate
Repetir2:
 Range("A44:G56").Select
 Selection.Calculate
 If Range("C49") > 0 Then
 GoTo Repetir
 End If
 If Range("B47") = 0 Then
 Range(Cells(ActiveSheet.Range("A44").Value, ActiveSheet.Range("B45").Value), Cells(ActiveSheet.Range("A56").Value, ActiveSheet.Range("B46").Value)).Select
  Selection.Calculate
  Else
  Range(Cells(ActiveSheet.Range("A44").Value, ActiveSheet.Range("B47").Value), Cells(ActiveSheet.Range("A56").Value, ActiveSheet.Range("B48").Value)).Select
  Selection.Calculate
  End If
  GoTo Repetir2
FIN:
End Sub

1 Respuesta

Respuesta
1
Si la macro te funciona sin grabar es que es problema es de memoria insuficiente y no por lo compleja, sino por la cantidad de datos que mueves o la lentitud de las ubicaciones (si están en red por ejemplo), incluso por memoria virtual del pc . En mi caso, yo tuve un problema parecido al ejecutar macros de excel 2003 (xls) en excel 2007. La mejor solución fue pasar todas las macros a xlsm. ¿Usas xls o xlsm?
Si esto ya lo tienes así, haz por favor una prueba... ejecuta la macro paso a paso y omite (desactiva) la linea Application. ScreenUpdating = True antes de grabar con Application. ActiveWorkbook. Sabe
Esta es sólo una prueba, porque yo no puedo ejecutar tu macro en las mismas condiciones que tienes.
Hola, hice lo que me dijiste pasé el archivo a xlsm y corregí lo demás, cuando ejecuto la macro antes de guardar me aparece un cartel que dice que no es compatible con versiones anteriores y los datos que superen las 256 columnas van a aparecer como "REF", luego la macro continúa en el libro donde hace los cálculos y el primer cálculo que hace le pone a todas las celdas #N/A, de esa manera se forma un bucle donde recalcula siempre las mismas celdas con error y no sale de ahí (descarto errores en la hoja de cálculo porque lo verifiqué paso a paso de forma manual). Lo que más me llama la atención es que si la macro no guarda funciona bien hasta que pasa media hora exacta y se forma este bucle de nuevo, me da la sensación de que la macro guarda a la media hora sin que tenga la orden y coincide con los 30 minutos del autoguardado que está desconectado. En el caso que no se pueda solucionar te pregunto si hay alguna función para colocar en la macro y anular el guardado automático (ya que en opciones de excel tengo desconectada esa función pero la macro la ejecuta por su cuenta), para que por lo menos la macro siga hasta que termine sin guardar . Saludos
Me di cuenta que tienes este goto al final que no te dejará terminar el programa. Tienes que dejarla dentro de una condición.
GoTo Repetir2
FIN:
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Macro para buscar valor "#N/A" en una columna

Me podrían ayudar con esta macro, Tengo una macro que me genera un reporte de inventario en un archivo excel, el archivo tiene códigos y formulas para la descripción de cada código, Ejemplo. Código descripción 001 zanahorias. 002 cebollas. 003...
1 respuesta

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Macro Excel filtrar copiar y pegar

Me gustaría pudiera facilitarme una macro que filtre en la hoja1 celda C3, el texto de la celda F6 de la hoja 2, que copie las filas que contengan ese valor y las pegue en la hoja 2 desde la fila 12.
1 respuesta

Actualizar un registro de una tabla con macros.

Soy muy asiduo a esta web, es muy interesante y útil, me incribi para preguntar por primera vez y ojala la respuesta sea pronta. Mi problema es.. Tengo una hoja (INGRESO) la cual ingresa productos a una tabla que esta en otra hoja (INV-08) y el...
1 respuesta

Ejecutar macro según el valor de la celda

Que tal necesito de su valiosa ayuda tengo que ejecutar una macro en automático esto depende del valor de la celda. Estoy utilizando la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$S$1" And...
1 respuesta

Borrar Fórmula sin borrar datos

Quiero que una fórmula de excel se ejecute y cuando se halle el resultado se borre la fórmula y me quede unicamente el resultado en la celda, de tal forma que la próxima vez que abra el libro no se cambie el dato anterior.
1 respuesta