ChecBox ile Filtreleme

[alptun20]

Ekli dosyada görüldüğü üzere Form üzerinde bulunan a, b ve c seçeneklerinden CheckBox ile seçtiklerimin filtrelenmesini istiyorum. Saygılarımla..

 

[alptun20]

Yardımları bekliyorum.
Saygılarımla...

 

[alptun20]

Sanırım Excelde mümkün olmayan bir şey bu.

Peki alternatif önerisi olan varmı.

 

[sbayyigit]

istediğin bu mu?

Private Sub CommandButton1_Click()

If CheckBox1.Value = False And CheckBox2.Value = True And CheckBox3.Value = False Then

End If
If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True Then
Selection.AutoFilter Field:=1
Else
If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = False Then
Selection.AutoFilter Field:=1, Criteria1:=Label1.Caption, Operator:=xlOr, _
Criteria2:=Label2.Caption

ElseIf CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = True Then
Selection.AutoFilter Field:=1, Criteria1:=Label1.Caption, Operator:=xlOr, _
Criteria2:=Label3.Caption
ElseIf CheckBox1.Value = False And CheckBox2.Value = True And CheckBox3.Value = True Then
Selection.AutoFilter Field:=1, Criteria1:=Label1.Caption, Operator:=xlOr, _
Criteria2:=Label3.Caption

ElseIf CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = False Then
Selection.AutoFilter Field:=1, Criteria1:=Label1.Caption
ElseIf CheckBox2.Value = True And CheckBox1.Value = False And CheckBox3.Value = False Then
Selection.AutoFilter Field:=1, Criteria1:=Label2.Caption
ElseIf CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = True Then
Selection.AutoFilter Field:=1, Criteria1:=Label3.Caption
End If
End If
End Sub

 

[sbayyigit]

Yardımları bekliyorum.
Saygılarımla...

yapılan yardıma yorum eklemediniz. verilen kodlar işinize yaramadı mı?