รบกวนครับ อยากทำรายงานสรุปใบสั่งซื้อ

[thanapong]

ผมลองทำแบบฟอร์มใบสั่งซื้อ ได้ประมาณหนึ่ง
แต่อยากให้เวลาพิมพ์ใบสั่งซื้อแล้วให้บันทึกรายการในรายงานสรุปอีกSheet นึงครับ Column ประมาณนี้คือ PO.No# / Date / description / Amount / Due Date / dept ReQ.

[snasui]

การทำเช่นนั้นต้องใช้ VBA เข้ามาช่วยครับ ดูตัวอย่างตาม Link นี้ครับ http://www.snasui.com/viewtopic.php?f=3&t=1512

[thanapong]

ผมได้ลองทำตามตัวอย่าง แต่ ถ้าในใบสั่งซื้อ มีข้อมูล 4 บรรทัด เป็นข้อมูลที่ต้องการบันทึกในรายงานเฉพาะที่มีราคาคือบรรทัดที่ 1 และ 3 พอไปปรากฎที่Historical เป็น 2บรรทัดแรก (ที่ต้องการคือ1,3)
จะต้องเปลี่ยนที่VB ตรงไหนครับ
ขอบคุณครับ

[snasui]

ปรับ Code เป็นตามด้านล่างโดยการนำการ Loop มาช่วยเพื่อหาค่าที่ต้องการนำไปวางครับ

Code: Select all

Sub PasteData()
    Dim rs As Range, rt As Range
    Dim r As Range
    Set rs = Worksheets("Temp").Range("E2:E24")
    For Each r In rs
        If r <> 0 Then
            'กำหนดข้อมูลปลายทางที่จะนำค่ามาวาง
            Set rt = Worksheets("Historical").Range("B" & Rows.Count) _
                 .End(xlUp).Offset(1, 0)
            'กำหนดข้อมูลต้นทาง และ resize เพื่อเปลี่ยนขนาดความสูงเป็น 1 บรรทัดความกว้าง 9 คอลัมน์
            r.Offset(0, -4).Resize(1, 9).Copy
            rt.PasteSpecial xlPasteValues
        End If
    Next r
    Application.CutCopyMode = False
    MsgBox "Finish."
End Sub

[thanapong]

ขอบคุณมากครับ