Filtre Tümünü Seçme Kriteri

[crion]

Selamlar, küçük bir sorum var.

Dün bu forumda Levent Bey'den aldığım kodu programımda oluşturmak istediğim filtrelere göre adapte ettim. Filtrelemeler gayet güzel olarak listbox1'e yansıtılıyor.

Benim sorunum, filtrelemeyi nasıl iptal edebileceğim? Bir tümünü seç filtresi var mıdır? Criteria1 kriterine "*" yazdığımda boş olanlar gelmiyor, "<>" kullandığımda da sonuç aynı, "=" dediğimde de sadece boş olanlar geliyor, internetten bulduğum "....Autofilter = False" kullanınca da hata verdi.

Benim istediğim tüm değerlerin gelmesi ve listbox1'i güncellemesi. Kod aşağıda, yardımcı olabilirseniz çok memnun olurum.

Private Sub OptionButton4_Click()               'normale dönme aslında ama sadece bekleyenleri seçiyor
Dim MyRange As Range
Dim noA As Integer
Dim son As Integer
ListBox1.Clear
noA = WorksheetFunction.CountA(Sheets("veri").Range("B:B"))   'sayfadaki son değer
Sheets("veri").Range("L1:L" & noA).AutoFilter Field:=12, Criteria1:="*"    '* ile boşlar gelmiyor!
son = Sheets("veri").[b65536].End(3).Row
For Each MyRange In Sheets("veri").Range("B2:B" & son).SpecialCells(xlCellTypeVisible)
ListBox1.AddItem (MyRange)                                                      'listeye ekle
Next
'Dim ws As Worksheet
'On Error Resume Next
'For Each ws In ThisWorkbook.Worksheets
'    ws.ShowAllData                                  'bütün dataları gösteriyor filtre kaldırıp
'Next ws
ComboBox5.Text = "Gecikme sırasına göre tüm hasarlar"
End Sub

 

[Orion1]

Merhaba.
Aşağıdaki kod işinizi görecektir.

if activesheet.autofiltermode=true then activesheet.autofiltermode=false

 

[Orion1]

şunuda deneyiniz.

Sheets("veri").Range("L1:L" & noA).AutoFilter Field:=12

 

[crion]

şunuda deneyiniz.

Sheets("veri").Range("L1:L" & noA).AutoFilter Field:=12

bunu denedim ve gayet güzel çalışıyor, teşekkürler