error catastrofico

5 envíos / 0 nuevos
Último envío
stifftico97
Imagen de stifftico97
Offline
última acción: Hace 1 año 5 meses
alta: 30/11/2016 - 15:40
Puntos: 160
error catastrofico

tengo este libro AL pasarlo a otra pc me pone error catastrofico y falta memoria pero  mi pc tiene un i5 a 2.60 ghz con dos deram no comprendo que pasa

AdjuntoTamaño
Image icon dudas.png188.99 KB

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 9 horas 25 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 10035
Estás utilizando en tu macro

Estás utilizando en tu macro algún add-in que tenías instalado en tu ordenador original y no lo tienes en este?

stifftico97
Imagen de stifftico97
Offline
última acción: Hace 1 año 5 meses
alta: 30/11/2016 - 15:40
Puntos: 160
hola

no  en este momento pienso que es que el programa no me lo corre la pc con dos de ram  porque si no hace una tercera con 4 y otra con 8 ram vale la pena descatacar que todas tienen win 8 y mismo office pero  no me explico como ese consume tanto  estoy depurando el codigo usando estos codigos

Public Sub iniciamacro()
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
 Application.EnableEvents = False
 ActiveSheet.DisplayPageBreaks = False
 End Sub

Public Sub borracache()
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub

al inicio de cada macro pero no soy muy diestro y tengo un mega ciclo if que no  se como depurar creeo que ese ciclo es el problem


If num_aparta = "1B" Then
Worksheets("no_tocar").Activate: Range("G" & Cells.Rows.Count).End(xlUp).Offset(1).Select: ActiveCell = mes_pagar_servicios.Value: ActiveCell.Offset(0, 1) = cuanto_paga_serv.Value * (1): ActiveCell.Offset(0, 2) = pago_serv.Value * (1): ActiveCell.Offset(0, 4) = (monto_alquiler) * (1)
Range("k5") = mes_pagar_servicios: Range(" k7") = Cmb_mes_a_pagar
End If

If num_aparta = "1C" Then
Worksheets("no_tocar").Activate: Range("M" & Cells.Rows.Count).End(xlUp).Offset(1).Select: ActiveCell = mes_pagar_servicios.Value: ActiveCell.Offset(0, 1) = cuanto_paga_serv.Value * (1): ActiveCell.Offset(0, 2) = pago_serv.Value * (1): ActiveCell.Offset(0, 4) = (monto_alquiler) * (1)
Range("q5") = mes_pagar_servicios: Range(" q7") = Cmb_mes_a_pagar
End If

If num_aparta = "1D" Then
Worksheets("no_tocar").Activate: Range("S" & Cells.Rows.Count).End(xlUp).Offset(1).Select: ActiveCell = mes_pagar_servicios.Value: ActiveCell.Offset(0, 1) = cuanto_paga_serv.Value * (1): ActiveCell.Offset(0, 2) = pago_serv.Value * (1): ActiveCell.Offset(0, 4) = (monto_alquiler) * (1)
Range(" w5") = mes_pagar_servicios: Range("w7") = Cmb_mes_a_pagar
End If

esto se repite 32 veces  

 

 

Cron
Imagen de Cron
Offline
última acción: Hace 9 horas 25 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 10035
No creo que sea ese ciclo. Ya

No creo que sea ese ciclo. Ya te he respondido en otro lado cómo hacerlo más legible, pero ese no suele ser el problema. En condiciones normales, el ordenador no se quedará sin memoria nunca, salvo que programes un bucle infinito. Lo que tú tienes no es un bucle, por lo que antes o después saldrá de ello. Además está correctamente construido.

Te decía lo anterior porque Excel a veces da ese error cuando no encuentra un add-in que cree que debería estar ahí. La verdad es que lo de "memoria insuficiente" despista, pero quién sabe si los de Microsoft no lo han puesto ahí precisamente para despistar ;)

Comprueba si en el editor VBA, a la izquierda (te dejo imagen del mío) te aparecen cosas diferentes en ambos ordenadores.

Un saludo

AdjuntoTamaño
Image icon captura.jpg21.7 KB
stifftico97
Imagen de stifftico97
Offline
última acción: Hace 1 año 5 meses
alta: 30/11/2016 - 15:40
Puntos: 160
son iguales

tengo hasta la misma vercion