Visual Basic - habilitar/deshabilitar boton de un formulario desde otro formulario

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Rafael

habilitar/deshabilitar boton de un formulario desde otro formulario

Publicado por Rafael (7 intervenciones) el 10/09/2017 21:51:14
a ver quien me puede ayudar, tengo este código:

1
2
3
4
5
6
Private Sub Checkbox1_Click()
 
    If CheckBox1.Value = True Then Sheets("Hoja1").CommandButton1.Visible =1
    If CheckBox1.Value = False Then Sheets("Hoja1").CommandButton1.Visible =0
   End If
End Sub

El cual consiste en que la hoja1 tengo un botón (CommandButton1) y en la hoja2 tengo un CheckBox (CheckBox1) al estar habilitado el CheckBox se muestra el botón en la hoja1, y al estar des-habilitado el CheckBox esconde el botón de la hoja1 (no se ve). el código corre a la perfección.

pero lo quiero aplicar en vez de dos hojas de excel en dos formularios y me marca error en Sheets("Hoja1").CommandButton1.Visible =1. me imagino que el "Sheets" no va allí.

Alguien sabe como es el código para aplicarlo en dos formularios?.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

habilitar/deshabilitar boton de un formulario desde otro formulario

Publicado por Antoni Masana (558 intervenciones) el 11/09/2017 07:27:04
Debes cambiar Sheets("Hoja1") por el nombre del formulario. Por ejemplo:

1
2
3
4
5
Private Sub Checkbox1_Click()
    If CheckBox1.Value  = True Then UserForm2.CommandButton1.Visible =1
    If CheckBox1.Value = False Then UserForm2.CommandButton1.Visible =0
    End If
End Sub

Un comentario: El End If sobra y se puede simplificar:

1
2
3
Private Sub Checkbox1_Click()
    UserForm2.CommandButton1.Visible =CheckBox1.Value
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar