girilen değeri bir sütundan bulup hepsini getiren bir makro /otomatik filtre

[copilus]

Yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.

Makrolar konusunda çok bir şey bilmiyorum. Yapmak istediğim şeyi ekli dosyada anlatmaya çalıştım. Buraya da özetleyeyim.

Diyelim ki sayfa1 de bir veri seti var.

Sayfa 2 ye girdiğim bir değeri sayfa 1 deki “A” sütunundaki değerlerle eşleştirip o değere sahip bütün satırları (otomatik olarak filtreleyip) getiren bir makroya ihtiyacım var.

Bu makroyu da "getir" diye bir düğmenin içine gömmek istiyorum

Bu konuda yardımlarınızı rica ederim.

 

[Civan Jack]

A2 ye çeşit girin butona gerek yok.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Range
    If Target.Address(0, 0) <> "A2" Then Exit Sub
    Range("A5:Y655536").ClearContents
    For Each i In Sayfa2.Range("A2:A" & Sayfa2.Range("A65536").End(3).Row)
       If Target.Value = i.Value Then
        Sayfa2.Cells(i.Row, 1).Resize(, 25).Copy Range("A65536").End(3)(2, 1)
       End If
    Next i
    Set i = Nothing
End Sub

 

[copilus]

Çok Teşekkür ederim, istediğim sonucu elde ettim.

Ama bir sorum olacak, diyelim ki aratacağımız değer "A" sütununda değil de "X" sütununda,

koddaki "A2:A" değerini nasıl değiştirmek gerekir?

Ben "X2:X" olarak değiştirip denedim ama, doğal olarak x ve sonraki sütunları getirdi