............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Calculation Manual Automatica "misterioso cambio"

Ver el tema anterior Ver el tema siguiente Ir abajo

Calculation Manual Automatica "misterioso cambio"

Mensaje por GalileoGali el Sáb Nov 22, 2008 11:56 am

El viernes en el banco, despues de un rato detectaron quienes estaban balanceando los movimientos diarios con una Planilla de resumen en Excel que la Suma, no era la suma, ES DECIR LA FORMULA NO Se ACTUALIZABA. Como de costumbre, me llamaron.
El tema ya practicamente lo tenian digerido ellos; así que apunté directamente a Herramientas >> Opciones >> Calcular y como era logico me encontre con la CALCULATION en MANUAL, la cambié a AUTOMATICO, volvimos a la Hoja y ahora la SUMA era la SUMA...
Bueno hasta ahi todo muy explicable. Desde ya mis recomendaciones a que nadie tocara esa Opcion: la respuesta a CORO, fue la siguiente: "Ni siquiera sabian que existia el Menu Herramientas, para que vamos a cambiar algo que ni sabemos que existe".
El archivo en cuestion no es uno sino unos treinta en la misma carpeta que toman y graban con NOMBRE+FECHA diariamente, es asi que hoy sabado me puse a escribir estas cortas lineas de codigo con la intencion de hacerlo correr y poner en calculation Automatica todos los xls.
Pero aqui no termina todo......

Código:
Option Explicit

Sub Opciones()
Dim strFile As String
Dim wbk As Workbook

strFile = Dir(ThisWorkbook.Path & "\*.xls", Attributes:=vbArchive)
If strFile = vbNullString Then Exit Sub
Do
If ThisWorkbook.Name <> strFile Then
Set wbk = Workbooks.Open(strFile)
Application.Calculation = xlCalculationAutomatic
wbk.Close 1
End If
strFile = Dir
Loop Until strFile = vbNullString
End Sub


Fue en esta Linea que me di cuenta de algo fundamental, aunque resabido:
Set wbk = Workbooks.Open(strFile)
Application.Calculation = xlCalculationAutomatic
que Calculation es un Propiedad de Application y no de Workbook

Entonces recordé que en esa misma terminal, la del problema, estaba Abierto un Libro de Excel, creado por Mi para elaborar unos informes mensuales en donde por razones propias del archivo, casi todo manejado con Macros de Evento, cambiaba la calculation a Manual, efecto este que afecto a Excel todo y a cuanto libro abierto hubiera....
Asi que éste era el culpable (o mas propiamente, yo que lo construi)


Ahora se me plantea un problema que ya me esta sonando en los oidos la necesidad de asociar la Desactivacion del Archivo Culpable para pasar a tomar como activo otro xls, la invitacion a guardar los cambios y cerrarlo, ya que otroas alternativas, podrian ser mas inestables......

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Calculation Manual Automatica "misterioso cambio"

Mensaje por jairga el Dom Nov 23, 2008 7:17 pm

Hola profe, ya realizastes todas las pruebas y estas seguro que tu archivo es la causa del problema?. Ya que en la empresa tambien me ha han llamado varias veces a solucionar el mismo problema, y creo que aqui de excel saben menos que tus colegas y al parecer sin culpa alguna y sin persivirlo con una combinacion de teclas desactivan la calculacion de automatica la pasa a manual, pero si sabes que tu archivo es el problema tambien prefiero tu solucion de si tu archivo esta activo y se desea abrir otro en esa terminal obligar a cerrar el tuyo, para evitar cualquier problema.

saludos
jariga

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: Calculation Manual Automatica "misterioso cambio"

Mensaje por GalileoGali el Dom Nov 23, 2008 8:44 pm

La solucion es sencilla con un codigo normal de cierre asociado al Evento Deactivate en el Modulo Thisworkbook, que obligue a cerrar el archivo o lo cierre de prepo....
Ahora el lunes voy a probar los archivos el supuesto de la causa y el del efecto...
Pero estoy practicamente seguro de que se trata de eso.....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Calculation Manual Automatica "misterioso cambio"

Mensaje por GalileoGali el Lun Nov 24, 2008 5:38 pm

Pensando un poco mas se me ocurrio algo intermedio,
poner en el Modulo Thisworkbook este codigo_
Código:
Option Explicit

Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub

Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic

End Sub

Es conveniente aclarar que no se logra evitar que al desactivar el archivo BASE, cuando se vuelve la calculation a Automatic, se reclaculen todoas las formulas que estaban adormecidas....En mi caso esto significa simplemente una demora de milisegundos, pero nada mas que eso.....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Calculation Manual Automatica "misterioso cambio"

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.