Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
' ตกลง
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set tbl = ws.ListObjects("Add2MDB_TB")

Dim lRow As ListRow
Set lRow = tbl.ListRows.Add
With lRow
.Range(1) = Me.ComboBox1.Text
End With

End Sub

Private Sub UserForm_Initialize()
    Me.ComboBox1.ColumnWidths = "0pt;80pt"
End Sub

Code: Select all

Private Sub CmbSearch_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("DataSheet")
Set tbl = ws.ListObjects("Add2MDB_TB")

Dim selectM As Long
selectM = CbbS_NumM.Text
Dim lRow As Long
lRow = tbl.Range.Rows.Count

For i = 2 To lRow
    If tbl.Range.Cells(i, 1).Value = selectM Then
        Me.CbbSearch.Text = tbl.Range.Cells(i, 1).Value
    End If
Next i
End Sub