Nhờ hỗ trợ chỉnh sửa code VBA (1 người xem)

[dinhquang042000]

Kính gửi Các anh ch diễn đàn,

Qua tìm hiểu trên Forum và giúp đỡ của các anh chị em có code VBA tổng hợp dữ liệu từ nhiều file excel sang 1 file excel có sẵn ( file "TONG HOP VS & SC đính kèm)
Nhưng do dữ liệu trong các file con (vd 2 file BAO CAO XOA REMARK NGAY đính kèm) xuất từ hệ thống có các cột J, K, S chỉ có kiểu định dạng text giống ngày tháng năm. Nên khi chạy file TONG HOP VS & SC thì các giá trị có giá trị ngày < 10 thường bị đảo lộn ngày thành tháng, tháng thành ngày.
Mong anh chị dành chút thời gian chỉ giúp e chỉnh code này sao cho các cột J, K, S lấy được giá trị đúng ngày, tháng, năm.
Em xin cảm ơn mọi người nhiều!

Sub TONGHOP()
Dim arr, K, tong
Dim a As Long
Dim wb As Workbook
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Set tong = ThisWorkbook.Sheets("DATA")
With Application.FileDialog(msoFileDialogFilePicker)
     .AllowMultiSelect = True
     If Not .Show = -1 Then MsgBox ("KHONG CHON FILE NAO"), vbCritical, "KK": Exit Sub
 For Each K In .SelectedItems
    Set wb = Workbooks.Open(K)
    arr = wb.Sheets(1).Range("a8:S" & wb.Sheets(1).Range("b" & Rows.Count).End(xlUp).Row).Value
    wb.Close False
    a = tong.Range("b" & Rows.Count).End(xlUp).Row + 1
    tong.Range("a" & a).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
    Erase arr
 Next
End With
Application.ScreenUpdating = True
Application.AskToUpdateLinks = True
Application.DisplayAlerts = True

End Sub

 

[snow25]

Kính gửi Các anh ch diễn đàn,

Qua tìm hiểu trên Forum và giúp đỡ của các anh chị em có code VBA tổng hợp dữ liệu từ nhiều file excel sang 1 file excel có sẵn ( file "TONG HOP VS & SC đính kèm)
Nhưng do dữ liệu trong các file con (vd 2 file BAO CAO XOA REMARK NGAY đính kèm) xuất từ hệ thống có các cột J, K, S chỉ có kiểu định dạng text giống ngày tháng năm. Nên khi chạy file TONG HOP VS & SC thì các giá trị có giá trị ngày < 10 thường bị đảo lộn ngày thành tháng, tháng thành ngày.
Mong anh chị dành chút thời gian chỉ giúp e chỉnh code này sao cho các cột J, K, S lấy được giá trị đúng ngày, tháng, năm.
Em xin cảm ơn mọi người nhiều!

Sub TONGHOP()
Dim arr, K, tong
Dim a As Long
Dim wb As Workbook
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Set tong = ThisWorkbook.Sheets("DATA")
With Application.FileDialog(msoFileDialogFilePicker)
     .AllowMultiSelect = True
     If Not .Show = -1 Then MsgBox ("KHONG CHON FILE NAO"), vbCritical, "KK": Exit Sub
For Each K In .SelectedItems
    Set wb = Workbooks.Open(K)
    arr = wb.Sheets(1).Range("a8:S" & wb.Sheets(1).Range("b" & Rows.Count).End(xlUp).Row).Value
    wb.Close False
    a = tong.Range("b" & Rows.Count).End(xlUp).Row + 1
    tong.Range("a" & a).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
    Erase arr
Next
End With
Application.ScreenUpdating = True
Application.AskToUpdateLinks = True
Application.DisplayAlerts = True

End Sub

Cái này lỗi do định dạng ngày tháng của bạn.Bạn chỉnh lại là được.

 

[dinhquang042000]

Cái này lỗi do định dạng ngày tháng của bạn.Bạn chỉnh lại là được.

Dạ các file cần tổng hợp của em, mấy cột này nó ở dạng text có dạng giống thời gian dd/mm/yyyy hh:mm.
Nhưng khi tổng hợp qua FIle TONG HOP VS & SC, các ngày <10 sẽ đảo lộn ngày tháng VD: 09/11/2018 khi tổng hợp chuyển sang 11/09/2018
Do em phải tổng hợp nhiều file, nên để đổi định dạng từng file sẽ mất nhiều thời gian.
Anh Chị xem có cách nào để khi Chạy TONG HOP các cột J, K, S này thể hiện đúng giúp em với ạ.