Jump to content
Sign in to follow this  
CamiAlar

¿COMO MOSTRAR/OCULTAR UN CommandButton CON CONDICION IF Y OR?

Recommended Posts

HOLA! 
en mi hoja "INICIO" tengo la celda B8 con validacion de datos cuyas opciones son tres: celda en blanco, "SI" Y "NO". Quisiera poner un boton que apareciera una vez seleccionada la opcion "SI" o "NO" y que me dirija a la hoja "CALCULOS". SOLO TENGO LO SIGUIENTE: 
Private Sub CommandButton1_Click()
Sheets("CALCULOS").Visible = True
Sheets("CALCULOS").Select Range("c2").Select
Sheets("INICIO").Visible = False
End Sub

EL RESTO NO SÉ COMO HACERLO. ¿¿ME PUEDE AYUDAR, POR FAVOR??

(( Cabe mencionar, que en la misma hoja INICIO puse otro boton (IRALINEALIQUIDA) con un macro que me dieron y me resultó perfecto para lo que necesitaba
que es el siguiente:

Private Sub iralinealiquida_Click()
Sheets("LINEA LIQUIDA").Visible = True
Sheets("LINEA LIQUIDA").Select Range("c2").Select
Sheets("INICIO").Visible = False

End Sub
Private Sub Worksheet_Activate1()
If Range("B10") = "SI" Then
iralinealiquida.Visible = True
Else
iralinealiquida.Visible = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B10")) Is Nothing Then
If Range("B10") = "SI" Then
iralinealiquida.Visible = True
Else
iralinealiquida.Visible = False
End If
End If

End Sub ))

QUEDO ATENTA A SUS COMENTARIOS
GRACIAS!!!

Share this post


Link to post
Share on other sites

seria mejor si subes un archivo, pero solo como guía, tengo entendido que haces lo mismo con los botones lo que has hecho con las hojas, míralo:

if  Sheets("INICIO").Range("C8") = "Si" then
CommandButton1.Visible = true
else 
CommandButton1.Visible = false
End if

 

Share this post


Link to post
Share on other sites

si vas a programar la instruccion en el modulo VBA de la hoja inicio la instruccion es:

if range("c8")="SI" then commandbutton1.visible=true

if range("c8")="NO" then commandbutton1.visible=false

si la programacion es en el formulario la instruccion es:

if ucase(worksheets("inicio").range("c8"))="SI" then commandbutton1.visible=true

if ucase(worksheets("inicio").range("c8"))="NO" then commandbutton1.visible=true

Si el boton esta incrustado en la hoja la instruccion y vas a programar en un modulo diferente al modulo VBA de la hoja inicio entonces la instruccion es:

if ucase(worksheets("inicio").range("c8"))="SI" then

                  worksheets("inicio").commandbutton1.visible=true

else

if ucase(worksheets("inicio").range("c8"))="SI" then

                  worksheets("inicio").commandbutton1.visible=false

endif

Share this post


Link to post
Share on other sites

HOLA!! GRACIAS. CREO QUE NO ME FUNCIONA :/

ADJUNTO EL ARCHIVO, TENGO INSERTADO EL "CommandButton" QUE QUISIERA QUE APARECIERA SOLO SI LA CELDA "C8" DE LA PAGINA "INICIO" ES "SI" Ó "NO" DE LO CONTRARIO, QUE PERMANEZCA OCULTO. EL BOTON AL APRETAR DEBE LLEVARME A LA PAGINA "CALCULOS".

EXCEL PRUEBA.xlsx

Share this post


Link to post
Share on other sites

me aparece este mensaje al tratar de descargar tu archivo

Lo siento, hay un problema

La página a la que intentas acceder no está disponible para tu cuenta.

Código de error: 2C171/1

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png