como activar un procedimiento desde otra hoja?

niconico · #1 (**permalink**) 26/04/2006, 01:29

El problema que tengo es que en la hoja1 tengo un checkbox y en ese checkbox tengo un código diciendo que si haces click en el se active automáticamente otro checkbox que hay en la hoja2, hasta ahí todo bien, la pregunta es como activo un procedimiento desde una hoja diferente a aquella en la que ésta dicho procedimiento, es decir si activo el checkbox de la hoja1 quiero que se active el procedimiento de la hoja2 (Private Sub CheckBox2_Click( ))vinculado al checkbox de dicha hoja.

3pies · #2 (**permalink**) 26/04/2006, 01:54

De esta forma debería funcionar, aunque no lo he probado. Deberías quitarle la palabra Private al procedimiento CheckBox2_Click, de la hoja2:

Código:

Call Hoja2.CheckBox2_Click

o bien así:

Código:

Hoja2.CheckBox2_Click

Saludos

niconico · #3 (**permalink**) 26/04/2006, 02:39

muchas gracias por la respuesta pero no se porque me dice que no se encontró el método o el dato miembro, y el procedimiento de la hoja2 es CheckBox2_Click.
También lo he probado en un documento nuevo sin código anterior y me da el mismo error.

3pies · #4 (**permalink**) 26/04/2006, 02:59

Eso es porque en la Hoja2 no tienes definido el sub Checkbox2_click()

Ojo, porque "Hoja2", es el nombre interno de la hoja, no el que se ve en la pestaña, que puede ser distinto. Desde el editor de proyectos de Visual Basic, arriba a la izqda. verás dentro de la carpeta "Microsoft Excel Objetos", las hojas con su nombre (a este me refiero), y en paréntesis, el nombre que tienen las pestañas y que es el que ves cuando trabajas con el fichero normalmente.

Quizás el error venga por ahí...

********EDITADO**********

Mira este ejemplo.

*************************

niconico · #5 (**permalink**) 26/04/2006, 03:21

No sé le estoy dando vueltas y no sé poque me da ese error, te paso los dos códigos,
Hoja1

Código:

Private Sub checkbox1_click()
If CheckBox1 = True Then
Hoja2.checkbox1_click

End Sub

hoja2

Código:

Private Sub checkbox1_click()

If CheckBox1 = True Then
ActiveSheet.Shapes("Imagen 2").Visible = True

ElseIf CheckBox1 = False Then
ActiveSheet.Shapes("Imagen 2").Visible = False

End If
End Sub

No sé, no me parece díficil, debo ser muy torpe

3pies · #6 (**permalink**) 26/04/2006, 03:28

Debes quitarle la palabra "private". Ya te comenté eso en mi primera respuesta (si es que no os leeis los posts, jajajajaja).

Mírate el ejemplo que colgué en el anterior post.

niconico · #7 (**permalink**) 26/04/2006, 03:58

Jejeeje te había entendido mal, muchas gracias