Farklı sayfadan makro ile filtreleme yapmak

[berkeartar]

Arkadaşlar merhaba,

Ekteki tabloda icmal sekmesindeki B sütunundaki değerlere tıkladığımda tutanak sekmesine gidip A sütununda seçtiğim değere göre filtreleme yapmak istiyorum. Yardımcı olursanız çok sevinirim.

 

[YUSUF44]

Günaydın.

Aşağıdaki kodları İCMAL sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız istediğiniz işlem yapılır:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set s1 = Sheets("TUTANAK")
Set s2 = Sheets("İCMAL")
If Intersect(Target, [B6:B21]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
son = s1.Cells(Rows.Count, "A").End(3).Row
If WorksheetFunction.CountIf(s1.Range("A2:A" & son), Target) = 0 Then
    MsgBox "TUTANAK sayfasında " & Target & " tutanak tipine ait kayıt bulunmamaktadır!", vbExclamation
Else
    s1.Activate
    ActiveSheet.ListObjects("Taşeron_Tutanak").Range.AutoFilter Field:=1, _
        Criteria1:=Target
End If
End Sub

 

[berkeartar]

Süper, işe yaradı çok teşekkür ederim. Yine hayat kurtardınız