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:
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!!!
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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!!!