seçilen hücrenin diğer sayfada süzme

[hidayet_saglam]

hücreye çift tıklayınca diğer sayfadan o hücre değerindekileri süze bilirmiyim.

 

[Necdet]

Merhaba,

özet sayfasında ürün grubuna tıklandığında (Örneğin a) veri sayfasında sadece ürün grubu a olanları süzdürmek mi istiyorsanız, yoksa aynı zamanda tutara göre de süzülecek mi?

Süz işleminde tutar'ında işleme alınmasını isterseniz koddaki ikinci süz komutunu açıklamadan kurtarınız (Baştaki tek tırnak işaretini siliniz).

özet sayfasındaki kod :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Suz Target.Value, Target.Offset(0, 1)
End Sub

Bir modülde de aşağıdaki kodun olması gerek.

Sub Suz(Deger As String, Tutar As Long)
    On Error Resume Next
    Sheets("veri").Select
    ActiveSheet.ShowAllData
    SonSat = [A65536].End(3).Row
    ActiveSheet.Range("A1:D" & SonSat).AutoFilter Field:=3, Criteria1:=Deger
'    ActiveSheet.Range("A1:D" & SonSat).AutoFilter Field:=4, Criteria1:=Tutar
End Sub

 

[hidayet_saglam]

Allah razı olsun eline emeğine sağlık

 

[erhanlife]

X sekmesinden isteninlen bilgiyi süzüp Y Sekmesine aktarma

Faaliyet raporu sekmesinde İD numarsını girdiğimde.
DATA Sekmesinde süzüp CLUSTER - BSC - SİTE NAME - AKÜ - Bilgilerini Faaliyet raporuna otomatik akarmasını istiyorum.


Lütfen yardımcı olurmusunuz..
6 aydır bu işlemi gerçekleştirmek istiyorum. tecrübem olmadığı için yapamıyorum.