Sayfalar Arası Link ve Filtre

[kerem222]

Merhabalar,

Yapmak istediğim bir işlem var ancak çözüme ulaşamadım.
Özetle yapmak istediğim; Sayfa1 içerisinde No sütununda bulunan bir hücreye seçilirse/tıklanırsa, Sayfa2'de yine No sütununa filtre uygulanmış hali ile açılmasını istiyorum. Hazırladığım örnek dosya aşağıdadır.

Ekli dosyayı görüntüle Ornek.xlsx

Konuyla ilgili yardımcı olacaklara şimdiden teşekkür ederim,
İyi günler..

 

[Ömer]

Merhaba,

Sayfa1 kod bölümüne kopyalayın. Sayfa1 A sütunundaki hücrelere fare ile çift tıkladığınızda kod çalışır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
                                            Cancel As Boolean)
 
    Dim S2 As Worksheet, son As Long
 
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    
    Set S2 = Sheets("Sayfa2")
    son = S2.Cells(Rows.Count, "B").End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    With Target
        If .Row < 2 Then Exit Sub
        S2.Select
        ActiveSheet.Range("A1:C" & son).AutoFilter 2, .Value
    End With
    
    Application.ScreenUpdating = True
 
End Sub

.

 

[kerem222]

Merhaba Ömer Bey,

Yardımınız için teşekkür ederim, ihtiyacımı karşılığı buydu.

İyi günler dilerim