Giup tạo bảng in từ sheet dulieu (2 người xem)

[vu_ctn]

Mình đang tạo 1 bảng in từ sheet tong hop sang sheet in BCT. nhưng gặp 1 số khó khăn xin ACE giúp đỡ và đưa ra hướng giải quyết dùm mình:
Trong bảng in chỉ thể hiện những vật tư có điền giá trị trong bảng TONGHOP, còn những vật tư khg có giá trị sẽ không thể hiện bên sheet IN BCT.
(yêu cầu trong file đính kèm)

 

[TongDe]

Thêm 3 dòng phụ rồi lockup là OK

 

[vu_ctn]

mình đã hiểu rồi. Cảm on bạn nhiều. Mình còn 1 yêu cầu nữa : Bạn có thể chỉ mình cách ẩn những dòng còn tróng đc kg? vì khi in ra co những dòng còn tróng thì nhìn xấu lắm.
VD : khi nhập BCT là 4 bảng in hiện ra 8 loại mặt hàng, mình muốn ẩn đi dòng 20 -> dòng 29.

 

[TongDe]

Thêm doạn sub này:
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] > 0 Then
'Tat man hinh de chuong trinh chay nhanh hon
Application.ScreenUpdating = False
'hien nhung hang dang an
[12:29].EntireRow.Hidden = False
Dim DBD As Integer ' dong bat dau
DBD = [a1] + 12
Range(DBD & ":" & 29).EntireRow.Hidden = True
Application.ScreenUpdating = true
End If
End Sub

 

[vu_ctn]

Cảm ơn bạn đã giúp đỡ nhiệt tình.