Page 1 of 1
บันทึกข้อมูลไว้อีกชีท
Posted: Wed Aug 10, 2016 4:43 pm
by Puynoon
สวัสดีค่ะ รบกวนสอบถามค่ะ
ต้องการบันทึกข้อมูลส่งสินค้าไปไว้ในชีท DataBill
พอสิ้นเดือนเอาข้อมูลใน Databill มาทำเป็นใบวางบิลลูกค้าแต่ละเจ้าอีกชีทนึง
(ที่หาข้อมูลได้ต้องเขียน VBA รึป่าวคะ)
รบกวนช่วยชี้แนะด้วยนะคะ ขอบคุณค่ะ ^-^
Re: บันทึกข้อมูลไว้อีกชีท
Posted: Wed Aug 10, 2016 5:32 pm
by puriwutpokin
คงต้องเพิ่มคอลัมมาช่วยครับ ลองดูว่าตามไฟล์แนบ จะใช้ได้ไหมครับ
Re: บันทึกข้อมูลไว้อีกชีท
Posted: Wed Aug 24, 2016 10:55 am
by Puynoon
Code: Select all
Sub Macro1()
'
' Macro1 Macro
Range("C16:G30").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=3
Sheets("Databill").Select
Range("offset(c2,count(c:c),0)").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Printout").Select
Range("C16:C30").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C16:C30,E16:E30").Select
Selection.ClearContents
End Sub
ได้ทดลองใส่Code ไป บันทึกไว้ในDatabill ได้ แต่พอจะบันทึกอีกครั้งนึง
อันเก่าที่บันทึกไว้นั้นหายไป ไม่รู้ว่าควรแก้จุดไหน รบกวนช่วยชี้แนะมือใหม่ด้วยนะคะ ขอบคุณค่ะ ^_^
Re: บันทึกข้อมูลไว้อีกชีท
Posted: Wed Aug 24, 2016 2:35 pm
by parakorn
มีไฟล์ตัวอย่างไหมครับ
Re: บันทึกข้อมูลไว้อีกชีท
Posted: Wed Aug 24, 2016 2:41 pm
by Puynoon
มีค่ะแต่ไฟล์ใหญ่เกิน ลงไม่ได้
Re: บันทึกข้อมูลไว้อีกชีท
Posted: Wed Aug 24, 2016 4:17 pm
by parakorn
สร้างไฟล์ตัวอย่างขึ้นมาดูครับ เอาแบบคล้ายๆกัน
ให้ Cell Ref ต่างๆตรงกัน ข้อมูลก็เขียนเป็นตัวอย่างเล็กน้อยพอ
เนื่องจาก โค้ดดังกล่าว Fix Ref ในการวางข้อมูลหลังจาก Copy มาชัดเจน
หากนำไปปรับใช้ ต้อง ปรับให้ถูกต้อง ตรงตามไฟล์ที่ใช้งานครับ