VBA giúp gộp các file con thành file tổng theo điều kiện

[quangtro]

Chào mọi người,

Mọi người có thể code giúp mình VBA gộp nhiều file thành 1 file tổng theo điều kiện được không

Chả là hàng tháng mình có nhận rất nhiều file về các phí dịch vụ của IT từ HQ. Mỗi file là 1 phí dịch vụ IT, mỗi file có cấu trúc các cột, dòng không giống nhau.
Trong các file đó có rất nhiều chi nhánh mình cần phải lọc ra đúng chi nhánh của mình theo cột DAC=046016 và cột cost > 0.
Sau khi lọc xong chỉ lấy giá trị ở những cột cần thiết ( cột bôi màu vàng) copy về file tổng để phân tích và báo cáo.

Cụ thể điều kiện gộp và copy giá trị ở cột nào về file tổng như thế nào thì nhờ mọi người xem file đính kèm giúp nhé.

Cảm ơn nhiều.!!

 

[thnghiachau]

Chào mọi người,

Mọi người có thể code giúp mình VBA gộp nhiều file thành 1 file tổng theo điều kiện được không

Chả là hàng tháng mình có nhận rất nhiều file về các phí dịch vụ của IT từ HQ. Mỗi file là 1 phí dịch vụ IT, mỗi file có cấu trúc các cột, dòng không giống nhau.
Trong các file đó có rất nhiều chi nhánh mình cần phải lọc ra đúng chi nhánh của mình theo cột DAC=046016 và cột cost > 0.
Sau khi lọc xong chỉ lấy giá trị ở những cột cần thiết ( cột bôi màu vàng) copy về file tổng để phân tích và báo cáo.

Cụ thể điều kiện gộp và copy giá trị ở cột nào về file tổng như thế nào thì nhờ mọi người xem file đính kèm giúp nhé.

Cảm ơn nhiều.!!

Bạn này thật là vui tính nhỉ???
cách đây không lâu Jul 21, 2020 bạn mở cái này ra :
Code VBA giúp tự động gộp và copy có điều kiện nhiều file thành 1 file tổng hợp báo cáo
mọi người hì hục làm giúp bạn...
và rồi bây giờ lại mở cái Y CHANG không khác gì cả nữa???
bạn nghĩ sao vậy ta ???????????????????????????

 

[befaint]

Bởi vì ở thớt bên kia chưa được cái như ý.

 

[quangtro]

Bạn này thật là vui tính nhỉ???
cách đây không lâu Jul 21, 2020 bạn mở cái này ra :
Code VBA giúp tự động gộp và copy có điều kiện nhiều file thành 1 file tổng hợp báo cáo
mọi người hì hục làm giúp bạn...
và rồi bây giờ lại mở cái Y CHANG không khác gì cả nữa???
bạn nghĩ sao vậy ta ???????????????????????????

Bạn ơi,
Tại vì code bạn chạy ra kết quả chưa được như ý, mình cũng có dành thời gian để tìm hiểu code bạn viết để chỉnh sửa theo ý mình nhưng code bạn dài và thật sư khó hiểu quá nên mình không thể theo được mà chỉ theo được code của bạn
Maika8008 . code bạn này viết ngắn gọn lại dễ hiểu mình có thể tùy chỉnh lấy từ hàng nào cột nào trong file con và tùy ý sắp xếp được số thứ tự cột trong file tổng để lưu dữ liệu tương ứng từ file con đỗ về. Nhưng rất tiếc sau khi lấy dữ liệu từ file con về, bạn ấy chưa giúp mình code được cho dữ liệu ở cột " cost2" và "cost3" trong file tổng ( về phần này chắc bạn cũng chưa hiểu được ý nên code không như ý mình).

Một phần nữa là code lấy dữ liệu từ tên file cho cột "Date' và cột " IT service" mình nghĩ hoài không ra. Code trước bạn
Maika8008 dùng hàm Left để lấy 4 ký tự từ trái qua cho cột " Date". Bây giờ mình muốn lấy 4 ký tự theo hàm Mid mà không biết chỉnh sửa code sao cho đúng.
Code lấy ký tự cho cột " IT service" cũng vậy, mình đọc không hiểu nên không biết chỉnh sửa sao.

Tuy rằng mình không biết code nhưng những cái đơn giản mình cũng muốn hiểu để chỉnh sữa theo ý khi mỗi lần tên file thay đổi hay cái gì nhỏ nhỏ thay đổi thì mình có thể tự chỉnh được

Sub GetYear_Name(FName As String)

Y = Left(FName, 4)
If InStr(1, FName, "(") > 0 Then
N = Mid(FName, InStr(1, FName, "(") + 1, InStrRev(FName, ")") - InStr(1, FName, "(") - 1)
Else
N = Mid(FName, 6, InStrRev(FName, ".") - 6)
End If

End Sub.

Cuối cùng, Mình có nghiên cứu và tìm hiểu để chỉnh theo ý nhưng không được nên mới lên đây hỏi các cao nhân tiếp để mong được hỗ trợ.

Nếu được thì mong mọi người hãy theo sườn code của bạn Maika8008 để chỉnh sửa tiếp code phần lấy tên cho cột "Date' và cột " IT service" theo tên file mình đính kèm. Và code giúp mình cột dữ liệu ở cột "cost2" và "cost3" trong file tổng nhé.

 

[quangtro]

Bạn ơi,
Tại vì code bạn chạy ra kết quả chưa được như ý, mình cũng có dành thời gian để tìm hiểu code bạn viết để chỉnh sửa theo ý mình nhưng code bạn dài và thật sư khó hiểu quá nên mình không thể theo được mà chỉ theo được code của bạn
Maika8008 . code bạn này viết ngắn gọn lại dễ hiểu mình có thể tùy chỉnh lấy từ hàng nào cột nào trong file con và tùy ý sắp xếp được số thứ tự cột trong file tổng để lưu dữ liệu tương ứng từ file con đỗ về. Nhưng rất tiếc sau khi lấy dữ liệu từ file con về, bạn ấy chưa giúp mình code được cho dữ liệu ở cột " cost2" và "cost3" trong file tổng ( về phần này chắc bạn cũng chưa hiểu được ý nên code không như ý mình).

Một phần nữa là code lấy dữ liệu từ tên file cho cột "Date' và cột " IT service" mình nghĩ hoài không ra. Code trước bạn
Maika8008 dùng hàm Left để lấy 4 ký tự từ trái qua cho cột " Date". Bây giờ mình muốn lấy 4 ký tự theo hàm Mid mà không biết chỉnh sửa code sao cho đúng.
Code lấy ký tự cho cột " IT service" cũng vậy, mình đọc không hiểu nên không biết chỉnh sửa sao.

Tuy rằng mình không biết code nhưng những cái đơn giản mình cũng muốn hiểu để chỉnh sữa theo ý khi mỗi lần tên file thay đổi hay cái gì nhỏ nhỏ thay đổi thì mình có thể tự chỉnh được

Sub GetYear_Name(FName As String)

Y = Left(FName, 4)
If InStr(1, FName, "(") > 0 Then
N = Mid(FName, InStr(1, FName, "(") + 1, InStrRev(FName, ")") - InStr(1, FName, "(") - 1)
Else
N = Mid(FName, 6, InStrRev(FName, ".") - 6)
End If

End Sub.

Cuối cùng, Mình có nghiên cứu và tìm hiểu để chỉnh theo ý nhưng không được nên mới lên đây hỏi các cao nhân tiếp để mong được hỗ trợ.

Nếu được thì mong mọi người hãy theo sườn code của bạn Maika8008 để chỉnh sửa tiếp code phần lấy tên cho cột "Date' và cột " IT service" theo tên file mình đính kèm. Và code giúp mình cột dữ liệu ở cột "cost2" và "cost3" trong file tổng nhé.

Hello.....Không có ai giúp được ah.