Satırdaki Numaralara Göre Filtreleme Yaptırma

[cimcoz]

Merhaba,

Ekteki dosyamda MAIN ve ISSUE sayfaları bulunuyor.
MAIN sayfasında şehirlerin bulunduğu satırda yazan numaralara göre ISSUE sayfasında filtreleme yaptırmak istiyorum.
Satır sonundaki tuşa basınca ISSUE sayfasında (ISSUE sayfasına gidip) ilgili satırda bulunan numaralara göre filtreleme yapması yeterlidir.
Eğer tuş yerine şehir adına basınca da yapabilse çok daha kullanışlı olacaktır.

Bu konu hakkında, gerekli fonksiyon ya da makro konusunda yardımlarınızı rica ederim.

Saygılarımla,

 

[Korhan Ayhan]

Merhaba,

MAIN isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

A sütununda hücrelere tıkladığınızda hücre dolu ise filtreleme yapılacaktır.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim S1 As Worksheet, Alan As Range, Kriter As Variant
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
    Set S1 = Sheets("ISSUE")
    If Target <> "" Then
        Set Alan = Target.Offset(, 1).Resize(1, 11)
        Kriter = Application.Evaluate("=IF(LEN(" & Alan.Address & ")>0," & Alan.Address & ",""X"")")
        S1.Range("A:B").AutoFilter 1, Operator:=xlFilterValues, Criteria1:=Filter(Kriter, "X", False)
        S1.Range("C1").Value = Target.Value
        S1.Select
    Else
        If S1.AutoFilter.FilterMode Then S1.ShowAllData
    End If
    Set Alan = Nothing
    Set S1 = Nothing
End Sub

 

[cimcoz]

Sayın
Korhan Ayhan,

Çok teşekkür ederim. Filtreleme süper çalışıyor.
Yalnız hücreye tıklanınca diğer filtreleme yaptığı sayfaya (ISSUE sayfasına) nasıl gitmesini sağlayabilirim?

Bir de tıklanan şehir adını ISSUE sayfasında C1'e yazdırmamız mümkün müdür?

Saygılarımla,

 

[Korhan Ayhan]

Kodu revize ettim. Tekrar deneyiniz.

 

[cimcoz]

Sayın @Korhan Ayhan,
Ellerinize sağlık. Çok teşekkür ederim.