บันทึกข้อมูลจาก userform ที่ sheet data

[san02551]

ผมต้องการบันทึกข้อมูลจาก userform ไปที่ sheet data
ผมต้องทำหลาย ฟอร์ม และบันทึก ไปแต่ละ sheet
เพราะข้อมูลใน userform เดียว อาจเก็บไว้หลาย sheet

[san02551]

แนบไฟล์เพิ่มครับ พอคลิก บันทึกแล้ว ไม่ต้องโชว์ Sheet data ครับ

[snasui]

การใช้ VBA จำเป็นต้องเขียนมาเองก่อน ติดตรงไหนสามารถถามกันมาได้เรื่อย ๆ ครับ

[san02551]

บันทึกไฟล์ผิดครับ ขอโทษด้วย

[snasui]

ลองปรับเป็นด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim r As Long
    With Sheets("data")
        r = .Range("a" & Rows.Count).End(xlUp).Row + 1
        .Cells(r, 1) = TextBox1.Text
        .Cells(r, 2) = ComboBox1.Text
        .Cells(r, 3) = TextBox2.Text
        .Cells(r, 4) = TextBox3.Text
        .Cells(r, 5) = TextBox4.Text
    End With
End Sub

[san02551]

ทำได้แล้วครับ ตอนนี้กำลังทำฟอร์มบันทึกข้อมูล ให้กับสำนักงานที่ดินอยู่ครับ เสร็จแล้จะขออนุญาต เผยแพร่ครับ กำลังปรับปรุงโปรแกรม ครับ