makroda filtre hatası

[alirizapekbilir]

Sub Makro6()
ActiveSheet.Range("$A$2:$G$252").AutoFilter Field:=3, Criteria1:=Array( _
"1.420,85", "1.731.164,89", "1.753,75", "1.967.937,63", "10.038.356,19", _
"10.252.057,53", "11.071.979,11", "11.343.789,75", "139.015,79", "181.641.088,85", _
"197.951,21", "2.709,58", "231.492,80", "249.523,43", "31.627,07", "36.077,61", _
"37.443,20", "39.198,68", "4.318.072,35", "42.446.962,44", "442.319,11", "55.452,64" _
, "57.267,25", "86.947.515,99"), Operator:=xlFilterValues
ActiveWindow.SmallScroll Down:=-60
Range("B4:B91").Select
Selection.Copy
Range("C4").Select
End Sub


Yukarıdaki makroda rakamların olduğu yerde sıfır hariç tüm rakamları almasını istiyorum. fakat rakamlar sürekli değişken olduğu için makro sonunda hata veriyor. sıfır hariç değişken rakamları nasıl makro ile filtre ederim. Sıfırdan büyükleri filtre etmem lazım.

 

[askm]

Sıfır hariç diyorsanız neden rakamları yazıyorsunuz. Her seferinde Array kısmına kod yazmak durumunda kalırsınız. "<>0" şeklinde ya da ">0" şeklinde deneyin. Ya da örnek eklerseniz bakalım.

 

[alirizapekbilir]

otomatik

makroyu otomatik hazırladım arka planda bu şekilde kaydetti o aralığa nasıl kod yazacağımı bilemedim bikaç deneme yaptım ama hata veriyor.

 

[askm]

Örnek dosyanızı ekleyebilir misiniz?

 

[alirizapekbilir]

örnek

ekledim örneği hesap kodlarının karşısındaki rakam değişken olacak sıfırdan büyük olan hesap kodlarını yan tarafa taşıyacağım.

 

[askm]

ActiveSheet.Range("$A$2:$G$252").AutoFilter Field:=3, Criteria1:="<>0"

şeklinde deneyin.

 

[alirizapekbilir]

oldu

teşekkürler elinize sağlık oldu.

 

[askm]

Rica ederim.Kolay gelsin.