Süzme işleminde ilk satır

[alipinar]

Merhaba arkadaşlar.
"veri" sayfasındaki verileri botunla süzme yaptırarak "ogun" isimli sayfaya aktarıyorum. Bu işlemi değişik kriterlere (-2,-1,0,1,2) döre yaptırıyorum. Ancak her defasında veri sayfamın 1. satırındaki veri kriterlere uymamasına rağmen her süzdürmede aktarılıyor.
Bunun nedeni nedir? Nasıl düzeltebilirim. Aşağıda ilgili kodu yazıyorum.
yardımlarınız için teşekkür ederim.

Private Sub CommandButton4_Click()
On Error Resume Next
Worksheets("ogun").Select
Cells.Range("a1:ac1200").ClearContents
Worksheets("veri").Select
[A1].Select
Selection.AutoFilter
Selection.End(xlToRight).Select
Selection.AutoFilter Field:=29, Criteria1:=-2
Range("a1:ac1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("ogun").Select
Range("a1").Select
ActiveSheet.Paste
Range("a2").Select
Worksheets("veri").Select
Range("A1").Select
Selection.AutoFilter
Worksheets("ogun").Select
b = Worksheets("ogun").Range("A65536").End(xlUp).Row
formogun.Show
End Sub

 

[mith]

Merhabalar,
Benim de başıma gelmişti 1-2 kez. Basit bir örnekle anlatmak gerekirse:
Süzme işlemini elle yaptığımızı düşünelim. Başlık satırı seçili ise başlık satırı sürekli sabit ve alttaki değerler süzgece giriyordur. Yani ilk satırı hep başlık satırı olarak algılıyor. Sendeki veri sayfasındada büyük ihtimalle başlık satırı yok dolayısıyla ilk satırı başlık satırı olarak alıyor. Yapman gereken 1. satırı bir kaydırıp verileri 2. satırdan başlatman.
Kolay Gelsin..