Filitrelemede sorun

[MERDAG]

Kullanmış olduğum kod da yanlış olan nedir acaba
Sub filtre()
Range("A8").AutoFilter
Range("A8").AutoFilter field:=1, Criteria1:=">=" & CLng(Range("M1").Value), _
Operator:=xlAnd, field:=1, Criteria2:="<=" & CLng(Range("M2").Value)
End Sub

Filitrele dediğim zaman 8. satır değilde 6. satırdan itibaren filitreliyor Bazende 1. satırdan başlıyor.

8. Satırda nasıl sabitlerim...

Yardımlarınız için şimdiden teşekkürler...

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

Sub filtre()
ActiveSheet.AutoFilterMode = False
Range("A8:g65536").AutoFilter
Range("A8").AutoFilter field:=1, Criteria1:=">=" & CLng(Range("M1").Value), _
Operator:=xlAnd, field:=1, Criteria2:="<=" & CLng(Range("M2").Value)
End Sub

 

[MERDAG]

Teşekkürler Ziya Bey şimdi düzeldi...