อยากทราบวิธี Save ไฟล์ลงอีก Sheet หนึ่งครับ..

[phathit]

รบกวนท่านผู้รู้ทุกท่านครับ..
ผมต้องบอกก่อนว่ายังใหม่อยู่ คือว่าทางบริษัทมอบหมายงานให้ทำเอกสารใบเบิก

ผมจึงรบกวนถามดังนี้ครับ.
1.อยากทราบวิธี Save ข้อมูล จากหน้าแบบฟอร์มใบเบิก ไปเก็บไว้อีก Sheet หนึ่งครับ
2.วิธีเขียน Code VBA ผมถูกต้องหรือเปล่าครับ.

ผิดพลาดตรงไหนแนะนำด้วยครับ..
ขอบคุณครับ

[snasui]

ให้ถามในสิ่งที่เป็นปัญหาครับ ไม่ทราบว่า Code นั้นทำงานผิดพลาดอย่างไร หากไม่ผิดพลาดก็สามารถใช้งานได้ครับ

[phathit]

ขออภัยครับอาจารย์

คือว่าผมอยากจะ save ไฟล์จากหน้าแบบฟอร์มไปเก็บบันทึกไว้ครับ เนื่องจากทำการรันเลขที่เอกสารครับ
เลยอยากจะเก็บข้อมูลแต่ละเลขที่ไว้ครับ รบกวนอาจารย์ช่วยแนะนำด้วยครับ

ขอบคุณครับ..

[snasui]

Code ที่เขียนมาเองแล้วนั้นติดขัดที่บรรทัดใดครับ

[phathit]

ดิดช่วงที่ copy data ไปเก็บไว้ครับ
ต้องคือว่ามันไม่เก็บ data ทั้งหมดครับ
มันเก็บเฉพาะบรรทัดแรกครับ..

ขอบคุณครับ.

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub RecordBill()
    Dim rs As Range, rt As Range
    Dim i As Integer
    Worksheets("Report").Range("H4") _
        = Application.Max(Worksheets("Database") _
            .Range("C:C")) + 1
    With Worksheets("Template")
        i = Application.CountIf( _
            .Range("h2:h15"), "?*")
        Set rs = .Range("A2:J2").Resize(i)
    End With
        Set rt = Worksheets("Database") _
            .Range("A65536").End(xlUp).Offset(1, 0)
        rs.Copy
        rt.PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    MsgBox "Save OK.", , "Design By Phathit"
    Sheets("Report").Select
    [b12:H38].ClearContents
End Sub

[phathit]

ขอบคุณครับอาจารย์
เดี๋ยวจะทดสอบก่อนครับ..