คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
ได้เขียน Code มาเองแล้วยัง ติดปัญหาตรง Module ไหน Code ชื่อว่าอะไร อ่านกฎข้อ 5 ด้านบนแล้วอธิบายมาใหม่อีกรอบครับ 
logic wrote:ไฟล์แนบไม่เห็นมีชีต order ชีต purchase และไม่มี code ตามโพสต์ด้านบน แนบมาใหม่อีกทีครับ
อ่านวิธีโพสต์ Code ให้เป็น Code ที่กฎการใช้บอร์ดข้อ 5 ด้านบนเพื่อสะดวกต่อการอ่านและ Copy ไปทดสอบครับCode: Select all
Sub copy()
Dim i As Long
Dim lastRow As Long
Dim r As Range
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lastRow
If Sheets("Order").Cells(i, 6).Value = "ReOrder" Then
Set r = Union(Cells(i, 1), Cells(i, 3))
r.copy
Sheets("Purchase").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Order").Select
End If
Next i
Application.CutCopyMode = False
End SubCode: Select all
Sub Order()
Dim i As Long
Dim lastRow As Long
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lastRow
If Cells(i, 4).Value <= Cells(i, 5).Value Then
Cells(i, 6).Value = "ReOrder"
Else
Cells(i, 6).Value = ""
End If
Next i
End Sub
Sub copy()
Dim i As Long
Dim lastRow As Long
Dim r As Range
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lastRow
If Sheets("Order").Cells(i, 6).Value = "ReOrder" Then
Set r = Union(Cells(i, 1), Cells(i, 3))
r.copy
Sheets("Purchase").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Order").Select
End If
Next i
Application.CutCopyMode = False
End Sub