Page 1 of 1

สอบถาม code vba บันทึกข้อมูล excel ต่อจาก column สุดท้ายค่ะ

Posted: Fri Jun 14, 2013 10:20 am
by Nichcha_june
รบกวนช่วยตรวจสอบ code การ export ข้อมูลจาก sheet "FORM" ไปยัง sheet "WOReport" ให้ด้วยค่ะ
เนื่องจากพยายามเขียน code เท่าไหร่ พอคีย์ข้อมูลใน sheet "FORM" เสร็จแล้ว กดปุ่ม "พิมพ์และบันทึก" แล้วข้อมูลที่ link ไปยัง sheet "WOReport" ข้อมูลไม่ยอมบันทึกต่อจากส่วนหัวของตาราง ตอนนี้ใช้สูตรตามด้านล่างนะคะ ไม่ทราบว่าพอจะมีวิธีแก้อย่างไรบ้างคะ

j = WorksheetFunction.CountA(Worksheets("WOReport").Columns("a:a")) + 1

รบกวนอีกคำถามค่ะ ในการคีย์ข้อมูลต่อๆ ไป ใน sheet "FORM" ถ้าจะให้บันทึกไปยัง sheet "WOReport" โดยบันทึกต่อจาก column สุดท้ายจะต้องเขียนสูตรอย่างไรคะ

ขอบคุณค่ะ

หมายเหตุ: เอกสารเพื่อพิจารณาตามแนบนะคะ

Re: สอบถาม code vba บันทึกข้อมูล excel ต่อจาก column สุดท้าย

Posted: Fri Jun 14, 2013 11:34 am
by ysamroeng
ตั้งชื่อแบบไดนามิค ให้กับตำแหน่งช่วงข้อมูลที่จะนำไปวาง แล้วอ้างอิงชื่อนั้นครับ

Re: สอบถาม code vba บันทึกข้อมูล excel ต่อจาก column สุดท้าย

Posted: Fri Jun 14, 2013 11:57 am
by Nichcha_june
ysamroeng wrote:ตั้งชื่อแบบไดนามิค ให้กับตำแหน่งช่วงข้อมูลที่จะนำไปวาง แล้วอ้างอิงชื่อนั้นครับ
เรียน K Ysamroeng พอจะมีตัวอย่างไหมคะ อ่านคำแนะนำแล้วยังไม่ค่อยเข้าใจอ่ะค่ะ (- -")

Re: สอบถาม code vba บันทึกข้อมูล excel ต่อจาก column สุดท้าย

Posted: Fri Jun 14, 2013 12:58 pm
by snasui
:D ลองตามนี้ครับ

Code: Select all

'Other code
lng = 4 'Start row
j = lng + WorksheetFunction.CountA(Worksheets("WOReport").Range("Table2[WO No.]"))
'Other code
กรณีวางไปทางขวาไม่ทราบว่าเขียน Code มาแล้วยังครับ Code ชื่อว่าอะไร ติดบรรทัดไหนครับ

Re: สอบถาม code vba บันทึกข้อมูล excel ต่อจาก column สุดท้าย

Posted: Fri Jun 14, 2013 2:33 pm
by Nichcha_june
ใช้งานได้เรียบร้อยแล้วค่ะ ขอบคุณนะคะ :thup: