Auto filter makrosu ile ilgili yardım lütfen.

[Kavram]

Sub işlemtipi()
'
' işlemtipi Macro
' Macro recorded 04.10.2005 by Kavram'

'
Sheets("tüm veri").Select
Selection.AutoFilter Field:=4, Criteria1:="havale işlemi"
Sheets("Kavram").Select
End Sub


Yukarıdaki makroda işlem tipi yerine bir hücrenin içindeki değeri atamak için Criteria:=Range ("a1") dedim, ancak a1'deki değerine göre süzmesi için ne yapmam gerekmektedir. Yardımlarınızı rica ederim.

 

[Levent Menteşoğlu]

Criteria:=Range ("a1") dedim

Yazımınızda hata var aşağıdaki gibi deneyin. 1 rakamını unutmuşsunuz.

[vb:1:30f522c24f]Criteria1:=Range ("a1")[/vb:1:30f522c24f]

 

[Kavram]

Burada yanlış yazmışım, criteria1 olarak yazmıştım. ama yine de o hücreye göre sıraya dizmiyor. Teşekkürler.

 

[keniken]

Günaydın,

Criteria1:=Worksheets("Kavram").Range("A1")

şeklinde bir deneseniz..

 

[Kavram]

Çok teşekkür ederim. Ã?ğreneceğim bu makroları'i sayenizde. :dua:

 

[baydeniro]

OR lu Kriter

Arkadaşlar, aynı yapıyı OR için kullanmak nasıl eklemek gerekir. 2. Veri hücresi E1 olsun.

 

[mrttrn]

Worksheets("Kavram").Range("A1").autofilter 4, "havale işlemi", xlOr , "havale değeri"

4=D sutununda A1 hizasından "havale işlemi"veya "havale değeri" varsa süzer.
Bu kod belki işinize yarar.