Süzmek-4 kriterli

[Yakut]

slm

arkadaslar;

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Range("A4:AU154")
.AutoFilter Field:=3, Criteria1:=">0"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("C1").Range("A4")
.AutoFilter Field:=3, Criteria1:="<=0"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("C2").Range("A4")
.AutoFilter Field:=24, Criteria1:=">=1"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("FU0").Range("A4")
.AutoFilter Field:=24, Criteria1:="<1"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("FU1").Range("A4")
End With
ActiveSheet.AutoFilterMode = False
End Sub

bu kodla 4 kriteli süzme islemi yapiyor, fakat bir bazen sorun oluyor, bazen basliklari tam olarak göstermiyor, bazen de satir olarak asigaya kayiyor. bir türlü anlayamadim
sorun nerde olabilri acaba ? ilk 2 kriter iyi oluyor ama 3 4 pek düzenli olmuyor.

saygilar

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[baydeniro]

Sayın Yakut örneğinizin çok kişiye yararlı olabilmesi açısından, bir tane de "içermez" tarzında filtre ekler misiniz lütfen !!! teşekkürler

 

[Yakut]

slm

veri örnek ; bazen cok güzel calisiyor, bazen de A4:AU154 süzmesi gerekirken tam alani almiyor, bazen de asagiya kayiyor.

 

[Levent Menteşoğlu]

Ne kasdettiğiniz anlaşılmıyor. Söylediğiniz durumun olduğu anın bir görüntüsünü ekleyebilirmisiniz.