Ẩn dòng kết hợp với countif

[nguyenvietviet]

Chào các pác. Mong các pác chia sẻ và giúp đỡ.
Tôi muốn đếm dữ liệu giống nhau vùng C14:C52 của sheet SQ.
Nếu đếm với điều kiện ở ô H5 bằng 1 thì ẩn dòng A7 và A31 của sheet INPT, nếu bằng 2 thì hiện ẩn 2 dòng đó.
Mong mọi người giúp đỡ!
http://www.zshare.net/download/94515663b72adfb3/

 

[Hoàng Trọng Nghĩa]

Cái File chẳng có bao nhiêu dung lượng hết, gửi hẳn lên đây đi, gửi lên trang khác lòng vòng mà cả tiếng đồng cũng chẳng down về được!

 

[nguyenvietviet]

.Vâng e gửi lên đây. Mong mọi người

 

[concogia]

Chào các pác. Mong các pác chia sẻ và giúp đỡ.
Tôi muốn đếm dữ liệu giống nhau vùng C14:C52 của sheet SQ.
Nếu đếm với điều kiện ở ô H5 bằng 1 thì ẩn dòng A7 và A31 của sheet INPT, nếu bằng 2 thì hiện ẩn 2 dòng đó.

Nếu đếm khác 1, 2 thì sao hả bạn
Thật tình chưa hiểu lắm, tam thời gởi bạn một cách làm, nhập dữ liệu ở [H5] để chạy code

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.ScreenUpdating = False
    If Target.Address = "$H$5" Then
      Cells.EntireRow.Hidden = False
        If Application.WorksheetFunction.CountIf(Sheets("SQ").[c14:c52], Target.Value) = 1 Then
            Range("7:7,31:31").EntireRow.Hidden = True
        End If
    End If
  Application.ScreenUpdating = True
End Sub

Có gì bàn tiếp
Thân

 

[nguyenvietviet]

Cám ơn các pác nhiều.
Các pác giúp em sửa code này với ActiveSheet.PrintOut from:=1, To:=1, copies:=1, collate:=True thế này chỉ in được trang đầu tiên thui. Nếu có 2 trang thì không in được. Các pác giúp em nha ví dụ e co nhiều trang thì khó wa.hjx

 

[TrungChinhs]

Cám ơn các pác nhiều.
Các pác giúp em sửa code này với ActiveSheet.PrintOut from:=1, To:=1, copies:=1, collate:=True thế này chỉ in được trang đầu tiên thui. Nếu có 2 trang thì không in được. Các pác giúp em nha ví dụ e co nhiều trang thì khó wa.hjx

Bạn sửa code thành ActiveSheet.PrintOut (xóa những chữ màu đỏ) xem có được không ?

 

[nguyenvietviet]

Cám ơn mọi người. Mình làm được rùi.