Macro kod düzeltme

[metince54]

merhaba macro yaptım yalnız veri filtrelemede 0 hariçindekileri seçmesini istiyorum .kodu düzenleyebilir misiniz?

Sheets("2 HAKEDİŞ GİRİŞİ").Select
ActiveSheet.Range("$A$2:$G$55").AutoFilter Field:=5, Criteria1:=Array( _
"11,50", "20,00", "5,00"), Operator:=xlFilterValues
ActiveWorkbook.Worksheets("2 HAKEDİŞ GİRİŞİ").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("2 HAKEDİŞ GİRİŞİ").AutoFilter.Sort.SortFields.Add _
Key:=Range("A2:A55"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("2 HAKEDİŞ GİRİŞİ").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Muzaffer Ali]

Merhaba.

ActiveSheet.Range("$A$2:$G$55").AutoFilter Field:=5, Criteria1:=Array( _
"11,50", "20,00", "5,00"), Operator:=xlFilterValues

Bu satırları silin aşağıdakini aynı yere ekleyin.

ActiveSheet.Range("$A$2:$G$55").AutoFilter Field:=5, Criteria1:="<>0", Operator:=xlAnd

 

[metince54]

teşekkür ederim yardımlarınız için