Macro error: Method 'ClearContents' of object 'Range' failed

[josevaldesv]

Feliz año compañeros!

Para "compactar" mi archivo, tengo una macro de autoclose.
Dentro de esta macro tengo:

Sub Auto_close()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.DisplayStatusBar = True
Application.StatusBar = "One moment please. Compressing file. Please save changes to reduce size."
Sheets("2nd MD Status").Select
Sheet2.EnableAutoFilter = False
Sheet2.Protect Contents:=False, UserInterfaceOnly:=False
Range("B5:F1003").Select
Selection.ClearContents
Range("Q5:BO1003").Select '<=== AQUÍ TENGO EL ERROR
'AL PONER DEBUG!!!!!
Selection.ClearContents
Range("H4").Select
Sheets("1st Paste info").Select
Range("A3").Select
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

Como verán, de vez en cuando me sale el error
run-time error '-2147417848 (80010108)':
Method 'ClearContents' of object 'Range' failed

y al poner debug, encuentro el problema con
Range("Q5:BO1003").Select
Selection.ClearContents

De momento lo solucioné FRACCIONANDO el rango Q5:BO1003 en varias partes, como Q5:Z1003, luego AA5:AJ1003, etc, hasta llegar a BO1003.

A alguien se le ocurre una manera diferente y/o mejor de evitar el problema?
Saludos,

 

[kevinnichols78]

Re: Macro error: Method 'ClearContents' of object 'Range' fa

no puedo ganar el mismo error.

tienes ahora?

Kevin

 

[josevaldesv]

Re: Macro error: Method 'ClearContents' of object 'Range' fa

hey kevin


tiempo sin entrar por aquí... mucho viaje....

ya encontré la razón... es la memoria virtual que tiene la máquina (ligada directamente a la memoria RAM y la velocidad del procesador).

Cuando está muy "cargada" la máquina, se satura y se traba... dando ese error.... cuando está recién prendida y casi no tengo nada abierto, entonces la macro corre sin problemas.

cheers!

 

[kevinnichols78]

Re: Macro error: Method 'ClearContents' of object 'Range' fa

That is wonderful...since I hardly speak Spanish and was just trying to help

Kevin

 

[Greg Truby]

José,

Parece que Usted ya sabe la raíz del problema y ya tiene como evitarlo entonces la siguiente es solamente por curiosidad...

¿Siempre traba la máquina si uno lo hace sin .Select?

Range("B5:F1003").ClearContents 
Range("Q5:BO1003").ClearContents

Saludos,

 

[josevaldesv]

I shall give it a try...
it does seem to work to me