Farklı Sheet'te Filtre Çalıştırma Hk.

[petsiye]

Merhaba,

Sorum Özetle Şu Şekilde. Sheet1 deki A Sütununda altalta yüzlerce farklı İsim bulunmakta. Yapmak istediğim, Sheet2 de B Sütununa, Sheet1'deki A Sütunundaki isimlerden herhangi birisini manuel yazdığımda, Sheet2 B Sütunundaki aradığım isim filtrelensin istiyorum. ( Bunu Gelişmiş Filtre ile yapmaktan farklı bir şekilde VBA ile yapmak istiyorum )

Yardımcı olabileceklere Çok Teşekkür ederim

 

[Muzaffer Ali]

Merhaba.

Sayfa2'ni kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B1"), Target) Is Nothing Then
        With Worksheets("Sayfa1")
            If .AutoFilterMode = True Then
                If .FilterMode Then .ShowAllData
            Else
                .Range("A:A").AutoFilter
            End If
            .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row).AutoFilter Field:=1, Criteria1:=Worksheets("Sayfa2").Range("B1").Value
        End With
    End If
End Sub