Bạn xem lại cột I [MASP]??
bạn thay đổi tháng trong file, xem kết quả
Code cho module:
Sub Locc()
Application.ScreenUpdating = False
Dim z As Long, tmp As Variant, r As Long, KQ() As Variant, j As Long
Dim d1 As Long, d2 As Long, m As Long, y As Long, D
m = Sheet2.Range("B4"): y = Sheet2.Range("D4")
d1 = DateSerial(y, m, 1): d2 = Application.WorksheetFunction.EoMonth(d1, 0)
With Sheet1
z = .Range("G" & .Rows.Count).End(xlUp).Row
tmp = .Range("G6:AF" & z): z = UBound(tmp, 1)
ReDim KQ(1 To z, 1 To 13)
For r = 1 To z
D = tmp(r, 19)
If D <> Empty Then
D = CDate(D): D = CLng(D)
If d1 <= D And D <= d2 Then
j = j + 1
KQ(j, 1) = j: KQ(j, 2) = tmp(r, 3)
KQ(j, 3) = tmp(r, 2): KQ(j, 4) = tmp(r, 1)
KQ(j, 5) = tmp(r, 26): KQ(j, 6) = tmp(r, 4)
KQ(j, 7) = tmp(r, 17): KQ(j, 8) = tmp(r, 8)
KQ(j, 9) = CDate(tmp(r, 18)): KQ(j, 10) = CDate(tmp(r, 19))
KQ(j, 11) = tmp(r, 21): KQ(j, 12) = tmp(r, 24)
KQ(j, 13) = CDate(tmp(r, 23))
End If
End If
Next r
End With
If j Then
Sheet2.Range("A14").Resize(10000, 13).ClearContents
Sheet2.Range("A14").Resize(j, 13) = KQ
End If
Application.ScreenUpdating = True
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then Locc
End Sub
Thường thì dữ liệu chương trình bạn dán qua file dữ liệu có cột cố định và số hàng biến động, vã lại các định dạng của ngày tháng thường là dạng "text", nên tôi gửi bạn giải pháp: giữ nguyên hiện trạng định dạng của dữ liệu từ chương trình xuất ra, vì lẽ này tôi tạo các "Vùng dữ liệu động" để thích hợp cho bảng lấy chi tiết.
B15=IFERROR(OFFSET(Cot,SMALL(IF((--VungSsanh<=TODAY())*(TEXT(--VungSsanh,"yyyymm")=$D$4&RIGHT("00"&$B$4,2)),ThutuXH),ROW($A1)),),"")B15=IFERROR(OFFSET(Cot,SMALL(IF((TEXT(--VungSsanh,"yyyymm")=$D$4&RIGHT("00"&$B$4,2)),ThutuXH),ROW($A1)),),"")Để tôi xem lại bài của bạn trước, vì lâu quá cũng không hiểu mình làm cái gì?
Người ta bỏ công bỏ sức ra tìm giải pháp giúp bạn. Khi xong việc, bạn xóa hết nội dung và yêu cầu giúp đở của bạn thì theo ý kiến cá nhân của tôi là bạn làm vậy xem như phủi bỏ hết công sức của người giúp đở mình. Hãy nhìn lại từ đầu bài viết, bạn sửa lại bài, làm cho những bài viết của những thành viên giúp đở bạn trở nên lạc lõng, nếu không muốn nói là vô nghĩa.
Mặc dù xong công việc rồi thì bạn không cần nữa.
