Cách ẩn dòng có điều kiện (bằng 0) (4 người xem)

[ngoinhahoahong1492]

Xin các anh chị giúp em ẩn các dòng theo điều kiện Rest Q'ty = 0 (Cột Z, cột số màu xanh - sheet Theo doi PI) nhưng không làm ảnh hưởng đến công thức của các sheet khác và nếu cần xem lại những dòng đó thì vẫn có thể được (không dùng auto filter).
Em cũng đã tìm kiếm và tham khảo các bài viết trên GPE nhưng do kiến thức có hạn nên chưa tìm ra được. Mong các anh chị giúp đỡ.

 

[dhn46]

Bạn xem như thế này có được không?
Nút lệnh ở sheet Theo doi PI --- (vùng a1:a3)

 

[Ba Tê]

Xin các anh chị giúp em ẩn các dòng theo điều kiện Rest Q'ty = 0 (Cột Z, cột số màu xanh - sheet Theo doi PI) nhưng không làm ảnh hưởng đến công thức của các sheet khác và nếu cần xem lại những dòng đó thì vẫn có thể được (không dùng auto filter).
Em cũng đã tìm kiếm và tham khảo các bài viết trên GPE nhưng do kiến thức có hạn nên chưa tìm ra được. Mong các anh chị giúp đỡ.

Cái nầy nhanh nhất là dùng Advance Filter, Bạn không muốn dùng Auto Filter chẳng lẽ muốn dùng code, dùng code cũng sử dụng Advance Filter thôi.

 

[ngoinhahoahong1492]

Bạn xem như thế này có được không?
Nút lệnh ở sheet Theo doi PI --- (vùng a1:a3)

Em mở nhưng không thấy nút lệnh, anh xem lại giúp em nhé.
Em cám ơn nhiều.

Cái nầy nhanh nhất là dùng Advance Filter, Bạn không muốn dùng Auto Filter chẳng lẽ muốn dùng code, dùng code cũng sử dụng Advance Filter thôi.

Cám ơn anh đã hồi âm. Vì em không biết VAB nên không biết code cũng sử dụng Advance filter.
Lý do em không dùng advance filter là vì: Khi có một mã hàng xuất em sẽ dựa vào mã hàng xem nó thuộc đơn hàng nào (cùng mã hàng nhưng khác đơn hàng thì giá có thể khác nhau), và bảng này em theo dõi nhiều mục khác nữa nên em sợ mình sẽ quên bỏ lọc ở cột nào đó vì thế mà các đơn hàng sau có thể bị đi trước.
Mong anh chỉ thêm.

 

[esuomy]

Bạn xem như thế này có được không?
Nút lệnh ở sheet Theo doi PI --- (vùng a1:a3)

Mình tham khảo bài làm của bạn thấy rất hay, có điều minh không hiểu bạn làm những nút lệnh đó bằng cách nào. Chỉ cho minh với có được không, cảm ơn

 

[ngoinhahoahong1492]

Em mở nhưng không thấy nút lệnh, anh xem lại giúp em nhé.
Em cám ơn nhiều.

Em đã mở được rồi, em cám ơn nhiều.

 

[ndu96081631]

Bạn xem như thế này có được không?
Nút lệnh ở sheet Theo doi PI --- (vùng a1:a3)

Cũng may, dữ liệu dưới 200 dòng chứ cở 20000 dòng mà For... Next kiểu này thì chắc phải.. đi uống cafe
Nếu là tôi thì tôi làm thế này:

Sub GIAU()
  Sheet1.Range("Z:Z").AutoFilter 1, "<>0", , , False
End Sub

Sub HIEN()
  On Error Resume Next
  Sheet1.AutoFilterMode = False
End Sub

 

[ngoinhahoahong1492]

Cũng may, dữ liệu dưới 200 dòng chứ cở 20000 dòng mà For... Next kiểu này thì chắc phải.. đi uống cafe
Nếu là tôi thì tôi làm thế này:

Sub GIAU()
  Sheet1.Range("Z:Z").AutoFilter 1, "<>0", , , False
End Sub

Sub HIEN()
  On Error Resume Next
  Sheet1.AutoFilterMode = False
End Sub

Em đã dùng code này, nhưng một vấn đề là: Em muốn ẩn hiện mà vẫn có thể lọc dữ liệu.
Vì em thường lọc dữ liệu tùy theo công việc, đây là file theo dõi tổng hợp của khách hàng này, nên có nhiều việc liên quan. Muốn tránh trường hợp quên bỏ lọc ở cột số lượng hàng, để hàng đi trước đi sau theo thời gian, do đó em muốn ẩn dòng (bằng 0). Nhưng ẩn dòng theo code thì không thể lọc bình thường.
Xin giúp em khắc phục điều này. Em cám ơn các anh chị nhiều.

 

[dhn46]

Bạn xem lại cách tính của bạn. vì điều kiện ưu tiên đầu tiên là ẩn dòng thì đã có code rồi.
Nếu chỉ cần lọc các giá trị đơn giản thì auto fillter 2, 3 cột, cột cuối cùng thì không cho hiện 0 nữa thì sao phải code.

 

[trungnt]

Cũng may, dữ liệu dưới 200 dòng chứ cở 20000 dòng mà For... Next kiểu này thì chắc phải.. đi uống cafe
Nếu là tôi thì tôi làm thế này:

Sub GIAU()
  Sheet1.Range("Z:Z").AutoFilter 1, "<>0", , , False
End Sub

Sub HIEN()
  On Error Resume Next
  Sheet1.AutoFilterMode = False
End Sub

Dùng cách Pac Duc rat hay nhung bi hạn chế số vùng, tức là tôi có 4 vùng mà trong các vùng đó có số dòng(hàng) cần ẩn đi nhưng không hiểu sao .....máy chỉ chạy trong 3 vùng còn 1 vùng bỏ lại....tôi không hiểu tại sao.....Nhờ Pác Đức chỉ giáo giúp... Code của tôi như sau:

Private Sub CmdHidden_Click()

With Sheets("Khaudo1")
Range("C10:C39").AutoFilter 1, "<>0", , , False
Range("C41:C70").AutoFilter 1, "<>0", , , False
Range("C72:C101").AutoFilter 1, "<>0", , , False
Range("B140:B189").AutoFilter 1, "<>0", , , False 'Cái này nó không chạy, nếu đem ghép vào cái trên cho gọn thì nó báo lỗi......nhìu qúa!
End With
Range("K1").Select

End Sub

 

[trungnt]

Buồn qúa.....đợi hoài o thấy Pác nào chỉ giúp...