Trích lọc từ sổ nhật ký chung để in

[quangsangkt]

Nhờ các cao thủ VBA giúp tôi với. Tôi có 1 file nhật ký chung - giờ tôi muốn khi click vào nút lọc dữ liệu ở Sheet2 thông qua số phiếu thì nó hiện lên dữ liệu ở Sheet1 lấy qua.Tôi có gửi file đính kèm - nhờ các cao thủ giúp.

 

[quangsangkt]

Sư huynh hoangdanh ơi - ra tay giúp với đi ! Cái này chắc hoangdanh làm trong vài phút ah - nhưng e phải tới mấy ngày mà vẫn không chạy được.

 

[quangsangkt]

Các pác xem qua đoạn code này


Private Sub CommandButton1_Click()
Dim i, j, k, n, n1, sophieu
Dim nh
On Error GoTo ketthuc




Application.ScreenUpdating = False
On Error GoTo THOAT
Set WsN = Worksheets("sheet1")
Set WsD = Worksheets("sheet2")

m = WsN.Range("D65000").End(xlUp).Row
n = WsD.Range("D65000").End(xlUp).Row
TK = WsD.Range("B1").Value
'Xoa du lieu cu cua sheet SOCAI
If n > 7 Then WsD.Range("A7" & n).Clear
'Dung vong lap de gan du lieu
For i = 7 To m
If WsN.Range("A" & i) = TK Then
n = Range("A7").Row
WsN.Range("F" & i).Copy Destination:=WsD.Range("A" & n)
WsD.Range("B" & n) = WsN.Range("G" & i)
WsD.Range("C" & n) = WsN.Range("H" & i)
WsD.Range("D" & n) = WsN.Range("I" & i)



End If
Next

THOAT:
Exit Sub


End Sub

Sao mà khi chạy nó chỉ lấy được 1 dòng thôi - trong khi đúng là phải 2 dòng !

Nhờ các pác chỉ điểm