Excel Filtreli Bağlantı

[s4kinqz]

Merhaba,

a	17​
b	4​

olarak elimde 2 sütun var ve diğer sayfadan gelmekte bu veriler a marka olan kişiler 17 kişi b marka olan kişiler 4 olarak göstermekte 17'nin üzerine tıkladığımda 17 kişi farklı bir pencerede filtrelenmiş bir şekilde gelmesini istiyorum bu mümkün mü ? yardımcı olur musunuz tablo örnek olduğu için farklı sayfalara filtreleyip bağlantı atmam çok zor olmakta kısadan yapabileceğim bir iş varsa yardımcı olur musunuz lütfen.

 

[cems]

Kopya bir dosyada deneyiniz SAYFANIN VBA KISMINA YAPISTIRIP CALISTIRINIZ

Sub Filtreleme()
    Dim ws As Worksheet
    Dim marka As String
    Dim s As String
    
    ' Aktif çalışma sayfasını al
    Set ws = ActiveSheet
    
    ' Seçili hücrenin değerini al (a veya b markası)
    marka = ActiveCell.Value
    
    ' Filtreleme için sorgu oluşturma
    s = "A:A"
    If marka = "b" Then
        s = "B:B"
    End If
    
    ' Filtreleme kaldırma
    ws.AutoFilterMode = False
    
    ' Seçilen markaya göre filtreleme yapma
    ws.Range("A1").AutoFilter Field:=1, Criteria1:=marka
    
    ' Filtrelenmiş verilerin kopyalanması
    ws.AutoFilter.Range.Copy Destination:=Sheets.Add.Range("A1")
    
    ' Yeni sayfayı gösterme
    Sheets(Sheets.Count).Select
End Sub

Bu kod, bir çalışma sayfasındaki seçili hücreye bağlı olarak filtreleme yapar. Eğer seçilen hücre "a" ise, "A" sütununa göre filtreleme yapar ve filtrelenmiş verileri yeni bir sayfaya kopyalar. Eğer seçilen hücre "b" ise, "B" sütununa göre filtreleme yapar. Son olarak, bu filtrelenmiş verileri yeni bir sayfaya kopyalar ve bu yeni sayfayı gösterir.

Bu arada dosyayı .xls ise .xlsm olarak save etmeniz gerekir