Chạy marcos bị lỗi (không tổng hợp đủ dữ liệu)

[bosscomhcvp]

Em chào các anh/chị.
Trước em có làm 1 file tổng hợp công việc sắp xếp theo thứ tự hạn hoàn thành. Lúc làm ví dụ thì tổng hợp ổn nhưng khi đưa đúng công việc vào thì lại tổng hợp không đủ và không đúng thứ tự. Anh/chị xem giúp em lỗi sai ở đâu ạ?
Em cảm ơn nhiều ạ!

 

[snow25]

Em chào các anh/chị.
Trước em có làm 1 file tổng hợp công việc sắp xếp theo thứ tự hạn hoàn thành. Lúc làm ví dụ thì tổng hợp ổn nhưng khi đưa đúng công việc vào thì lại tổng hợp không đủ và không đúng thứ tự. Anh/chị xem giúp em lỗi sai ở đâu ạ?
Em cảm ơn nhiều ạ!

Theo mình đoán chắc là do dòng này.

sArr = Ws.Range("B6:O41").Value

Bạn sửa lại code như vầy xem.

Public Sub sGpe()
Application.ScreenUpdating = False
Dim Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To 7), lr As Long
Dim I As Long, J As Long, K As Long, R As Long
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "HOME" Then
        lr = Ws.Range("B" & Rows.Count).End(xlUp).Row
        If lr > 5 Then
        sArr = Ws.Range("B6:O" & lr).Value
        R = UBound(sArr)
        For I = 1 To R
            If sArr(I, 1) <> Empty Then
                K = K + 1
                dArr(K, 1) = K
                dArr(K, 2) = sArr(I, 1)
                dArr(K, 3) = sArr(I, 2)
                dArr(K, 4) = sArr(I, 3)
                dArr(K, 5) = Ws.Name
                dArr(K, 6) = sArr(I, 7)
                dArr(K, 7) = sArr(I, 14)
            End If
        Next I
        End If
    End If
Next Ws
With Sheets("HOME")
    .Range("A5").Resize(1000, 8).ClearContents
    If K Then
        .Range("A5").Resize(K, 7) = dArr
        .Range("B5").Resize(K, 6).Sort Key1:=.Range("D5"), Order1:=xlAscending
    End If
End With
Application.ScreenUpdating = True
End Sub

 

[bosscomhcvp]

Theo mình đoán chắc là do dòng này.

sArr = Ws.Range("B6:O41").Value

Bác có thể sửa giúp em được k ạ?

 

[snow25]

Bác có thể sửa giúp em được k ạ?

Mình sửa ở bài trên rồi bạn xem đúng không.

 

[bosscomhcvp]

Mình sửa ở bài trên rồi bạn xem đúng không.

Vẫn bị sắp xếp sai thứ tự bạn ạ ((

 

[snow25]

Vẫn bị sắp xếp sai thứ tự bạn ạ ((

Code trên là sắp xếp theo cột D thế bạn muốn sắp xếp theo cột nào vậy.

 

[bosscomhcvp]

Code trên là sắp xếp theo cột D thế bạn muốn sắp xếp theo cột nào vậy.

Mình vẫn sắp xếp theo cột D bạn ạ. Mình sửa theo code bạn gửi thì 2019 và 2018 sắp xếp lẫn lộn k đúng thứ tự.

 

[giaiphap]

Mình vẫn sắp xếp theo cột D bạn ạ. Mình sửa theo code bạn gửi thì 2019 và 2018 sắp xếp lẫn lộn k đúng thứ tự.

Dữ liệu trong file của bạn ở cột D có cái là ngày tháng có cái là Text thì sắp xếp chắc chắn sẽ sai rồi.

 

[bosscomhcvp]

Dữ liệu trong file của bạn ở cột D có cái là ngày tháng có cái là Text thì sắp xếp chắc chắn sẽ sai rồi.

Mình hiểu rồi. Cảm ơn bạn

 

[bosscomhcvp]

Các bác ơi, lại là em đây ạ.
Em đã chỉnh lại hết định dạng cột C và D thành Date rồi nhưng chỉ đoạn đầu sắp xếp đúng, đoạn sau lại sai rồi ạ.
Các bác cao tay giúp em với ạ.

 

[snow25]

Các bác ơi, lại là em đây ạ.
Em đã chỉnh lại hết định dạng cột C và D thành Date rồi nhưng chỉ đoạn đầu sắp xếp đúng, đoạn sau lại sai rồi ạ.
Các bác cao tay giúp em với ạ.

Bạn sort bằng tay xem nó ra cái gì.

 

[bosscomhcvp]

Bạn sort bằng tay xem nó ra cái gì.

Sort bằng tay vẫn ra lẫn lộn như thế bạn ạ@@

 

[thuyyeu99]

Sort bằng tay vẫn ra lẫn lộn như thế bạn ạ@@

Nếu vậy bạn phải thiết kế lại cái Data của bạn

 

[be_09]

Các bác ơi, lại là em đây ạ.
Em đã chỉnh lại hết định dạng cột C và D thành Date rồi nhưng chỉ đoạn đầu sắp xếp đúng, đoạn sau lại sai rồi ạ.
Các bác cao tay giúp em với ạ.

Nhập ngày sai tá lã, âm binh thì lấy gì ra được kết quả.
Bạn thử Format cột C và D là Number, nếu nó không ra số là do nhập sai (để biết mà sửa) hoặc do Copy từ Word vào (nó ra dạng Text).