Nhờ các bác sửa code hộ em với a

[tranthanh2200]

Anh chị sửa em cái code trên với a. Em muốn sửa thành: Khi chạy code thì nó không ẩn các ô trống. Nghĩa là: ô không có dữ liệu vẫn hiện còn ô kiểu 0*2=0 thì cái ô "0" này ẩn đi a.
Sub Xem_ohieu()
'
' Xem_ohieu Macro
'

'
ActiveSheet.Range("$A$13:$H$120").AutoFilter Field:=8
ActiveSheet.Range("$A$13:$H$120").AutoFilter Field:=8, Criteria1:=">0", Operator:=xlFilterValues
End Sub

 

[CHAOQUAY]

Anh chị sửa em cái code trên với a. Em muốn sửa thành: Khi chạy code thì nó không ẩn các ô trống. Nghĩa là: ô không có dữ liệu vẫn hiện còn ô kiểu 0*2=0 thì cái ô "0" này ẩn đi a.
Sub Xem_ohieu()
'
' Xem_ohieu Macro
'

'
ActiveSheet.Range("$A$13:$H$120").AutoFilter Field:=8
ActiveSheet.Range("$A$13:$H$120").AutoFilter Field:=8, Criteria1:=">0", Operator:=xlFilterValues
End Sub

Thử sửa
Criteria1:=">0" => Criteria1:="<>0"