รบกวนสอบถามการเขียน code VBA เพื่อบันทึกข้อมูลค่ะ

[gip_gip]

จากไฟล์ที่แนบมานี้ที่ชีทชื่อ Record ต้องการให้เมื่อกด "Add new record" แล้วส่งข้อมูลในช่องสีส้มไปเก็บยังชีทที่ชื่อ Discharge ต่อไปเรื่อยๆ ค่ะ
พยายามศึกษาและหาตัวอย่างจากหลายๆที่แล้วแต่ไม่สามารถทำได้จริงๆค่ะ ถ้าท่านใดพอจะแนะนำได้ต้องขอความกรุณาด้วยค่ะ

[puriwutpokin]

ไฟล์ที่มีการ VBA จะต้องมีนามสกุล .xlsm ครับ ถึงจะบันทึก Code ได้ ลองแนบมาใหม่ และลงโค้ดที่ ติดปัญหามาด้วยครับ ดูForum rules ข้อ5 ดูครับ

[gip_gip]

แก้ไขนามสกุลไฟล์เรียบร้อยแล้วค่ะ
แต่ว่า code คือไม่รู้จะเริ่มเขียนอย่างไรเลยค่ะ ดูจากคลิปที่อาจารย์สอนใน youtube ก็ไม่ตรงกับที่ต้องการจะใช้งาน
เลยไม่รู้ว่าจะเริ่มต้นเขียนอย่างไรค่ะ ดูจากคลิปของอาจารย์แล้วเขียนมาได้แค่นี้เองค่ะ
จะเขียนต่อให้บันทึกค่าจาก cell ที่กำหนดใน sheet record ไปยัง table ใน sheet discharge ไม่เข้าใจว่าต้องเริ่มอย่างไรค่ะ

Code: Select all

Sub recorddata()
    With Sheet("Discharge")
        With .Range("d" & .Row.Count).End(xlUp).Offset(1, 0)
        
        End With
    End With

End Sub

[puriwutpokin]

ลองแจงว่า ต้องการค่าจากตรงตำแหน่งไหน ไปต่อที่ table ที่กำหนด

[gip_gip]

ยกตัวอย่างนะคะ
ต้องการให้เอาข้อมูลจากช่อง B12 จาก sheet record ไปเก็บที่ column F ใน sheet discharge ค่ะ

[logic]

แบบนี้หรือเปล่าครับ

Code: Select all

Sub recorddata()
    With Sheets("Discharge")
        With .Range("f" & .Rows.Count).End(xlUp).Offset(1, 0)
            .Value = Worksheets("Record").Range("B12").Value
        End With
    End With
End Sub