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

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

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

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.

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.

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.

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

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.

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

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.

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

ejemplo-nvr.zip

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

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

ejemplo-nvr.rar

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

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.

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

Tema Solucionado, muchas gracias por todo.