makro ile autofilter çalıştırma...

[eymendoruk]

Autofilter bulunan bir çalışma sayfasında filtrede istediğim koşulların çalışması için bir makro yazdım fakat hangi hücre aktif ise makronun oradaki filter'ı çalıştırmasını istiyorum fakat hep aynı kolonda filtreyi çalıştırıyor. Yazdığım makro ekte...Aktif hücrede çalışmasını nasıl sağlayabilirim? Teşekkürler...
:?
Sub Filter_no_zero()
'
' Filter_no_zero Macro
' Macro recorded 24.02.2006 by DB21281
'
' Keyboard Shortcut: Ctrl+m
'
Selection.AutoFilter Field:=38, Criteria1:=">0", Operator:=xlOr, _
Criteria2:="<0"
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:08d9b44824]Sub Filter_no_zero()
ActiveCell.AutoFilter Field:=ActiveCell.Column, Criteria1:=">0", Operator:=xlOr, _
Criteria2:="<0"
End Sub
[/vb:1:08d9b44824]

 

[zafer]

Merhaba

Aşağıdaki kodları makronuzun içine kopyalayınız
süz 1. kolondan başlayacakmış gibi hazırlanmıştır


kolon = ActiveCell.Column
Selection.AutoFilter Field:=kolon, Criteria1:=">0", Operator:=xlOr, _
Criteria2:="<0"

 

[eymendoruk]

:dua:
Harikasınız hocam, teşekkür ederim...

Saygılarımla...
Doruk.