Kod:
Private Sub CommandButton1_Click()
Dim FirstMatch As String, strVal As String, MyMsg As String
Dim MyData As Variant
If Len(TextBox1) >= 1 Then
Set MyData = Columns("C").Find(TextBox1)
If Not MyData Is Nothing T