Dò tìm theo điều kiện

[vulunktheky]

Chào anh chị và các bạn,
Mình có 1 file dữ liệu như thế này, mình muốn lấy dữ liệu cột ToTal từ 2 sheet TL và GL điền vào sheet SUMMARY tương ứng với 2 tên cột TL và GL theo từng tháng và theo mã ID ở sheet SUMMARY.
Xin cảm ơn anh chị và các bạn.

 

[Ba Tê]

Mình có 1 file dữ liệu như thế này, mình muốn lấy dữ liệu cột ToTal từ 2 sheet TL và GL điền vào sheet SUMMARY tương ứng với 2 tên cột TL và GL theo từng tháng và theo mã ID ở sheet SUMMARY.

Nếu bạn muốn dùng VBA thì tặng bạn Sub này, chép nó vào Module rồi "chạy".
Chú ý, sửa tên sheet "TL " thành "TL" (Bỏ dấu cách phía sau)

Option Explicit

Public Sub s_Gpe()
Dim sArr(), dArr(), I As Long, J As Long, CoL As Long, R As Long
    R = 14
ReDim dArr(1 To R, 1 To 24)
'------------------------------------------------ TL '
    sArr = Sheets("TL").Range("J4:BX17").Value
    CoL = -1
    For J = 1 To UBound(sArr, 2) Step 6
        CoL = CoL + 2
        For I = 1 To R
            dArr(I, CoL) = sArr(I, J)
        Next I
    Next J
'------------------------------------------------ GL '
    sArr = Sheets("GL").Range("J4:BX17").Value
    CoL = 0
    For J = 1 To UBound(sArr, 2) Step 6
        CoL = CoL + 2
        For I = 1 To R
            dArr(I, CoL) = sArr(I, J)
        Next I
    Next J
Sheets("Summary").Range("E4").Resize(R, 24) = dArr
End Sub

 

[vulunktheky]

Nếu bạn muốn dùng VBA thì tặng bạn Sub này, chép nó vào Module rồi "chạy".
Chú ý, sửa tên sheet "TL " thành "TL" (Bỏ dấu cách phía sau)

Option Explicit

Public Sub s_Gpe()
Dim sArr(), dArr(), I As Long, J As Long, CoL As Long, R As Long
    R = 14
ReDim dArr(1 To R, 1 To 24)
'------------------------------------------------ TL '
    sArr = Sheets("TL").Range("J4:BX17").Value
    CoL = -1
    For J = 1 To UBound(sArr, 2) Step 6
        CoL = CoL + 2
        For I = 1 To R
            dArr(I, CoL) = sArr(I, J)
        Next I
    Next J
'------------------------------------------------ GL '
    sArr = Sheets("GL").Range("J4:BX17").Value
    CoL = 0
    For J = 1 To UBound(sArr, 2) Step 6
        CoL = CoL + 2
        For I = 1 To R
            dArr(I, CoL) = sArr(I, J)
        Next I
    Next J
Sheets("Summary").Range("E4").Resize(R, 24) = dArr
End Sub

Em Cảm ơn anh.

 

[hocexcel_1991]

Chào anh chị và các bạn,
Mình có 1 file dữ liệu như thế này, mình muốn lấy dữ liệu cột ToTal từ 2 sheet TL và GL điền vào sheet SUMMARY tương ứng với 2 tên cột TL và GL theo từng tháng và theo mã ID ở sheet SUMMARY.
Xin cảm ơn anh chị và các bạn.

Thử công thức

=LOOKUP(2,1/(INDIRECT("'"&E$3&"'!C4:C100")=$C4),OFFSET(INDIRECT("'"&E$3&"'!D4:D100"),,5+MATCH(LOOKUP("ZZZZ",$E$2:E$2),INDIRECT("'"&E$3&"'!E2:BX2"),)))

Sheet "TL " => xóa khoảng trắng
Sheet "Summary" =>chỗ March => sửa thành Mar
Sheet "GT" bạn Merge dòng 2 chõ các tháng nhé

 

[longkurabe]

Hi, mình thấy Code đó gần giống với ý mình đang muốn làm, bạn có thể triển khai thêm cho mình được không?
Mình muốn như sau: Mình có 2 cái kế hoạch ( 2 người làm khác nhau, tạm thời mình gọi là " kế hoạch đầu và kế hoạch cuối". Khi kế hoạch cuối làm xong hay thay đổi số lượng sản xuất các tháng ( sheet), thì kế hoạch đầu phải cập nhật theo để đối ứng cho kế hoạch cuối.
-Phương pháp đang làm: Copy tay thủ công theo từng tháng ( sheet) kế hoạch cuối, rồi qua kế haoch đầu bấm Ctrl +F để tìm vị trí SP đó , rồi Ctrl+V ( Paste Value) vào ô cần dán, cũng làm theo tháng này xong, qua tháng khác ( các sheet).
- Giờ muốn VBA cho nhanh, vì file kế hoạch là hàng trăm SP ( file gửi là đã xóa bớt cho nhẹ, chứ file nặng hơn 20Mb). Mõi lần làm copy 1 tháng (sheet) là gần 2-3h luôn mới xong 1 sheet.
Thấy nghien cứu VBA hay nên mình đang muốn Auto các bước làm bũa giờ , ( thủ công lâu quá). Cám ơn nhiều.

 

[Ba Tê]

Có người nói chuyện với trăng sao.

 

[longkurabe]

Có người nói chuyện với trăng sao.

Hi, sorry anh BaTê, lúc đó mình relay lại cái đoạn anh viêt Code mà k biết sao lại ra vậy, Nhờ anh BaTê xem giúp dùm nhé.