Error en macro

[egutie6]

Buenas, tengo un error muy raro en una macro, solo se produce en una casilla concreta al abrir el fichero…si voy y ejecuto la orden sin tocar nada, me funciona…
Es un poco dificl de explicar asi que pongo el video:

videomacro.webm (video)

Como ven la macro Contarcolor, funciona bien, en todos los casos, menos en un casilla, ya he probado a borrar y poner las instrucciones de nuevo. y nada.

por si sirve de ayuda cambie la posicion de macro contarcolor del sitio general ( mis macros → Standard -< Module 1) al nombre del archivo → standard ->module 1. Pero en el resto de sitios como veis funciona…

Cualquier ayuda se agradeceria

Gracias

[mauricio]

Si puedes anexa la macro a tu mensaje, para revisarla. Por mi parte tengo bloqueado todo lo que sea Google en mis sistemas.

[egutie6]

Te lo he puesto en vimeo,si no dime que plataforma lo quieres…

El problema o lo raro es que funciona la macro, en otras casillas y en la misma como se ve en el video pero tienes que seleccioonarla, ver los resultados y aceptar… explicar es raro, se ve claramente en el video…

Por si te srive de algo el codigo: Public Function CONTARCOLOR( RangoSuma As String,CeldaColor As String) As Double - Pastebin.com

Graicas

[mauricio]

Después de abrir el documento, presionas CTRL+SHIFT+F9, confirmame si obtienes el valor correcto.

[egutie6]

Si sale bien, pero al volver a abrir salen los mensajes de error esos. No se el motivo y solo pasa en una casilla en el resto no, y utilizo lo mismo… Alguna idea ? Gracias de antemano. Es raro porque antes no salian cuando tenia la macro guardada en el otro sitio ( mis macros → Standard -< Module 1)

[mauricio]

El problema está en la línea:

oRango = ThisComponent.CurrentController.ActiveSheet

Al abrir el documento, “al parecer”, primero se calculan las formulas, “antes” de tener la hoja activa.

[egutie6]

Posible solucion ? Por qué no pasa en el resto de celdas ? Solo en esa que parece la primera con macros ? Ademas como comento antes no salia. Gracias

[mauricio]

Que yo recuerde siempre ha funcionado así, es decir no es posible acceder al controlador mientras no se cargue completamente. He puesto la formula en Mis macros y no funciona tampoco, por la misma razón.

Por otra parte, toma en cuenta que pasar las referencias como Texto, no permite que se actualicen las referencias de forma automática.