Snasui Excel Forum

สอบถามเรื่อง code VBA ส่งข้อมูลขึ้นบันทัดใหม่ครับ แต่ code ที่ผมลองเขียน มันเป็นแบบแทนที่ข้อมูลไปเลย รบกวนด้วยนะครับ

Private Sub Save_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("IP5Resp.")
'find first empty row in database
irow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1 ...

เรียนถามอาจารย์ครับ ผมทำฟอร์มบันทึกรายการสินค้าแบบ User form ที่นี้ผมต้องการให้ใส่รายการสินค้าอัตโนมัติเมื่อคีย์รหัสสินค้า อยากขอคำแนะนำจากอาจารย์ครับ ขอบคุณครับ