ใช้ excel ขายของแต่ติดตรงเก็บข้อมูลครับ

ตามนี้ครับ
http://ezexcel.blogspot.com/2015/06/blog-post.html
เสร็จแล้วเวลา save อย่าลืมเลือกเป็น xlsm นะครับ

Code VBA ตามนี้ครับ :

Sub Button1_Click()

Dim x As Integer
x = Sheet1.Cells(1, 6)
Sheet2.Cells(x, 1) = Sheet1.Cells(1, 6)
Sheet2.Cells(x, 2) = Sheet1.Cells(2, 3)
Sheet2.Cells(x, 3) = Sheet1.Cells(3, 3)
Sheet2.Cells(x, 4) = Sheet1.Cells(4, 3)

Sheet1.Cells(1, 6) = Sheet1.Cells(1, 6) + 1
Sheet1.Cells(2, 3) = ""
Sheet1.Cells(3, 3) = ""
Sheet1.Cells(4, 3) = ""

End Sub


Edit : แก้ไขลิ้งค์นะครับ