Snasui Excel Forum

ได้แล้วครับ ขอบคุณมากๆเลยนะครับ

แนบไฟล์มาให้แล้วครับ

ตอนนี้กด บันทึกข้อมูล ไม่ติด error แล้วแต่ข้อมูลไม่ขึ้นใน Sheet Database เลย งงมากไม่ติด error แต่ข้อมูลไม่ขึ้น

ต้องขอโทษด้วยครับ พอดีเป็นงานด่วนแล้วไม่รู้จะแก้ยังไง

ผมได้ลองเขียนเองแล้ว


Sub DataRecord()
If Sheets("Form").Range("M1") <> "" Then
Sheets("Database").Range("a" & Rows.Count) _
.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues << ติด error บรรทัดนี้อ่ะครับ
Sheets("Form").Range("G2:G1673,H2 ...

แนบไฟล์มาให้ดูแล้วครับ

ต้องขอโทษด้วยครับ พอดีเป็นงานด่วนแล้วไม่รู้จะแก้ยังไง

ผมได้ลองเขียนเองแล้ว


Sub DataRecord()
If Sheets("Form").Range("M1") <> "" Then
Sheets("Database").Range("a" & Rows.Count) _
.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues << ติด error บรรทัดนี้อ่ะครับ
Sheets("Form").Range("G2:G1673,H2 ...

หน้า Sheet Form จะเอาไว้คีย์ข้อมูลลงไปเรื่อยๆครับ และพอคีย์เสดก็จะกด บันทึก และให้ข้อมูลไปโชว์อยู่ Sheet Database

รบกวนช่วยทีนะครับ ผมมือใหม่