ใช้ VBA ในการค้นหารายการจากSheet 2 มาแสดงใน Sheet3

[Methini]

สวัสดีค่ะ อาจารย์มีเรื่องรบกวนหน่อยค่ะ
ต้องการใช้ VBA ดึงข้อมูลจาก Sheets"M_BOM" มาแสดงใน Sheets3 โดยคีย์คำค้นใน Sheet2 ที่เซลล์ A2 และ B2 ถ้าเงื่อนไขตรงกันให้แสดงรายการออกมาทั้งหมดใน sheet3 หาโค้ดแล้วติดปัญหาตรงที่ว่าใส่โค้ดแล้ว แต่ไม่แสดงรายการออกมาทั้งหมดค่ะ รบกวนอาจารย์ช่วยให้คำแนะนำด้วยค่ะ

ตัวอย่าง
0E010T01 เป็น Parent ซึ่งมี child อีกมากมาย เมื่อคีย์คำค้นใน Sheet2

Parent LOT
OEO10T101 0140

ให้แสดงรายการ child ออกมาทั้งหมดที่เป็นของ 0E010T01 LOT 0140

On Error Resume Next
For Each r In rAll
Parent = Application.VLookup(r, Rng, ColParent, 0)
child = Application.VLookup(r, Rng, Colchild, 0)

If IsError(Parent) Then
MsgBox LookParent & "Not Found"
Else
wk.Range("A2") = Parent
End If
If IsError(child) Then
MsgBox LookLot & "Not Found"
Else
wk.Range("B2") = child
End If

Next r
On Error GoTo 0

[snasui]

ช่วยโพสต์ Code ให้แสดงเป้น Code ตาม Link นี้เพื่อสะดวกในการอ่านครับ viewtopic.php?f=3&t=1187

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Dim rBom As Range, rBomAll As Range
With Sheets("M_BOM")
    Set rBomAll = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
    Sheets("Sheet3").Range("a" & Rows.Count).End(xlUp).Offset(1, 0) _
        = Sheets("Sheet2").Range("a2")
    For Each rBom In rBomAll
        With Sheets("Sheet2")
            If rBom = .Range("a2") And rBom.Offset(0, 2) = .Range("b2") Then
                Sheets("Sheet3").Range("b" & .Rows.Count) _
                    .End(xlUp).Offset(1, 0) = rBom.Offset(0, 1)
            End If
        End With
    Next rBom
End With

[Methini]

ขอบคุณค่ะอาจารย์ สำหรับคำแนะนำในการโพสโค้ด และ โค้ดที่อาจารย์ให้มาใช้ได้ดีทีเดียวเลยค่ะ

[Methini]

สวัสดีอาจารย์และท่านผู้รู้คะ

ต่อยอดจากชีทที่แล้วคะ ดิฉันอยากทราบว่าถ้าเราต้องการดึงช่วงข้อมูลมาแสดงที่อยู่ระหว่าง LOT 0140 ชีท M_BOM คอลัมน์ "child" ที่อยู่ในช่วงของ LOT 0140 ทั้งหมดควรปรับปรุงหรือใช้ฟังก์ชันใดเพิ่มเติมดีคะ รบกวนอาจารย์และท่านผู้รู้ให้คำแนะนำด้วยคะ
ยกตัวอย่างเช่น 0E010T01 LOT 0140

ที่ชีท M_BOM เซลล์ C:C คือ SLOT หมายถึง START LOT
D:D คือ ELOT หมายถึง END LOT

child SLOT ELOT
A 0011 0139 No
B 0011 9999 Ok
C 0140 0145 Ok
D 0150 0160 No
E 0140 0140 Ok



เงื่อนไข SLOT<=LOT<= ELOT

A 0011 0140 0139 No
D 0150 0140 0160 No
B 0011 0140 0140 OK

Code: Select all

With Sheets("M_BOM")
            Set rBomAll = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
                   Sheets("Sheet3").Range("a" & Rows.Count).End(xlUp).Offset(1, 0) _
                   = Sheets("Sheet2").Range("a2")
    For Each rBom In rBomAll
    With Sheets("Sheet2")
    If rBom = .Range("a2") And rBom.Offset(0, 2) = .Range("b2") Then
    Sheets("Sheet3").Range("b" & .Rows.Count) _
    .End(xlUp).Offset(1, 0) = rBom.Offset(0, 1)
    End If
    End With
    Next rBom
    End With