problemilla con checkbox

[niconico]

Con este código

Código:

Dim Direccion As String
Dim valor As Integer
Dim Cambiar As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

valor = Range("A1").Value
If valor = 0 And CheckBox2 = True Then
ActiveSheet.Shapes("Imagen 52").Visible = False
ActiveSheet.Shapes("Imagen 51").Visible = False
ActiveSheet.Shapes("Imagen 50").Visible = False

ElseIf CheckBox2 = True And valor >= 1 And valor < 100 Then
ActiveSheet.Shapes("Imagen 52").Visible = True
ActiveSheet.Shapes("Imagen 51").Visible = False
ActiveSheet.Shapes("Imagen 50").Visible = False
ElseIf CheckBox2 = True And valor >= 100 And valor < 200 Then
ActiveSheet.Shapes("Imagen 52").Visible = False
ActiveSheet.Shapes("Imagen 51").Visible = True
ActiveSheet.Shapes("Imagen 50").Visible = False
ElseIf CheckBox2 = True And valor > 200 Then
ActiveSheet.Shapes("Imagen 52").Visible = False
ActiveSheet.Shapes("Imagen 51").Visible = False
ActiveSheet.Shapes("Imagen 50").Visible = True
Else
ActiveSheet.Shapes("Imagen 52").Visible = False
ActiveSheet.Shapes("Imagen 51").Visible = False
ActiveSheet.Shapes("Imagen 50").Visible = False
End If


End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Direccion = ActiveCell.Address
Cambiar = True
End Sub

juego con unas imágenes el problema está en que cuando el checkbox2 esta false no desaparecen automáticamente las imágenes sino que tengo que situarme en A1 y modificar el contenido de la celda, y lo mismo al revés si activo el checkbox no me aparece autómáticamente la imágen correspondiente sino que tengo que ir a A1 y modificarla.Muchas gracias

[potypoty]

Claro, porque la función Private Sub Worksheet_Change(ByVal Target As Range) sólo se ejecuta cuando se hace un cambio en la hoja de excel, en una de las celdas.
Porque no la llamas de otra forma y se la asignas al checkbox. Es decir, tu le llamas Sub prueba () y con el botón derecho sobre el checkbox, le das a asignar macro y seleccionas prueba. De esta forma cuando pinches en el checkbox se ejecutará la macro. Además según tu aplicación seguramente te sobre totalmente la función Private Sub Worksheet_SelectionChange(ByVal Target As Range) por lo que creo entender de tu código.

[Pablus00]

Hola Potypoty, como andas capo, siempre que entro a ver un post encuentro una respuesta acertada tuya que soluciono el problema, segui asi master, sos de gran ayuda... es raro que no te hayan colocado como moderador o por lo menos colaborador, ya que lo haces y muy bien, saludos colega!

[potypoty]

Iniciado por Pablus00

Hola Potypoty, como andas capo, siempre que entro a ver un post encuentro una respuesta acertada tuya que soluciono el problema, segui asi master, sos de gran ayuda... es raro que no te hayan colocado como moderador o por lo menos colaborador, ya que lo haces y muy bien, saludos colega!

Agradezco mucho los alagos que me brindas , pero sólo utilizo mi conocimiento de office para ayudar al que pueda. Muchas veces mis soluciones, aunque puedan ser correctas y funcionen, no son las mejores soluciones. Todavía soy bastante novatillo en este mundillo.
En cuanto a lo de colaborador o moderador, dudo que me lo ofrezcan ya que todavía no llevo mucho tiempo en este foro y no he ayudado tanto como para considerarme uno de los expertos.
Un cordial saludo para ti, Pablus00.

[niconico]

muchas gracias