สอบถามสูตรการสร้างปุ่มบันทึกข้อมูลข้ามชีท

[waritkarniti]

ขอสอบถามการสร้างปุ่มบันทึกข้อมูล บันทึกข้อมูลจาก sheet 2 ไปยัง sheet "Database" แล้วให้ข้อมูลบันทึกเรียงตามลงไปเรื่อยๆ เพื่อเป็นการเก็บข้อมูล ผมมีสร้างปุ่มลบข้อมูล กับ สตูรรันตัวเลข "ใบเสร็จเลขที่" เอาไว้แล้วครับ / ขอความกรุณาด้วยนะครับ

[waritkarniti]

ขอสอบถามนะครับ ผมลองหาตัวอย่างแฟ้มงาน excel ที่มีการบันทึก "Database VBA" จนได้มาเจอตัวอย่างของอาจารย์ / ลองทำตามคลิปของอาจารย์ดู เครื่องแจ้งว่าError "Run-time error '1004':
Application-defined or object-defined error
(ต้องขอโทษด้วยครับผมแนบรูปมาไม่ได้มันแจ้งว่ามีขนาดใหญ่ไป)
อยากให้ลองช่วยแนะนำหน่อยว่าผมผิดพลาดจุดไหนครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Sub Macro21()
    Dim tg As Range, rall As Range
    Dim r As Range, d As Range
    Dim i As Integer, rpt As Range
    Dim t As Range
    With Sheets("Sheet2")
        Set rall = .Range("d7:d17")
        Set d = .Range("f2")
        Set rpt = .Range("f3")
        Set t = .Range("f18")
        i = Application.CountIf(rall, "<>")
    End With
    With Sheets("Databate")
        Set tg = .Range("b" & .Rows.Count).End(xlUp).Offset(1, 0)
        tg.Value = d.Value
        tg.Offset(0, 1).Value = Format(rpt.Value, """DN-""000")
        tg.Offset(0, 2).Resize(1, i) = Application.Transpose(rall.Resize(i).Value)
        tg.Offset(0, 12).Value = t.Value
    End With
End Sub

กรุณาศึกษาให้เข้าใจ การถามคำถามต่อไปจากนี้จะต้องปรับปรุงมาเองก่อนเพื่อให้เป็นไปตามกฎการใช้บอร์ดเสมอ ไม่เช่นนั้นจะไม่ได้รับคำตอบครับ

[waritkarniti]

ขอขอบคุณอาจารย์มากๆเลยนะครับ/ ตอนนี้ผมพยายามนั่งถอดสูตรจากตัวอย่างของแฟ้มงานเก่าของตัวเองที่เคยทำเอาไวเมื่อหลายปีก่อนและคลิปการบันทึกของอาจารย์มีประโยชน์มากๆครับ( VBA เป็นเรื่องที่ยากมากผมเลยถอดใจไม่ได้ศึกษาต่อหลังจากทำแฟ้มงานนั้นจบ) จะรีบศึกษาตามคำแนะนำของอาจารย์มานะครับ

หากผมทำการใดไม่สมควรต้องกราบขออภัยอารจย์และเพื่อนๆพี่ๆสมาชิกในนี้ด้วยนะครับ