[Xin giúp đỡ] Lấy thông tin ngày về nguyên liệu

[Lá chanh]

Em xin nhờ các Bác về vấn đề lấy thông tin ngày về nguyên liệu ạ.
Em có một file thông tin từng ngày nguyên liệu về của từng mã nguyên liệu cho từng tháng ( File này của bộ phận khác nên chỉ được xem). Nhưng nó ở dạng cột dọc. Nay em muốn tạo 1 file khác và chuyển thông tin ngày về theo từng hàng ạ? Em đã tìm cách làm 2 ngày rồi mà chưa ra. Mong các bác giúp đỡ
Nó hơi khó diễn đạt nên có gì mong các Bác thông cảm ạ.

 

[SA_DQ]

Chuyện này mình có thể thực hiện giúp bạn bỡi VBA;
Không biết ý bạn sao?

Mã quản lý nguyên liệu

Mã quản lý nguyên liệu

Số lượng

Ngày nguyên liệu về

AXL376PM-10x370x381.5-4TL

AXL376PM-10x370x381.5-4TL

73​

12/5/2024​

AXL376PM-10x370x381.5-4TL

28​

12/17/2024​

AXL376PM-10x370x381.5-4TL

180​

1/6/2025​

AXL376PM-10x370x381.5-4TL

8​

1/7/2025​

AXL376PM-10x370x381.5-4TL

310​

2/23/2025​

 

[ngocbaovu]

Bạn tham khảo phương án thêm cột phụ và vlookup

 

[HUONGHCKT]

Em xin nhờ các Bác về vấn đề lấy thông tin ngày về nguyên liệu ạ.
Em có một file thông tin từng ngày nguyên liệu về của từng mã nguyên liệu cho từng tháng ( File này của bộ phận khác nên chỉ được xem). Nhưng nó ở dạng cột dọc. Nay em muốn tạo 1 file khác và chuyển thông tin ngày về theo từng hàng ạ? Em đã tìm cách làm 2 ngày rồi mà chưa ra. Mong các bác giúp đỡ
Nó hơi khó diễn đạt nên có gì mong các Bác thông cảm ạ.

Nếu làm bằng VBA có được không?
Chỉ cần thay đổi ô B1/Sh KetQuaMongMuon là có kết quả.

 

[DeTong]

Thêm 1 giải pháp bằng Query

 

[Lá chanh]

Chuyện này mình có thể thực hiện giúp bạn bỡi VBA;
Không biết ý bạn sao?

Mã quản lý nguyên liệu

Mã quản lý nguyên liệu

Số lượng

Ngày nguyên liệu về

AXL376PM-10x370x381.5-4TL

AXL376PM-10x370x381.5-4TL

73​

12/5/2024​

AXL376PM-10x370x381.5-4TL

28​

12/17/2024​

AXL376PM-10x370x381.5-4TL

180​

1/6/2025​

AXL376PM-10x370x381.5-4TL

8​

1/7/2025​

AXL376PM-10x370x381.5-4TL

310​

2/23/2025​

Vâng ạ. Thế thì tốt quá ạ. Bác cho Em xin code với ạ. Với ngày về mong muốn là nó thành 1 hàng cho một mã nguyên liệu cho tháng 1 ạ.
Em xin cảm ơn

Bài đã được tự động gộp: Hôm qua, lúc 08:56

Bạn tham khảo phương án thêm cột phụ và vlookup

Cảm ơn bác. em thay thế hàm countif = countifs ở cột cột phụ thì đã lấy được dữ liệu cho từng tháng rồi ạ. Một lần nữa xin được cảm ơn bác

Bài đã được tự động gộp: Hôm qua, lúc 08:57

Nếu làm bằng VBA có được không?
Chỉ cần thay đổi ô B1/Sh KetQuaMongMuon là có kết quả.

Vâng ạ. Bác cho em xin code với ạ.

Bài đã được tự động gộp: Hôm qua, lúc 08:59

Thêm 1 giải pháp bằng Query

Cảm ơn Bác. Bác ơi, Trường hợp mỗi ngày về là một cột thì e sợ nó sẽ sinh ra nhiều cột quá( Khả năng cao là sẽ có 30 cột vì thực tế ngày nào cũng có nguyên liệu về)

 

[SA_DQ]

Vâng ạ. Thế thì tốt quá ạ. Bác cho Em xin code với ạ. Với ngày về mong muốn là nó thành 1 hàng cho một mã nguyên liệu cho tháng 1 ạ.
Em xin cảm ơn

Dim Sh As Worksheet, CSDL As Range

Sub NgayVe()
 Dim Arr(), Cls As Range
 Dim Rws As Long, J As Long, DgCuoi As Long
 
 Set Sh = ThisWorkbook.Worksheets("CSDL")
 Sheets("KetQua").Select
 DgCuoi = [B3].End(xlDown).Row
 With Sh
    Rws = .[B3].End(xlDown).Row:        Set CSDL = .[B1].CurrentRegion
    .[H1].Value = .[B1].Value:          .[L1].Value = .[F1].Value
    .[B1:C1].Copy Destination:=.[J1]
 End With
 For Each Cls In [B4].Resize(DgCuoi - 3)
    Sh.[H2].Value = Cls.Value
    Macro8  'Loc Theo Mã Q Lí   '
    Arr() = Sh.[J2].CurrentRegion.Offset(1, 1).Value
    Cls.Offset(, 1).Resize(, 3 * UBound(Arr())).ClearContents
    For J = 1 To UBound(Arr())
        Cls.Offset(, 2 * J - 1).Value = Arr(J, 1)
        Cls.Offset(, 2 * J).Value = Arr(J, 2)
    Next J
 Next Cls
End Sub

Sub Macro8() ' Keyboard Shortcut: Ctrl+Shift+F'
 Application.CutCopyMode = False
 CSDL.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range( _
    "H1:H2"), CopyToRange:=Sh.Range("J1:L1"), Unique:=False
End Sub

 

[HUONGHCKT]

...
Vâng ạ. Bác cho em xin code với ạ.

Góp vui.
Tham khảo code trong file.
Thay đổi ô B1 /Sh File dữ liệu mong muốn để được kết quả

 

[Lá chanh]

Vấn đề của Em đã được các bác hỗ trợ, Hiện tại Em đã có thể giải quyết bằng cả Macro và công thức Vlookup. ( thêm cột phụ) . Một lần nữa Em xin cảm ơn mọi người.

 

[hoangminhtien]

Vấn đề của Em đã được các bác hỗ trợ, Hiện tại Em đã có thể giải quyết bằng cả Macro và công thức Vlookup. ( thêm cột phụ) . Một lần nữa Em xin cảm ơn mọi người.

Nếu dùng công thức bạn có thể dùng Aggregate để không cần tạo thêm cột phụ.
Bạn xem thêm trong file đính kèm