Filtro alternar con botones opccion

Como puedo hacer para que me sirva esta macro
con botones de opccion en lugar de verificacion
Sub ZONA1()
If UCase(Range("CN3")) = "VERDADERO" And UCase(Range("CV3")) = "FALSO" Then LOC1ON Else LOC1OFF
End Sub
Sub LOC1OFF()
    ActiveSheet.Shapes("Group Box 44").Visible = False  ' cuadro1
    ActiveSheet.Shapes("Group Box 88").Visible = False  ' cuadro2
    ActiveSheet.Shapes("Group Box 111").Visible = False  ' cuadro3
    ActiveSheet.Shapes("Drop Down 46").Visible = False ' desplegable1
End Sub
Sub LOc1ON()
    ActiveSheet.Shapes("Group Box 44").Visible = True  ' cuadro1
    ActiveSheet.Shapes("Group Box 88").Visible = True  ' cuadro2
    ActiveSheet.Shapes("Group Box 111").Visible = True  ' cuadro3
    ActiveSheet.Shapes("Drop Down 46").Visible = True ' desplegable1
End Sub
gracias-
Respuesta
1
Ahora no puedo, pero mañana te posteo la solución
Dame alguna hora para buscarla y pegartela.
Este es el código que te envie dentro del fichero:
Sub Botóndeopción2_AlHacerClic()
    If UCase(Range("j24")) = "VERDADERO" Then
    If Range("b20") = 1 Then
        ActiveSheet.Shapes("Drop Down 7").Visible = True
        ActiveSheet.Shapes("Drop Down 8").Visible = True
        ActiveSheet.Shapes("Drop Down 4").Visible = False
        ActiveSheet.Shapes("Drop Down 6").Visible = False
    End If
    Else
        ActiveSheet.Shapes("Drop Down 7").Visible = False
        ActiveSheet.Shapes("Drop Down 8").Visible = False
        ActiveSheet.Shapes("Drop Down 4").Visible = False
        ActiveSheet.Shapes("Drop Down 6").Visible = False
    End If
End Sub
Sub Botóndeopción3_AlHacerClic()
    If UCase(Range("j24")) = "VERDADERO" Then
    If Range("b20") = 2 Then
        ActiveSheet.Shapes("Drop Down 7").Visible = False
        ActiveSheet.Shapes("Drop Down 8").Visible = False
        ActiveSheet.Shapes("Drop Down 6").Visible = True
        ActiveSheet.Shapes("Drop Down 4").Visible = True
    End If
    Else
        ActiveSheet.Shapes("Drop Down 7").Visible = False
        ActiveSheet.Shapes("Drop Down 8").Visible = False
        ActiveSheet.Shapes("Drop Down 4").Visible = False
        ActiveSheet.Shapes("Drop Down 6").Visible = False
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$24" Then
    If Range("j24") = True Then
        Select Case Range("b20")
            Case 1
                ActiveSheet.Shapes("Drop Down 7").Visible = True
                ActiveSheet.Shapes("Drop Down 8").Visible = True
                ActiveSheet.Shapes("Drop Down 4").Visible = False
                ActiveSheet.Shapes("Drop Down 6").Visible = False
            Case 2
                ActiveSheet.Shapes("Drop Down 7").Visible = False
                ActiveSheet.Shapes("Drop Down 8").Visible = False
                ActiveSheet.Shapes("Drop Down 6").Visible = True
                ActiveSheet.Shapes("Drop Down 4").Visible = True
        End Select
    Else
        ActiveSheet.Shapes("Drop Down 7").Visible = False
        ActiveSheet.Shapes("Drop Down 8").Visible = False
        ActiveSheet.Shapes("Drop Down 4").Visible = False
        ActiveSheet.Shapes("Drop Down 6").Visible = False
    End If
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas