Macro ile Filitreleme

[search77]

Arkadaşlar merhaba,

Ekli dosyamda sayıların üstüne bastığımda diğer sayfada o sayıya ait bilgileri filitreleme yaptırmak istiyorum.

Yardımcı olabilecek arkadaşlara şimdiden minnettarım.

Not:Excel dosyada da açıklama belirttim.

Saygılarımla.

 

[Necdet]

Merhaba,

Aşağıdaki kod "Ana Liste" sayfasının kod bölümüne kopyalayanız. B sütununda çift tıkladığınızda istediğiniz rakamı seçmiş olacaksınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel

As Boolean)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Not Target.Value = "" Then
    Sheets("Detay Bilgi").Select
    Suz Target.Value
End If
End Sub

Aşağıdaki kodlar ise bir modüle koplayayınız.

Sub Suz(Kriter As Integer)
    Dim i As Long
    i = Cells(Rows.Count, "a").End(3).Row
    
    ActiveSheet.Range("$A$15:$D$" & i).AutoFilter Field:=4, Criteria1:=Kriter
End Sub

 

[hamitcan]

Alternatif;
Module1 içine,

Public a As String

Ana Liste sayfası kod bölümüne,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Value
End Sub

Detay Bilgi sayfası kod bölümüne,

Private Sub Worksheet_Activate()
If a = Empty Then Sheets("Detay Bilgi").Range("$A$15:$D$349").AutoFilter Field:=4: Exit Sub
Sheets("Detay Bilgi").Range("$A$15:$D$349").AutoFilter Field:=4, Criteria1:="=" & a
End Sub

 

[search77]

Necdet bey,

Harika olmuş, emeğinize ellerinize sağlık,

Saygılar.

 

[search77]

Hamitcan bey,

Sizinki de istediğim şekilde olmuş, sizinde elinize kolunuza sağlık,

Saygılar.