Seçilen hücreye filtre

[halilcakir28]

Arkadaşlar,

Belki biraz uçuk olacak ama sayfa 1 deki numaralara tıklayınca, 2.sayfada paçanın filtrelenerek seçilmiş halini görmek istiyorum.Aslında bir şekilde aynı sekmeye eklesem daha iyi olur fakat seçilen numaraya göre gelecek veri sabit olmadığı için sabit bir hücre aralığı veremiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Sayfa1 'in kod bölümüne kopyalayınız. Sayfa1 de A:B sütununda seçtiğiniz hücre değeri neyse diğer sayfada o değer filtre olur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim S2 As Worksheet
 
    If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
 
    Set S2 = Sheets("Sayfa2")
 
    If Target = "" Then Exit Sub
    S2.Range("A1").AutoFilter Field:=1, Criteria1:=Target.Value
 
    Sheets("Sayfa2").Select
 
End Sub

Not: Soru başlıklarınızı konunun içeriğini ifade edecek şekilde belirlemenizi rica ederim.