HỖ TRỢ LÀM PHIẾU IN VỚI VBA

[Lavie15]

Các bác ơi.
Em có một file IN PHIẾU KIỂM KÊ em muốn khi chọn số phiếu ở cột P6 thì những dòng lấy theo điều kiện côt tai cột O8 đến O9590 có giá trị là "1" thì tự động hiện lên và sẽ tự động ẩn đi nếu điều kiện côt tai cột O8 đến O9590 có giá trị là khoảng trống "" mà em không biết làm thế nào cả.
Ngày 02.01.2019 là em phải làm việc với file này rồi.

cảm ơn các bác.

 

[snow25]

Các bác ơi.
Em có một file IN PHIẾU KIỂM KÊ em muốn khi chọn số phiếu ở cột P6 thì những dòng lấy theo điều kiện côt tai cột O8 đến O9590 có giá trị là "1" thì tự động hiện lên và sẽ tự động ẩn đi nếu điều kiện côt tai cột O8 đến O9590 có giá trị là khoảng trống "" mà em không biết làm thế nào cả.
Ngày 02.01.2019 là em phải làm việc với file này rồi.

cảm ơn các bác.

Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Address = "$P$6" Then
          Sheets("Form").Range("o7:o9590").AutoFilter Field:=1, Criteria1:=Target.Value
        End If
End Sub

Đây bạn xem.