Trong Sub GPE1 có câu lệnh này:GPE xem dùm file e bị lỗi gì về code dùm e: sheet "Tong hop (2)" em sort theo ngày mà bào lỗi không chạy được.Tập tin đính kèm
If K Then Sheets("Tong Hop").[C6].Resize([COLOR=#ff0000][B]U[/B][/COLOR], 5).Value = ArrPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Cells.Count > 1 Then Exit Sub
If Target.Row <> [COLOR=#ff0000][B]5[/B][/COLOR] Then Exit Sub
[[COLOR=#ff0000][B]5[/B][/COLOR]:65536].Sort Key1:=Cells([COLOR=#ff0000][B]5[/B][/COLOR], Target.Column), Order1:=xlAscending, Header:=[COLOR=#ff0000][B]xlYes[/B][/COLOR]
Application.ScreenUpdating = True
End Sub
Public Sub GPE1()
Dim Tu As Long, Den As Long, Rng(), I As Long, K As Long
Dim Arr(1 To 1000, 1 To 4), Ws As Worksheet
Application.ScreenUpdating = False
Tu = Sheet21.[E2].Value
Den = Sheet21.[E3].Value
If Tu <> 0 And Den <> 0 Then
Sheet21.[C6:U16000].ClearContents
For Each Ws In Worksheets
If Ws.CodeName <> "Sheet21" And Ws.CodeName <> "Sheet4" Then
If Ws.[B65536].End(3).Row > 5 Then
Rng = Ws.Range(Ws.[B4], Ws.[B65000].End(xlUp)).Resize(, 19).Value
For I = 1 To UBound(Rng, 1)
If Rng(I, 1) <= Den And Rng(I, 1) >= Tu Then
K = K + 1
Arr(K, 1) = K: Arr(K, 2) = Rng(I, 1)
Arr(K, 3) = Rng(I, 2): Arr(K, 4) = Rng(I, 3)
End If
Next I
End If
End If
Next
If K Then Sheet21.[C6].Resize(K, 5).Value = Arr
Sheet21.Select
Sheet21.Range([C6], [C65000].End(xlUp)).Sort Key1:=Range("C5")
End If
Sheet21.Range("$C$5:$U$65000").AutoFilter Field:=15, Criteria1:="<>"""
Application.ScreenUpdating = True
End Sub
pen và Auto_Close (Khi nào bạn dùng thì bỏ Rem đi)E gửi file mới nhất để GPE giúp đỡ, file e đã nhập dữ liệu vào 2 sheet "toyo3" và "KWT2".File e có thử code cho sheet "Tong hợp" nhưng chưa lọc theo ngày được.(pass unlock sheet là : "gpe"Tôi thấy bạn đã là thành viên"2 sao" rồi mà vẫn gửi file dạng này, hoàn toàn không có 1 chút dữ liệu nào làm sao kiểm tra. Nhập giả định vào e không chuẩn.
Đề nghị:
-Rem toàn bộ 2 đoạn Code Aut
-Trong file các sheet cần tổng hợp cần phải có ít nhất vài dòng dữ liệu.
-Mẫu kết quả tổng hợp như thế nào (Vì mình tin dại đa số ít người hiểu chính xác bạn cần làm gì)
Vậy nha, bạn làm khó bạn nên chậm trả lời thôi. Nếu bạn chi tiết chắc không phải giục đâu.
E gửi file mới nhất để GPE giúp đỡ, file e đã nhập dữ liệu vào 2 sheet "toyo3" và "KWT2".File e có thử code cho sheet "Tong hợp" nhưng chưa lọc theo ngày được.(pass unlock sheet là : "gpe"Tôi thấy bạn đã là thành viên"2 sao" rồi mà vẫn gửi file dạng này, hoàn toàn không có 1 chút dữ liệu nào làm sao kiểm tra. Nhập giả định vào e không chuẩn.
Đề nghị:
-Rem toàn bộ 2 đoạn Code Aut
-Trong file các sheet cần tổng hợp cần phải có ít nhất vài dòng dữ liệu.
-Mẫu kết quả tổng hợp như thế nào (Vì mình tin dại đa số ít người hiểu chính xác bạn cần làm gì)
Vậy nha, bạn làm khó bạn nên chậm trả lời thôi. Nếu bạn chi tiết chắc không phải giục đâu.
Function MySh(ByVal CodeName As String) As Worksheet
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.CodeName = CodeName Then
Set MySh = Sh
Exit Function
End If
Next
Set MySh = Nothing
End FunctionPublic Sub GPE()
Dim tu As Date, ShList(), Res(1 To 6000, 1 To 20), Tm, i, j, n, m
tu = Sheet21.[E2].Value
If Not IsDate(tu) Then
MsgBox "Sai ngay"
Exit Sub
End If
ShList = Array("Sheet3", "Sheet4")
Application.ScreenUpdating = False
For i = LBound(ShList) To UBound(ShList)
Tm = MySh(ShList(i)).Range("A3:T" & MySh(ShList(i)).[A65536].End(xlUp).Row)
For j = 1 To UBound(Tm, 1)
If Tm(j, 1) >= tu And Tm(j, 1) <> "" Then
n = n + 1
For m = 1 To 20
Res(n, m) = Tm(j, m)
Next m
End If
Next j
Next i
Sheet21.[B6:U6000].ClearContents
Sheet21.[B6:U6000] = Res
End SubSub LockSh()
Dim ShList(), i
ShList = Array("Sheet3", "Sheet4")
For i = LBound(ShList) To UBound(ShList)
With MySh(ShList(i))
.Unprotect "gpe"
.Cells.Locked = False
.Range("A1:T1000").SpecialCells(xlCellTypeConstants, 23).Locked = True
.Range("A1:T1000").SpecialCells(xlCellTypeFormulas, 23).Locked = True
.Protect "gpe"
End With
Next
End SubCode "Locksh" là để luôn lưu dữ liệu trước khi tắt, đề phòng bị tắt file mà chưa lưu đó a và nó khoá những cell đã có dữ liệu (nhập dữ liệu vào save là khoá những cell trong vùng chỉ định.)
Không có code lọc theo cột "O " anh, lọc theo cột có chữ "END" trong bảng tổng hợp đó.??Mà sao nhập ngày nhỏ khác vào celll E2 vẫn hiện lên sao a.ở đây dữ liệu ngày 18/10 hết , mà nhập các ngày 16/10 hay 17/10 cũng showall hết.
- Đúng rồi chỉ chọn lọc bằng ngày,lọc ngày của cột "Release date" ở cell "E2", nhưng file a gửi nếu mình nhập khác ngày 18/10 đó thì sẽ không có dữ liệu của ngày 18/10 chứ,(ở đây e nhập ngày 17/10 dữ liệu 18/10cũng hiện ra).
Public Sub GPE()
Dim tu As Date, ShList(), Res(1 To 6000, 1 To 20), Tm, i, j, n, m
tu = Sheet21.[E2].Value
If Not IsDate(tu) Then
MsgBox "Sai ngay"
Exit Sub
End If
ShList = Array("Sheet3", "Sheet4")
Application.ScreenUpdating = False
For i = LBound(ShList) To UBound(ShList)
Tm = MySh(ShList(i)).Range("A3:T" & MySh(ShList(i)).[A65536].End(xlUp).Row)
For j = 1 To UBound(Tm, 1)
[B][COLOR=#ff0000]If Format(Tm(j, 1), "dd/mm/yyyy") Like Format(tu, "dd/mm/yyyy") And Tm(j, 14) = "END" Then[/COLOR][/B]
n = n + 1
For m = 1 To 20
Res(n, m) = Tm(j, m)
Next m
End If
Next j
Next i
Sheet21.[B6:U6000].ClearContents
Sheet21.[B6:U6000] = Res
End SubThank anh nhiều lắm, code nay e áp dụng tong hop cho 16 sheet (mỗi sheet 600 dòng ) chắc cũng nhanh a nhỉ.
