Snasui Excel Forum

Code: Select all

Private Sub CommandButton2_Click()
 
 Dim recdRow As Long
    recdRow = Application.Match(TextBox14.Text, Sheets("Berast").Range("a:a"), 0)
    With Sheets("Berast")
        .Cells(recdRow, 1).Value = TextBox1.Text
        .Cells(recdRow, 2).Value = TextBox2.Text
        .Cells(recdRow, 3).Value = TextBox3.Text
        .Cells(recdRow, 4).Value = ComboBox1.Text
        .Cells(recdRow, 5).Value = TextBox4.Text
        .Cells(recdRow, 6).Value = TextBox5.Text
        .Cells(recdRow, 7).Value = ComboBox2.Text
        .Cells(recdRow, 8).Value = ComboBox3.Text
        .Cells(recdRow, 9).Value = TextBox6.Text
        .Cells(recdRow, 10).Value = ComboBox4.Text
        .Cells(recdRow, 11).Value = ComboBox5.Text
        .Cells(recdRow, 12).Value = ComboBox6.Text
        .Cells(recdRow, 13).Value = ComboBox7.Text
        .Cells(recdRow, 14).Value = ComboBox8.Text
        .Cells(recdRow, 15).Value = TextBox7.Text
        .Cells(recdRow, 16).Value = ComboBox9.Text
        .Cells(recdRow, 17).Value = TextBox8.Text
        .Cells(recdRow, 18).Value = TextBox9.Text
        .Cells(recdRow, 19).Value = TextBox10.Text
        .Cells(recdRow, 20).Value = TextBox11.Text
        .Cells(recdRow, 21).Value = ComboBox10.Text
        .Cells(recdRow, 22).Value = ComboBox11.Text
        .Cells(recdRow, 23).Value = ComboBox12.Text
        .Cells(recdRow, 24).Value = ComboBox13.Text
        .Cells(recdRow, 25).Value = TextBox12.Text
        .Cells(recdRow, 26).Value = ComboBox14.Text
        .Cells(recdRow, 27).Value = ComboBox15.Text
        .Cells(recdRow, 28).Value = TextBox13.Text
        
    End With
    MsgBox ("แก้ไขข้อมูลเสร็จแล้ว")
End Sub

Code: Select all

recdRow = Application.Match(CLng(TextBox14.Text), Sheets("Berast").Range("c:c"), 0)