สอบถามผู้รู้เรื่อง VBA_UserForm เพื่อบันทึกข้อมูลลงใน Sheet

[PengKung]

ผมต้องการสร้าง UserForm เพื่อทำการบันทึกข้อมูล โดยให้พิมพ์ค้นหาจาก TextBox1 หัวข้อ Terminal จากนั้น ไป Vlookup หาข้อมูลจาก Sheet ที่ชื่อว่า "Yummy" ซึ่งหากพบข้อมูลใน Sheet ให้เอาข้อมูลจาก TextBox2-14 ไปหยอดให้ตรงกับ Row นั้นๆ ของ Terminal และให้ตรงกับหัวคอลัมน์ด้วยครับ ทั้งนี้ หลังจากหยอดข้อมูลเรียบร้อยแล้ว ให้มี Pop-up เด้งขึ้นว่า "บันทึกข้อมูลสำเร็จ".... แต่จาก Code เมื่อลองกด บันทึก กลับไม่พบการเปลี่ยนแปลงตามที่ต้องการครับ

Code: Select all

Private Sub Save_Click()
Dim i As String
    On Error Resume Next
If TextBox1.Text = "TB1" Then
i = WorksheetFunction.VLookup((TB1), Sheets("Yummy").Range("E5:FK1939"), 1, False)
Worksheets("Yummy").Cells(i, 155) = TextBox2.Text
Worksheets("Yummy").Cells(i, 156) = TextBox3.Value
Worksheets("Yummy").Cells(i, 157) = TextBox4.Value
Worksheets("Yummy").Cells(i, 160) = TextBox5.Value
Worksheets("Yummy").Cells(i, 163) = TextBox6.Value
Worksheets("Yummy").Cells(i, 165) = TextBox7.Value
Worksheets("Yummy").Cells(i, 158) = TextBox8.Value
Worksheets("Yummy").Cells(i, 159) = TextBox9.Value
Worksheets("Yummy").Cells(i, 162) = TextBox10.Value
Worksheets("Yummy").Cells(i, 164) = TextBox11.Value
Worksheets("Yummy").Cells(i, 166) = TextBox12.Value
Worksheets("Yummy").Cells(i, 167) = TextBox13.Text
Worksheets("Yummy").Cells(i, 161) = TextBox14.Value
Unload Me
    'Clear the data
TextBox2.Text = " "
TextBox3.Value = " "
TextBox4.Value = " "
TextBox5.Value = " "
TextBox6.Value = " "
TextBox7.Value = " "
TextBox8.Value = " "
TextBox9.Value = " "
TextBox10.Value = " "
TextBox11.Value = " "
TextBox12.Value = " "
TextBox13.Text = " "
TextBox14.Value = " "
MsgBox "บันทึกข้อมูลสำเร็จ"
End If
End Sub

[snasui]

แนบไฟล์ตัวอย่างพร้อม Code ที่เขียนไว้แล้วมาด้วยจะได้ช่วยดูให้ได้ครับ

[PengKung]

ผมได้แนบไฟล์ พร้อมตัวอย่าง code ให้เรียบร้อยครับ..รบกวนด้วยนะครับ

[snasui]

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

Code: Select all

Private Sub Save_Click()
Dim i As String
    On Error Resume Next
    'If TextBox1.Text = "TB1" Then
    'i = WorksheetFunction.VLookup((TB1), Sheets("Yummy").Range("E5:FK1939"), 1, False)
    j = Application.CountIf(Sheets("Yummy").Range("e4:e1939"), Me.TextBox1.Text)
    If j > 0 Then
        i = Application.Match(Me.TextBox1.Text, Sheets("Yummy").Range("e1:e1939"), 0)
    Else
        MsgBox "Not found data. Please try again.", vbInformation
        Exit Sub
    End If
    
    Worksheets("Yummy").Cells(i, 155) = TextBox2.Text
    Worksheets("Yummy").Cells(i, 156) = TextBox3.Value
    Worksheets("Yummy").Cells(i, 157) = TextBox4.Value
    Worksheets("Yummy").Cells(i, 160) = TextBox5.Value
    Worksheets("Yummy").Cells(i, 163) = TextBox6.Value
    Worksheets("Yummy").Cells(i, 165) = TextBox7.Value
    Worksheets("Yummy").Cells(i, 158) = TextBox8.Value
    Worksheets("Yummy").Cells(i, 159) = TextBox9.Value
    Worksheets("Yummy").Cells(i, 162) = TextBox10.Value
    Worksheets("Yummy").Cells(i, 164) = TextBox11.Value
    Worksheets("Yummy").Cells(i, 166) = TextBox12.Value
    Worksheets("Yummy").Cells(i, 167) = TextBox13.Text
    Worksheets("Yummy").Cells(i, 161) = TextBox14.Value
    Unload Me
    'Clear the data
    TextBox2.Text = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
    TextBox6.Value = ""
    TextBox7.Value = ""
    TextBox8.Value = ""
    TextBox9.Value = ""
    TextBox10.Value = ""
    TextBox11.Value = ""
    TextBox12.Value = ""
    TextBox13.Text = ""
    TextBox14.Value = ""
    MsgBox "บันทึกข้อมูลสำเร็จ"
    'End If
End Sub

การทำให้เป็นค่าว่างคือ "" ไม่ใช่ " " ครับ

[PengKung]

ขอบคุณมากครับสำหรับคำแนะนำ และการช่วยเหลือในครั้งนี้ และหากผมต้องการเพิ่มเติมข้อมูลว่า กรณีไม่พบข้อมูล ให้เด้ง MsgBox เป็น "Not Found Data" ผมต้องใส่ตรงไหนครับ?

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

[snasui]

ได้ทดลอง Code แล้วหรือไม่ ทดลองไมใส่ข้อมูลแล้วได้ผลเป็นเช่นไรครับ

[PengKung]

ได้ทดลองแล้วครับ ตามที่ต้องการครับ....ดังนั้น อยากให้ขึ้น MsgBox กรณี ไม่พบข้อมูลด้วยครับ

[snasui]

ไม่พบข้อมูลมันขึ้นอยู่แล้วครับ

[PengKung]

ขอบคุณมาก...ผมพลาดเองครับ