Aranan Değere Göre Filtreleme

[Astalavista58]

Merhaba hayırlı günler, günlük indirdiğim veri dosyamda, verilerin bulunduğu sütunlar değişebiliyor. Ben 1:1 satırında, içerisinde "Eleman" geçen sütuna filtre atmak istiyorum. Yardımcı olur musunuz

 

[ÖmerFaruk]

Örnektir. Kendinize uyarlayınız.

Sub Filtre()
Sutun = Rows("1:1").Find(What:="Eleman", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Column
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=Sutun, Criteria1:="Kriteriniz"
End Sub

 

[Astalavista58]

Çok teşekkür ederim.

 

[Astalavista58]

Sn NextLevel hocam, formülü uyguladım ancak, bu kısımda hata veriyor "
Sutun = Rows("1:1").Find(What:="Eleman", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Column"

Formülde Eleman kısmını"Cinsiyet" olarak değiştirdim. Kriter kısmına Kadın yazdım anca hata veriyor. Acaba ben mi bir şeyi eksik yapıyorum

 

[ÖmerFaruk]

Dosyanızı paylaşın isterseniz

 

[Astalavista58]

Cinsiyetin olduğu sekme değişebiliyor, bu sebeple önce "Cinsiyet" yazan hücreyi bulsun, Cinsiyete filtre atıp, "Kadın"i seçsin eğer mümkünse

 

[ÖmerFaruk]

Sub Filtre()
Sutun = Rows("1:1").Find(What:="Cinsiyet").Column
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=Sutun, Criteria1:="Kadın"
End Sub

 

[Astalavista58]

Çok çok teşekkür ederim.