Tìm kiếm 1 mã hàng có nhiều seri và điền seri đến hết theo mã hàng (1 người xem)

[huythanhhoa]

Em chào các anh chị.
Hiện tại em có 1 file Import hàng hóa, trong đó 1 mã hàng có nhiều seri khác nhau.
Em muốn khi tìm kiếm theo mã hàng thì sẽ tự điền vào các seri tương ứng cho đến khi hết số dòng của mã hàng đó.
Chi tiết theo file đính kèm.
Nhờ anh chị hỗ trợ giúp.
Em xin cảm ơn!

Mã hàng	Tên hàng	Số lượng	Serial Number	Phân loại	Serial Number kết quả
200004214​	Banh bèo​	18​
200004213​	Cân 2g​	18​
350003519​	Bình bột​	3​
200001126​	RECTMDL​	1​		X​	RECTMDL145963​
200001126​	RECTMDL​	1​		X​	RECTMDL145964​
200008797​	RECTMDL_PW48​	1​		X​	RECTMDL_PW48_14563​
310003755​	GEN​	1​		X​	GEN456953​
310003755​	GEN​	1​		X​	GEN456954​
310007604​	DAQ​	1​		X​	DAQ12333​
310007604​	DAQ​	1​		X​	DAQ12334​
310007604​	DAQ​	1​		X​	DAQ12335​
310007604​	DAQ​	1​		X​	DAQ12336​

 

[Hoàng Trọng Nghĩa]

Em chào các anh chị.
Hiện tại em có 1 file Import hàng hóa, trong đó 1 mã hàng có nhiều seri khác nhau.
Em muốn khi tìm kiếm theo mã hàng thì sẽ tự điền vào các seri tương ứng cho đến khi hết số dòng của mã hàng đó.
Chi tiết theo file đính kèm.
Nhờ anh chị hỗ trợ giúp.
Em xin cảm ơn!

Mã hàng	Tên hàng	Số lượng	Serial Number	Phân loại	Serial Number kết quả
200004214​	Banh bèo​	18​
200004213​	Cân 2g​	18​
350003519​	Bình bột​	3​
200001126​	RECTMDL​	1​		X​	RECTMDL145963​
200001126​	RECTMDL​	1​		X​	RECTMDL145964​
200008797​	RECTMDL_PW48​	1​		X​	RECTMDL_PW48_14563​
310003755​	GEN​	1​		X​	GEN456953​
310003755​	GEN​	1​		X​	GEN456954​
310007604​	DAQ​	1​		X​	DAQ12333​
310007604​	DAQ​	1​		X​	DAQ12334​
310007604​	DAQ​	1​		X​	DAQ12335​
310007604​	DAQ​	1​		X​	DAQ12336​

Không biết phải vầy không:
=IF(E2="X",VLOOKUP(A2,'SERI TON'!$A$2:$D$10,4,0),"")

 

[huythanhhoa]

=IF(E2="X",VLOOKUP(A2,'SERI TON'!$A$2:$D$10,4,0),"")

Không đúng ạ. Nó chỉ lấy được seri đầu tiên thôi ạ.

Bài đã được tự động gộp: 19/3/24

 

[HieuCD]

Em chào các anh chị.
Hiện tại em có 1 file Import hàng hóa, trong đó 1 mã hàng có nhiều seri khác nhau.
Em muốn khi tìm kiếm theo mã hàng thì sẽ tự điền vào các seri tương ứng cho đến khi hết số dòng của mã hàng đó.
Chi tiết theo file đính kèm.
Nhờ anh chị hỗ trợ giúp.
Em xin cảm ơn!

Mã hàng	Tên hàng	Số lượng	Serial Number	Phân loại	Serial Number kết quả
200004214​	Banh bèo​	18​
200004213​	Cân 2g​	18​
350003519​	Bình bột​	3​
200001126​	RECTMDL​	1​		X​	RECTMDL145963​
200001126​	RECTMDL​	1​		X​	RECTMDL145964​
200008797​	RECTMDL_PW48​	1​		X​	RECTMDL_PW48_14563​
310003755​	GEN​	1​		X​	GEN456953​
310003755​	GEN​	1​		X​	GEN456954​
310007604​	DAQ​	1​		X​	DAQ12333​
310007604​	DAQ​	1​		X​	DAQ12334​
310007604​	DAQ​	1​		X​	DAQ12335​
310007604​	DAQ​	1​		X​	DAQ12336​

D2 =IFERROR(INDEX('SERI TON'!$D$1:$D$10,AGGREGATE(15,6,ROW($1:$10)/('SERI TON'!$A$1:$A$10=A2),COUNTIF($A$1:A2,A2))),"")

Copy xuống . . .

 

[HUONGHCKT]

Em chào các anh chị.
Hiện tại em có 1 file Import hàng hóa, trong đó 1 mã hàng có nhiều seri khác nhau.
Em muốn khi tìm kiếm theo mã hàng thì sẽ tự điền vào các seri tương ứng cho đến khi hết số dòng của mã hàng đó.
Chi tiết theo file đính kèm.
Nhờ anh chị hỗ trợ giúp.
Em xin cảm ơn!

Mã hàng	Tên hàng	Số lượng	Serial Number	Phân loại	Serial Number kết quả
200004214​	Banh bèo​	18​
200004213​	Cân 2g​	18​
350003519​	Bình bột​	3​
200001126​	RECTMDL​	1​		X​	RECTMDL145963​
200001126​	RECTMDL​	1​		X​	RECTMDL145964​
200008797​	RECTMDL_PW48​	1​		X​	RECTMDL_PW48_14563​
310003755​	GEN​	1​		X​	GEN456953​
310003755​	GEN​	1​		X​	GEN456954​
310007604​	DAQ​	1​		X​	DAQ12333​
310007604​	DAQ​	1​		X​	DAQ12334​
310007604​	DAQ​	1​		X​	DAQ12335​
310007604​	DAQ​	1​		X​	DAQ12336​

Góp vui
Tuy không phải là bài đăng trong mục lâp trình, nhưng chót làm xong rồi mới nhìn, nên cứ đưa lên biết đâu có ích cho ai đó cần tham khảo.
Code trong module

Option Explicit

Function MaHang(ByVal Ma As Range)
Dim i&, j&, Lr&, R&, Col&, t&
Dim Arr()
Dim Dic As Object, Key, S
Dim M, Rng As Range
With Sheet2
Lr = .Cells(10000, 2).End(xlUp).Row
Arr = .Range("A2:D" & Lr).Value
R = UBound(Arr)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To R
    Key = Arr(i, 1)
    If Not Dic.Exists(Key) Then
        Dic(Key) = Arr(i, 4)
    Else
        Dic(Key) = Dic(Key) & "," & Arr(i, 4)
    End If
Next i
End With
With Sheet1
Set Rng = .Range("A2:A" & Ma.Row)
M = Ma
For i = 2 To Rng.Rows.Count
    If Rng(i) = M Then t = t + 1
Next i
End With
If t Then
    S = Split(Dic(M), ",")
    MaHang = S(t - 1)
Else
    MaHang = "Không có"
End If
End Function

Và code trong Module Sheet1

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2:E10000")) Is Nothing Then
    If Target = "X" Then
        Target.Offset(0, 1) = MaHang(Target.Offset(0, -4))
    End If
End If
End Sub

Xem file đính kèm
Có thể dùng theo 2 cách:
1/Gõ "X" vào 1 ô nào đó trong cột E , cột F dòng tương ứng sẽ lập tức có kết quả.
2/ Tại ô nào đó trong Cột F (hoặc cột khác) gõ =Mahang(1 ô nào đó trong cột Mahang) và nhấn Enter > Ví du: F5=Mahang(A5)

 

[huythanhhoa]

D2 =IFERROR(INDEX('SERI TON'!$D$1:$D$10,AGGREGATE(15,6,ROW($1:$10)/('SERI TON'!$A$1:$A$10=A2),COUNTIF($A$1:A2,A2))),"")

Copy xuống . . .

Với dữ liệu hiện tại thì chạy OK ạ. Nhưng em thêm dữ liệu bên sheet tồn và đã cập nhật lại vùng dữ liệu thì công thức lại chạy không đúng nữa ạ

 

[Hoàng Tuấn 868]

Thật buồn với các vụ "Công thức chạy không đúng" nhưng không đưa ví dụ cụ thể chạy không đúng như thế nào.

 

[HieuCD]

Với dữ liệu hiện tại thì chạy OK ạ. Nhưng em thêm dữ liệu bên sheet tồn và đã cập nhật lại vùng dữ liệu thì công thức lại chạy không đúng nữa ạ

Dĩ nhiên rùi, công thức xây dựng theo dữ liệu hiện có, nếu dữ liệu khác bạn cần tùy chỉnh theo thực tế

 

[ngouyen1505]

Thật buồn với các vụ "Công thức chạy không đúng" nhưng không đưa ví dụ cụ thể chạy không đúng như thế nào.

Em muốn tìm "Đối tượng THCP,Đơn đặt hàng" từ bảng MOCR11 sang. Nhưng nếu dựa vào "Số chứng từ "thì khi chạy theo công thức của thầy nó bị lệch 1 dòng. Thầy xem giúp em bị lỗi ở đâu với ạ, Em cảm ơn ạ

 

[bebo021999]

Em muốn tìm "Đối tượng THCP,Đơn đặt hàng" từ bảng MOCR11 sang. Nhưng nếu dựa vào "Số chứng từ "thì khi chạy theo công thức của thầy nó bị lệch 1 dòng. Thầy xem giúp em bị lỗi ở đâu với ạ, Em cảm ơn ạ

Hình như topic này không phải của bạn, mà bạn chỉ mượn công thức thôi, và ứng dụng cho file của bạn?
Bạn nên mở topic mới cho yêu cầu riêng của bạn, để có nhiều câu trả lời hơn nhé.