userform üzerinden excel sayfasını otomatik süz

[halilerguder]

Saygıdeğer ecel dostları, Bir problemime cevap arıyorum. Problem şu: userform üzerine bir buton ekleyip excel sayfa 1'de b sütununun otomatik olarak(a-z'ye) süzmek. şimdiden ilgilerinize teşekkür ederim.

 

[Kemal Demir]

Sn.halilerguder

Ek'teki dosyaya bakınız.

 

[halilerguder]

Sayın Rakkas ilginize teşekkürler kendim makro kaydet ile şöyle bir çözüm buldum.
Private Sub CommandButton7_Click()
Selection.AutoFilter
Columns("B:B").Select
Selection.AutoFilter
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("E6").Select
End Sub