Page 1 of 1

ผมต้องการ Copy ข้อมูลลงชีทอื่น ที่ผมกำหนดไว้ครับ

Posted: Wed Oct 12, 2016 1:28 pm
by gerdrasta
ผมต้องการ Copy ข้อมูลลงชีทอื่น ที่ผมกำหนดไว้ครับ
ผมต้องการนำข้อมูล ใน sheet "TEST" copy ลงในชีท วันที่ ที่ผมได้กำหนดไว้ครับ
พอมีคำแนะนำบ้างไหมครับ

*แนบไฟล์งานประกอบไว้แล้วครับ
ปล.วันที่จะยาวทั้งปี แต่ผมย่อมาเหลือ 1 เดือน กลัวแนบไม่ได้ครับ.

Re: ผมต้องการ Copy ข้อมูลลงชีทอื่น ที่ผมกำหนดไว้ครับ

Posted: Wed Oct 12, 2016 4:12 pm
by puriwutpokin
ต้องการให้ หน้าตาของ Sheet "Test" ไปเป็นแบบในชีท ตามวัน ที่กำหนดใช่ไหมครับ

Re: ผมต้องการ Copy ข้อมูลลงชีทอื่น ที่ผมกำหนดไว้ครับ

Posted: Wed Oct 12, 2016 4:35 pm
by gerdrasta
ใช่ครับ คุณ puriwutpokin แบบฟอร์มตามใน sheet "TEST" ตัวนี้เลยครับ

***รบกวนวานแนะนำผมที ช่อง E5 "วันที่ปฏิบัติงาน" ผมต้องการใส่วันที่ลงไปโดยให้มัน run วันเดียวกันกับชื่อชีทได้ไหมครับ
เช่น Sheet"1 ตค 59" >>>>> ช่อง E5 ให้ใส่วันที่ "1/10/59" .
ช่วยแนะนำท่ีนะครับ ขอบคุณมากครับ

Re: ผมต้องการ Copy ข้อมูลลงชีทอื่น ที่ผมกำหนดไว้ครับ

Posted: Wed Oct 12, 2016 4:43 pm
by Serverchita
นำ Code วาง ในปุ่มเลยครับ

Code: Select all

Private Sub ENTER_Click()

 Set ws = Sheets(Sheet2.Name)
 ws.Copy After:=Sheets(Sheet2.Name)
 Set wsNew = Sheets(Sheets(Sheet2.Name).Index + 1)
 wsNew.Name = Range("F6") & " " & Format(Time(), "hhmmss")

 End Sub
 

Re: ผมต้องการ Copy ข้อมูลลงชีทอื่น ที่ผมกำหนดไว้ครับ

Posted: Wed Oct 12, 2016 5:57 pm
by puriwutpokin
ลองดูนะครับ ตามไฟล์แนบ รันคำสั่ง CopyMaster

Re: ผมต้องการ Copy ข้อมูลลงชีทอื่น ที่ผมกำหนดไว้ครับ

Posted: Wed Oct 12, 2016 7:35 pm
by Serverchita
ผมลองปรับใหม่ ลองดูจากไฟล์แนบนะครับ ไม่ถูกยังไงก็ถามเพิ่มเติมได้ครับ

:D :D :D :D

Re: ผมต้องการ Copy ข้อมูลลงชีทอื่น ที่ผมกำหนดไว้ครับ

Posted: Thu Oct 13, 2016 9:03 am
by gerdrasta
ขอบคุณพี่ puriwutpokin และ พี่ Severchita มากๆนะครับ ใกล้เคียงกับที่ผมต้องการมากครับ ที่เหลือผมจะลองปรับแต่งทำเองดูครับ ขอบคุณมากๆครับ