[kapetang]

Καλησπέρα

Θα πρότεινα να χρησιμοποιήσεις τον κώδικα:

Private Sub cmdSearch_Click()
'Αναζήτηση
    Dim totRows As Long, i As Long, j As Long

    totRows = Worksheets("Data").Range("A2").CurrentRegion.Rows.Count

    If OptionButton1.Value = True Then          'αναζήτηση ονόματος
        For i = 2 To totRows
            If Trim(Φύλλο1.Cells(i, 1)) = Trim(TextBox1.Text) Then
                For j = 1 To 4
                    Me.Controls("TextBox" & j) = Φύλλο1.Cells(i, j)
                Next
                Exit Sub
            End If
        Next
        
        MsgBox "Το όνομα δεν αντιστοιχεί" _
             & vbLf & "με τη λίστα της βάσης δεδομένων!", vbInformation, "Αναζήτηση εγγραφής"
        Me.TextBox1.SetFocus

    Else                                    'αναζήτηση τηλεφώνου
        For i = 2 To totRows
            If Trim(Φύλλο1.Cells(i, 2)) = Trim(TextBox2.Text) Then
                For j = 1 To 4
                    Me.Controls("TextBox" & j) = Φύλλο1.Cells(i, j)
                Next
                Exit Sub
            End If
        Next

        MsgBox "Ο αριθμός κινητού δεν αντιστοιχεί" _
             & vbLf & "με τη λίστα της βάσης δεδομένων!", vbInformation, "Αναζήτηση εγγραφής"
        Me.TextBox2.SetFocus
    End If

End Sub