Tablolarda Filtre Kriteri Olarak Dizi Kullanma

Tablolarda filtre kriteri olarak dizi kullanma……

 


Sub LISTELE()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim son As Integer
Dim dizi() As String

Set ws1 = Sheets("Sayfa1")
Set ws2 = Sheets("Sayfa2")

son = ws1.Cells(Rows.Count, 9).End(xlUp).Row

ReDim dizi(son - 2)

For i = 2 To son

dizi(i - 2) = ws1.Range("I" & i)

Next

ActiveSheet.ListObjects("Sorgu1").Range.AutoFilter Field:=2, Criteria1:=dizi, Operator:=xlFilterValues

End Sub

Paylaşmayı unutmayın!
0 0 votes
Article Rating
Subscribe
Bildir
guest
0 Yorum
Inline Feedbacks
View all comments