array kodu hakkında

[CILEKESH]

Sub Makro11()
    Sheets("Sayfa2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=8, Criteria1:=Array("1.200,00 TL", "1.500,00 TL", "-3.600,00 TL"), Operator:=xlFilterValues
    Columns("A:E").Select
    Selection.Copy
    Sheets("data").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Sayfa2").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
End Sub

Bu koddaki

Criteria1:=Array("1.200,00 TL", "1.500,00 TL", "-3.600,00 TL"),

Bu bölüme "0 (Sıfır) dan farklı olanlar" nasıl yazılır?

Yapmak istediğim Koddan anlaşılacağı üzere Sıfırdan farklı olanları Sayfa2 ye aktarmak

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Criteria1:<>0

 

[CILEKESH]

Aşağıdaki gibi deneyin.

Criteria1:<>0

Sub Makro11()
'
' Makro11 Makro
'

' Sıfırdan farklı olanları aktar
    Sheets("Sayfa2").Select
    Selection.AutoFilter
    [COLOR="Red"]ActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=8, Criteria1:<>0, Operator:=xlFilterValues[/COLOR]
    Columns("A:E").Select
    Selection.Copy
    Sheets("data").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Sayfa2").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
End Sub

Bu şekilde yazarsam Expected Named parameter hatasını veriyor.

 

[Levent Menteşoğlu]

Yazım hatası var. Aşağıdaki gibi olmalı.

Criteria1:="<>0"

 

[CILEKESH]

Yazım hatası var. Aşağıdaki gibi olmalı.

Criteria1:="<>0"

 ActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=8, Criteria1:="<>0", Operator:=xlFilterValues

Oldu galiba

 

[CILEKESH]

Teşekkür ederim. Diğer kodlarla ilgili bir kaç sıkıntım var sanırım onu kendim çözebileceğim