Çift Tıklama Sonucu Filtreleme

[oburs]

ekteki örnek tabloda da görüleceği gibi , özet tabloda ilgili rakama çift tıklama yapılınca Hesap+Dönem Filtrelemesi yapmasını istemekteyim. Tablo Ekinde eskiden yapmış olduğum bir makro var fakat çalıştıramadım. Bilgilerinizi rica ederim..

 

[Levent Menteşoğlu]

Report sayfasının kod sayfasına aşağıdaki prosedürü kopyalayarak deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect([d2:d65536], Target) Is Nothing Then Exit Sub
Cancel = True
fdeger = Cells(Target.Row, "a")
If Sheets("Line").FilterMode = True Then Sheets("Line").ShowAllData
Sheets("Line").[a1].AutoFilter Field:=1, Criteria1:=fdeger
Sheets("Line").Select
End Sub

 

[oburs]

Çok teşekkür ederim. Elinize sağlık.
şu anda filtrelemeyi sadece hesap koduna göre yapıyor. ek olarak benim istediğim hangi ay kolonunun üzerindeysem ona göre de filtreleme yapılabilin sin..
örnek olarak
600 numaralı hesabın mart ayındaki hareketlerini filtrelemek ..

Bilginize rica olunur..

 

[oburs]

Acaba destek olabilecek kimse var mı