Snasui Excel Forum

ขอโทษด้วยค่ะ แล้วจะนำไปปรับปรุงนะคะ
ในส่วนของcode ยัง run ไม่ได้เลยค่ะ

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 ...

'อันนี้เป็น code คำสั่งที่จะคัดลอกข้อมมูล Cells(i, 1), Cells(i, 3) ของแถวที่ Cells(i, 6).Value = "ReOrder" ไปไว้ในworksheet("Purchase")ค่ะ แต่พอกดรัน แล้วรันไม่ออกค่ะ ไม่ทราบว่าใช้คำสั่งเหมาะสมกับความต้องการหรือไม่ค่ะ หรือว่ามีข้อผิดพลาดตรงไหน แนะนำด้วยค่ะ


Sub copy()
Dim i As Long
Dim lastRow As ...

ถ้าคอลัมน์F มีคำว่า"ReOrder" ให้คัดลอกข้อมูลคอลัมน์AและC ไปวางในหน้าใบสั่งซื้อ