VBA Lixtbox filtreleme yaparken "Syntax error" çözümü için yardım

[Drmobile22]

Merhaba,

VBA'ya yeni başladım sayılır. Listbox filtrelemesi yaparken "Snytax error" ile karşılaşıyorum. Halbuki bunun anlatıldığı youtube platformunda bu hata ile karşılaşılmıyordu. Nerede hata yapıyorum yardımcı olabilir misiniz?

Özellikle CriteriaRange:= ile başlayan kısımda hata aldığımı düşünüyorum, nasıl çözebiliriz?

Private Sub TextBox1_Change()
Dim ls, rs As Worksheet
Set ls = Sheets("Liste")
Set rs = Sheets("Rapor")
x1 = ls.Range("1:1").End(xlToRight).Column
y1 = ls.Range("A250000").End(xlUp).Row
x2 = rs.Range("1:1").End(xlToRight).Column
y2 = rs.Range("A250000").End(xlUp).Row
rs.Range(rs.Cells(1, 1), rs.Cells(y2, x2)).Clear
rs.Range("N1") = ComboBox1
rs.Range("N2") = TextBox1
Sheets("liste").Range(ls.Cells(1, 1), ls.Cells(y1, x1)).AdvancedFilter Action:=xlFilterCopy
CriteriaRange:=rs.Range ("N1:N2"), CopyToRange:=rs.Range("A1"), Unique:=False
x2 = rs.Range("1:1").End(xlToRight).Column
y2 = rs.Range("A250000").End(xlUp).Row

ListBox1.ColumnCount = x2
i = rs.Range(rs.Cells(1, 1), rs.Cells(y2, x2))
ListBox1.List = i
End Sub

 

[bmutlu966]

Bu şekilde dener misiniz?

Private Sub TextBox1_Change()
Dim ls, rs As Worksheet
Set ls = Sheets("Liste")
Set rs = Sheets("Rapor")
x1 = ls.Range("1:1").End(xlToRight).Column
y1 = ls.Range("A250000").End(xlUp).Row
x2 = rs.Range("1:1").End(xlToRight).Column
y2 = rs.Range("A250000").End(xlUp).Row
rs.Range(rs.Cells(1, 1), rs.Cells(y2, x2)).Clear
rs.Range("N1") = ComboBox1
rs.Range("N2") = TextBox1
Sheets("liste").Range(ls.Cells(1, 1), ls.Cells(y1, x1)).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=rs.Range("N1:N2"), CopyToRange:=rs.Range("A1"), Unique:=False
x2 = rs.Range("1:1").End(xlToRight).Column
y2 = rs.Range("A250000").End(xlUp).Row

ListBox1.ColumnCount = x2
i = rs.Range(rs.Cells(1, 1), rs.Cells(y2, x2))
ListBox1.List = i
End Sub

 

[Drmobile22]

Teşekkürler, çok işime yaradı. Fakat bu filtrasyon programında sadece "text" filtreliyor, hem text hem de numeric olarak filtreleme nasıl yapabilirim?