คัดลอกข้อมูลตามลำดับ

[semikolon]

Code: Select all

Sub Savedata()
Dim r
Dim Day
Dim PO
Dim WO
Dim person
Dim company
Dim tellephone
Dim order
Dim number
Dim price
For r = 15 To 16
     If Cells(r, 1) > 0 Then
     Windows("FM4-3 ใบสั่งซื้อ.xlsm").Activate
     Set Day = Range("J11")
     Set PO = Range("J9")
     Set WO = Range("J10")
     Set person = Range("B9")
     Set company = Range("B10")
     Set tellephone = Range("B11")
     Set order = Cells(r, 2)
     Set number = Cells(r, 7)
     Set price = Cells(r, 9)
     ActiveWorkbook.FollowHyperlink Address:="\\บันทึกการสั่งซื้อ.xlsm", NewWindow:=False
     Dim WSB
     Windows("บันทึกการสั่งซื้อ.xlsm").Activate
     Set WSB = Worksheets("ข้อมูลการสั่งซื้อ")
     WSB.Select
     WSB.Range("A1").Select
         If WSB.Range("A1").Offset(1, 0) <> "" Then
             WSB.Range("A1").End(xlDown).Select
         End If
     ActiveCell.Offset(1, 0).Select
     ActiveCell.Value = Day
     Selection.NumberFormat = "m/d/yyyy"
     ActiveCell.Offset(0, 1).Select
     ActiveCell.Value = PO
     ActiveCell.Offset(0, 1).Select
     ActiveCell.Value = WO
     ActiveCell.Offset(0, 1).Select
     ActiveCell.Value = company
     ActiveCell.Offset(0, 1).Select
     ActiveCell.Value = person
     ActiveCell.Offset(0, 1).Select
     ActiveCell.Value = tellephone
     ActiveCell.Offset(0, 1).Select
     ActiveCell.Value = order
     ActiveCell.Offset(0, 1).Select
     ActiveCell.Value = "-"
     ActiveCell.Offset(0, 1).Select
     ActiveCell.Value = price
     ActiveCell.Offset(0, 1).Select
     ActiveCell.Value = number
     End If
 Next r
End Sub

ผมใช้ code ด้านบนคัดลอกข้อมูลจากโฟลเดอร์ "FM4-3 ใบสั่งซื้อ" ตามลำดับรายการ แต่ติดปัญหาตรงที่ มันคัดลอกเฉพาะรายการลำดับที่ 1 อย่างเดียว รายการ 2 3 4 ไม่ยอมคัดลอก มาวางที่โฟลเดอร์ "บันทึกการสั่งซื้อ" รบกวนช่วยตรวจสอบข้อผิดพลาดให้ทีนะครับ ขอบคุณครับ

[snasui]

สิ่งที่คุณเรียกว่า โฟลเดอร์ ที่ถูกต้องจะต้องเรียกว่า ไฟล์ ครับ

Code ในไฟล์แนบอยู่ใน Module ใด แจ้งมาด้วยครับ

[semikolon]

โมดูลที่ชื่อว่า SAVEDATA ครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
For i = 15 To 26
    Workbooks("FM4-3 ใบสั่งชื้อ.xlsm").Activate
    If Cells(i, 1) >= 1 Then
         'Windows("FM4-3 ใบสั่งชื้อ.xlsm").Activate
         WSA.Select
'Other code