- Katılım
- 2 Ağustos 2023
- Mesajlar
- 2
- Excel Vers. ve Dili
- VBA
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?
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?
Kod:
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