Snasui Excel Forum

***เมื่อกดปุ่มเก็บข้อมูล ข้อมูลที่อยู่ในหน้า "ข้อมูล" จะถูกนำไปเก็บไว้ที่หน้า "ผลลัพธ์" และข้อมูลที่อยู่ในหน้า "ข้อมูล" ก็จะถูกลบออก
และเมื่อเพิ่มข้อมูลใหม่ในหน้าข้อมูล แล้วกดปุ่มเก็บข้อมูลนี้อีก ข้อมูลใหม่ที่อยู่ในหน้า "ข้อมูล" ก็จะถูกนำไปเก็บไว้ที่หน้า "ผลลัพธ์" ในบรรทัดถัดจากข้อมูลเดิมที่เคยเก็บไว้ (ถัดลงมาบรรทัดใหม่เรื่อยๆ)

ตอนนี้หนูทำให้มันเก็บข้อมูลในบรรทัดถัดมาเรื่อยๆ ไม่ได้ค่ะ

ลองศึกษาจากตัวอย่างนี่ไปประยุกต์ปรับใช้ดูครับ http://www.snasui.com/viewtopic.php?f=9&t=7248

ข้อมูลที่ต้องการจะดึงของหนูมันเป็นชุดๆค่ะ แบบว่าแต่ละชุดก็มีปริมาณไม่เท่ากัน จะแก้สูตรตรงไหนค่ะ

หนูลองทำแล้วค่ะ แต่ตอนนี้ติดบรรทัดนึงค่ะ ลองทำไฟล์อื่นแล้วมันไม่ติดค่ะ แต่พอลองมาทำไฟล์นี้แล้วติดค่ะ ช่วยแก้ให้หน่อยได้มั้ยคะ

ติดบรรทัดไหนของ Procedure ใด ให้แจ้งมาด้วยเสมอ จะได้เข้าถึงปัญหาได้โดยไวครับ

ติดบรรทัด .Resize (Worksheets("นับ").Range("h1"))
ของ Sub อันสอง() ค่ะ

ย้าย Comment ไปไว้ที่อื่น อย่านำไปคั่นกลางบรรทัดของ Code ที่มีเครื่องหมาย _ เพราะเป็น Code ที่แสดงถึงความต่อเนื่องกัน

.Resize (Worksheets("นับ").Range("h1"))
ย้ายบรรทัดนี้หรอคะ ย้ายไปไว้ตำแหน่งไหนคะ

ได้แล้วค่ะ อาจารย์ ตอนแรกหนูไม่เข้าใจค่ะ ว่า commentของอาจารย์คืออะไร ^^

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

Code ที่ Procedure ใด เขียนไว้อย่างไร ยก Code นั้นมาด้วยครับ

Sub อันแรก()
Range("b6:h50").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Sheets("โครงงานที่เสร็จแล้ว").Select
Range("offset(a6,count(a:a),0)").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("รายชื่อโครงงาน").Select
Range("b6:h50").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("a6:h50").Select
Selection.ClearContents
End Sub

โค้ดตามนี้ค่ะ มีClearContentsแล้ว แต่ข้อมูลในหน้ารายชื่อโครงงานยังไม่ลบค่ะ

ผมทดสอบแล้วสามารถลบได้ตามปกติ

การโพสต์ Code ในฟอรัมให้ง่ายต่อการอ่านและนำไปทดสอบดูตาม Link นี้ครับ viewtopic.php?f=6&t=1187

โค้ดใช้งานได้แล้วค่ะ ขอโทษด้วยนะคะที่ไม่ได้มารายงานผลค่ะ ขอบคุณค่ะ^^