ต้องการบันทึกข้อมูลจาก ListBox ลง sheet ต้องปรับ Code อย่างไรครับ

[tigerwit]

จากไฟล์ที่แนบ
ใช้ Form ที่มี ListBox ที่ดึงข้อมูลจาก ชีท Data
เพื่อเลือกรายการพัสดุ ไปวางไว้ที่ ชีท Oder ด้วยวิธีการดับเบิ้ลคลิกที่รายการพัสดุในแถวที่ต้องการ
ต้องปรับ Code อย่างไรครับ

Code: Select all

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Value = ListBox1.Value
ListBox1.Value = ""
ActiveCell.Offset(1, 0).Select
End Sub

[puriwutpokin]

ปรับในส่วนนี้ดูครับ

Code: Select all

'Other...
ActiveCell.Value = Application.Index(Sheets("Data").Range("b2:b999"), ListBox1.ListIndex + 1)
ActiveCell.Offset(, 1).Value = Application.Index(Sheets("Data").Range("c2:c999"), ListBox1.ListIndex + 1)
ActiveCell.Offset(, 2).Value = Application.Index(Sheets("Data").Range("d2:d999"), ListBox1.ListIndex + 1)
'Other...

[tigerwit]

ขอบคุณครับ