Error en macro

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:

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

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

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

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

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)

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.

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

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.