Soru İsimlere göre filtreleme yapmak

[NADİR YILDIZ]

üstte mavi alana yazılan isimlere göre I sütunundaki aynı olan isimleri filtreleme yapılabilir mi ?

 

[Haluk]

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim myArr(0, 1 To 7) As String
       
    For i = 1 To 7
        myArr(0, i) = Range("C" & i)
    Next
        
    ActiveSheet.Range("$A$10:$K$29").AutoFilter Field:=9, Criteria1:=Array(myArr), Operator:=xlFilterValues
End Sub

.

 

[NADİR YILDIZ]

Haluk bey
yukardaki mavi alanda isim varsa I sütununda filtreleme istiyorum

teşekkürler

 

[Haluk]

Bu mu acaba?

Private Sub CommandButton1_Click()
'
' Macro1 Macro
'

'
    Dim myArr() As String
    
    For Each xRng In Range("C1:I7")
        i = i + 1
        ReDim Preserve myArr(0, 1 To i)
        myArr(0, i) = xRng
    Next
        
    ActiveSheet.Range("$A$10:$K$29").AutoFilter Field:=9, Criteria1:=Array(myArr), Operator:=xlFilterValues
End Sub

.

 

[NADİR YILDIZ]

Evet üstat aynen istediğim gibi

teşekkürler