checkbox süzme işlemi

[zulfuernek]

7 adet chackbox mevcut.

sayfa 1 deki d sütunundaki verileri checkbox işlemiyle nasıl süzebilirim

 

[Orion1]

7 adet chackbox mevcut.

sayfa 1 deki d sütunundaki verileri checkbox işlemiyle nasıl süzebilirim

Checkbox la süzme işlemi nasıl oluyor?Birisi yapsada görsek bari.

 

[zulfuernek]

checkboxta hangi değerler seçiliyse onları göstericek Orion hocam. umarım yapabilen çıkar. senden umudum var oron hocam

 

[Orion1]

Örnek dosya ekleyiniz.Afaki bir şey yapılamaz.

 

[zulfuernek]

http://dosya.co/yz5sndacj6oj/checkbox_sizme.xlsm.html

 

[Orion1]

Dosyanız ektedir.
Link aşağıdadır.

DOSYAYI İNDİR

Option Base 1
Private Sub CommandButton1_Click()
Dim i As Integer, sh As Worksheet, myarr(), n As Integer
Set sh = Sheets("Sayfa1")
If sh.AutoFilterMode = True Then sh.AutoFilterMode = False
ReDim myarr(1 To 1, 1 To 3)
If CheckBox1.Value = True Then
    n = n + 1
    myarr(1, n) = "1a"
End If
If CheckBox2.Value = True Then
    n = n + 1
    myarr(1, n) = "h3"
End If
If CheckBox3.Value = True Then
    n = n + 1
    myarr(1, n) = "ktmh"
End If
If n > 0 Then ReDim Preserve myarr(1 To 1, 1 To n)
ActiveSheet.Range("$A$1:$A$11").AutoFilter Field:=1, Criteria1:=myarr(), Operator:=xlFilterValues
End Sub

 

[zulfuernek]

Orion hocam gene coşturmuşsun emeğine sağlık. burda bişey daha sorucam. bi excel sayfasında görmüştüm. süzgeç imleci normal satırda değilde süyun başlıklarında yer alıyordu bunu nasıl yapabiliriz hocam. çünkü a 1 hücresi işleme dahil işlemler içerisinde tüm kodları değiştirmem gerekecek aksi takdirde