Çoklu Süzme

[command]

Aşağıdaki kodda bir sütunda 2 veri ile süzme yapmak istiyorum.
Örn, sütunda sadece kk ve aa yazanları süzme.

bu makro nasl olabilir.

Private Sub Süz_Click()
Range("C1:C1000").AutoFilter Field:=1, Criteria1:="kk"
End Sub

 

[Huseyinkis]

Aşağıdaki kodda bir sütunda 2 veri ile süzme yapmak istiyorum.
Örn, sütunda sadece kk ve aa yazanları süzme.

bu makro nasl olabilir.

Private Sub Süz_Click()
Range("C1:C1000").AutoFilter Field:=1, Criteria1:="kk"
End Sub

Range("C1:C1000").AutoFilter Field:=1, Criteria1:=Array("gg", "kk"), Operator:=xlFilterValues

bunu denermisiniz

 

[command]

teşekkürler

 

[command]

Paylaşılmış çalışma kitabı

Paylaşılmış çalışma kitabına giren kullanıcı isimlerinin görüntülenmesini nasıl yaparım.

Örn userform açıldığında listbox içinde yazacak, şuan userformda 2 kişi var diye. excel tablosuna da yazılabilir.

bununla ilgili kod var mı?

 

[command]

çoklu süzme kodu çalışmadı, başka alternatif olabilir mi?

 

[hamitcan]

çoklu süzme kodu çalışmadı, başka alternatif olabilir mi?

Gelişmiş süz kullanabilirsiniz.

 

[Merhum İdris SERDAR]

Aşağıdaki kodda bir sütunda 2 veri ile süzme yapmak istiyorum.
Örn, sütunda sadece kk ve aa yazanları süzme.

bu makro nasl olabilir.

Private Sub Süz_Click()
Range("C1:C1000").AutoFilter Field:=1, Criteria1:="kk"
End Sub

.

Sub Macro1()

Range("c1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=kk", Operator:=xlOr, _
Criteria2:="=gg"
End Sub


şeklinde deneyin.

 

[Emir Hüseyin Çoban]

Merhaba, ekteki dosyayı inceleyiniz.

Sub ikilisüz()
    Range("B3:c3").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:= _
    Sheets("sayfa1").Range("a1").Value, Operator:=xlOr, _
        Criteria2:= _
    Sheets("sayfa1").Range("a2").Value
End Sub

 

[command]

çok teşekkürler yardımınız için.