Snasui Excel Forum

Code: Select all

Private Sub Cmb2_Click()
'ค้นหา
Dim CaseNo As String
CaseNo = Trim(Me.TextBox1.Text)

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set tbl = ws.ListObjects("MyContact")

Dim lRow As Long
lRow = tbl.Range.Rows.Count
With lRow
    Me.TextBox1.Text = .Range(1)
    Me.TextBox2.Text = .Range(2)
    Me.TextBox3.Text = .Range(3)
End With

End Sub

Private Sub Cmb3_Click()
'แก้ไข
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set tbl = ws.ListObjects("MyContact")

Dim lRow As ListRow
Set lRow = tbl.ListRows.Add
With lRow
.Range(1) = Me.TextBox1.Text
.Range(2) = Me.TextBox2.Text
.Range(3) = Me.TextBox3.Text
End With

End Sub