macro ile veri süzme

[tttddd]

örnek dosyada kayıtlarımı isimlere göre süzmek istiyorum bununla ilgili vb kodları yazıla bilirmi...

 

[mehmett]

Süzülecek alanın ilk hücresi B2, son hücresi I20 olsun;

Sub Suz()
    Range("B2:I20").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Araçlar > Makro > Yeni makro kaydet

menüsünden giderek siz de yazabilirsiniz böyle küçük kodları.

 

[tttddd]

sayın zerige verdiğiniz kodu kullandım ama süzme işlemini gerçekleştiremedim

 

[tttddd]

yada soruyu yanlış sordum sanırım
sayfa2 deki verileri sayfa1 de nasıl filitrelerim(süzerim) teşekkurler...

 

[tttddd]

yardım edecek arkadaş yokmu

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[tttddd]

sayın leventm, 1 haftadır bekliyorudum sizin sitede olduğunuzu anlayınca yokmu yardım edecek mesajını yazdım ve cevabımı aldım size bu borçlarımızı nasıl ödeyaceğiz

 

[tttddd]

birde son anda aklıma geldi butonu kaldırsak b2 hücresine süzmek istediğimiz veri yazıp enter e basınca yada başka hücreye geçince süzme işlemini yaptıra bilirmiyiz

 

[Levent Menteşoğlu]

Butonsuz olarak yapılmış ekteki örneği inceleyin.

 

[tttddd]

çok teşekkür edrim ellerinize sağlık...