snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
With Bbook.Worksheets("BOM List SX3000II")
Set rAll = .Range("R5", .Range("R" & .Rows.Count).End(xlUp))
End With
With Qbook.Worksheets("QTY")
For Each r In rAll
If r.Value = .Range("F2").Value Then
l = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
For i = 0 To UBound(IIrs)
.Range(Qrs(i) & l).Value = r.Parent.Cells(r.Row, IIrs(i)).Value
Next i
End If
Next r
End With
Bbook.Close
You do not have the required permissions to view the files attached to this post.
'Other code...
With Qbook.Worksheets("QTY")
For Each r In rAll
' If r.Value = .Range("F2").Value Then
If VBA.InStr(r.Value, .Range("f2").Value) > 0 Then
l = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
For i = 0 To UBound(Fors)
.Range(Qrs(i) & l).Value = r.Parent.Cells(r.Row, Fors(i)).Value
Next i
End If
Next r
End With
'Other code...
Jirawat namrach wrote: ↑Thu Dec 22, 2022 10:02 am
ตามไฟล์แนบ book3 F2 กำหนดชื่อ Part แล้ว จะไปค้นหา Part จาก BOM LIST NEW MODEL N:N เมื่อพบข้อมูลเดียวกัน (อาจจะมีมากกว่า 1 Part) ให้นำข้อมูลแถวนั้น ๆ ในบางเซล (ระบุใน Code VBA) มาใส่ใน Book3 แต่ติดปัญหาบาง Part มีการอัพ Revision A,B... แต่ก็เป็น Part เดียวกัน...