Açılır kutudan süz çalıştırmak

[mozdem]

Hocam;
Açılır kutu ile seçtiğim isimleri nasıl filitreleriz.
ekteki dosyayı iceleyebilirseniz problemimi daha iyi anlatmış olacağım.
Teşekkürler

 

[mozdem]

Açılır kutu ile filitrelemek

Ben bir şeyler yapmayaçalıştım. Ancak Burada J1 hücresine Düşeyara formülü yazarak yatım. aslında J1 hücresini kullanmadan Kod içinde halledmesini istiyorum.
Teşekkürler

Sub Makro1()
Dim ad
ad = Range("J1").Value
If ad = "" Then
Selection.AutoFilter Field:=1
Exit Sub
End If


Range("E8").Select
Selection.AutoFilter Field:=1, Criteria1:=ad
Range("D7").Select


End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub suz()
Range("B2").AutoFilter field:=1, Criteria1:="=" & Range("B1").Value
End Sub