Macro en complemento dispone para cualquier libro.

[kanll]

Muy Buenas, bueno por molestarles una vez mas, ya que he tratado de realizar un Complemento(.xlam) que me permita ejecutar una macro en cualquier libro.

En ocasiones anteriores dos personas me ayudaron con la duda que tenia(Cambiar color de celda - modificado). La cual consistía en cambiar de color una celda que modificara. Pero se lo podía realizar únicamente colocando el código en una hoja en concreto:

Private Sub Worksheet_Change(ByVal Target As Range)

Target.Interior.ColorIndex = 6

End Sub

Pero deseo utilizar esta macro desde el complemento. En el he creado un Checkbox donde debería permitirme activar o desactivar dicha macro. Pero no lo he logrado, y es ahí donde solicitaría su valiosa colaboración. Un saludo a la distancia, gracias.

V.2.rar

[Armando Montes]

Hola, tal vez baste colocar el codigo en el libro personal:

El libro PERSONAL.XLS (.xlsb en Excel 2007) : Hojas de cálculo Excel

[kanll]

Gracias por el dato, pero seguí tu consejo y lo que hace es ejecutar la macro en el libro personal mas no en otros libros.

Básicamente lo que deseo es ejecutar desde el complemento ya que en mi trabajo las maquinas son (Frezzer) por lo que todo cambio que realice es inútil. Entonces ahí entra el complemento que lo tendría disponible para cualquier libro.

[Armando Montes]

Verifica la ubicacion del libro PERSONAL y funcionara en cualquier libro.

Haciendolo bien el libro personal no se vera pero sus codigos estaran disponibles para todos los libros de esa maquina.

[kanll]

Disculpen por molestarles pero para mayor facilidad y comodidad desearía realizarlo desde el complemento, ya que este archivo lo he repartido entre tres maquinas las cuales utilizan un complemento c/u, Entonces ahí esta el problema que de favor solicitaría me ayuden a resolver.

[Armando Montes]

No habias mencionado que lo usarias en varias maquinas.

Instruciones de la yuda de excel:

XL97: Cómo crear un archivo de complemento en Microsoft Excel 97

[kanll]

Gracias de esta forma no sabia crear un complemento, siempre se aprende mas. Pero los creo desde Custom ui Office, ahora lo que necesito poner es disponible desde el checkbox la macro a ejecutar, eh intentado

Private Sub Worksheet_Change(ByVal Target As Range)

hoja=activesheet.select

Target.Interior.ColorIndex = 6

End Sub

pero no lo consigo.

Talvez me falta algo para conseguir que si esta activado el checkbox se ponga disponible la macro y al desactivar el ckeckbox se detenga la macro.

Gracias.

[Armando Montes]

El evento Worksheet_Change se activa al hacer un cambio en la hoja, tal vez se te facilite cambiarlo por un Sub.

[kanll]

Gracias estimado Armando, lo intente asi,

Sub Worksheet_Change(ByVal Target As Range)

Target.Interior.ColorIndex = 6

End Sub

Pero no me funciona, básicamente lo que solicito de ayuda es utilizar esta linea:

Target.Interior.ColorIndex = 6

en cualquier libro que desee, pero solo se puede desde un private sub.

Tal vez existe otro modo para realizarlo.

[neverdelimon1]

Hola, debe usar la instrucción WithEvents en un modulo de tipo clase, te dejo un ejemplo, saludos

ejemplo-nvr.zip

[kanll]

Perfecto, pero me nace una cuestión, este código se puede adaptar a mas funcionalidades.

[kanll]

Ya que trate de resaltar la celda activa, pero no se genera correctamente. Saludos.

ejemplo-nvr.rar

[neverdelimon1]

Hola

estas usando el evento SheetChange

y por tu código intuyo que el evento que buscas es SheetSelectionChange

realiza el cambio y con eso debe de funcionarte, saludos

[kanll]

Hola neverdelimon1

Realice el cambio y si me corrige, pero al desactivar el checkbox (resalta celda activa) no se desactiva sigue ejecutándose, entonces cual es mi error.

[kanll]

Muy Buenas, he tratado de buscar una solución, para el problema de la celda activa que no se desactiva el checkbox, la verdad no puedo encontrar como resolverlo, alguien que me pueda colaborar con este error. Gracias.

aejemplo-nvr.rar

[kanll]

Tema Solucionado, muchas gracias por todo.