Private Sub OKButton_Click()
If ToggleButton1.Caption = "Show All Variances" Then
If OptionODO Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("ODOCriteria")
ElseIf OptionDLA Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("DLACriteria")
ElseIf OptionDeCA Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("DeCACriteria")
ElseIf OptionDFAS Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("DFASCriteria")
ElseIf OptionDISA Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("DISACriteria")
ElseIf OptionNAVY Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("NAVYCriteria")
Else:
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData: Unload UserForm1
End If
Else:
If OptionODO Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("ODOnonzeroCriteria")
ElseIf OptionDLA Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("DLAnonzeroCriteria")
ElseIf OptionDeCA Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("DeCAnonzeroCriteria")
ElseIf OptionDFAS Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("DFASnonzeroCriteria")
ElseIf OptionDISA Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("DISAnonzeroCriteria")
ElseIf OptionNAVY Then
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("NAVYnonzeroCriteria")
Else: Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Branch Criteria").Range("AllnonzeroCriteria")
End If
End If
End Sub