บันทึกข้อมูลไว้อีกชีท

[Puynoon]

สวัสดีค่ะ รบกวนสอบถามค่ะ

ต้องการบันทึกข้อมูลส่งสินค้าไปไว้ในชีท DataBill
พอสิ้นเดือนเอาข้อมูลใน Databill มาทำเป็นใบวางบิลลูกค้าแต่ละเจ้าอีกชีทนึง
(ที่หาข้อมูลได้ต้องเขียน VBA รึป่าวคะ)

รบกวนช่วยชี้แนะด้วยนะคะ ขอบคุณค่ะ ^-^

[puriwutpokin]

คงต้องเพิ่มคอลัมมาช่วยครับ ลองดูว่าตามไฟล์แนบ จะใช้ได้ไหมครับ

[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 ได้ แต่พอจะบันทึกอีกครั้งนึง
อันเก่าที่บันทึกไว้นั้นหายไป ไม่รู้ว่าควรแก้จุดไหน รบกวนช่วยชี้แนะมือใหม่ด้วยนะคะ ขอบคุณค่ะ ^_^

[parakorn]

มีไฟล์ตัวอย่างไหมครับ

[Puynoon]

มีค่ะแต่ไฟล์ใหญ่เกิน ลงไม่ได้

[parakorn]

สร้างไฟล์ตัวอย่างขึ้นมาดูครับ เอาแบบคล้ายๆกัน

ให้ Cell Ref ต่างๆตรงกัน ข้อมูลก็เขียนเป็นตัวอย่างเล็กน้อยพอ

เนื่องจาก โค้ดดังกล่าว Fix Ref ในการวางข้อมูลหลังจาก Copy มาชัดเจน

หากนำไปปรับใช้ ต้อง ปรับให้ถูกต้อง ตรงตามไฟล์ที่ใช้งานครับ