Textboxa şart ekleme

[command]

Yapmak istediğim şey, textboxa sadece istediğim yazıların yazılabilmesi. Örn, Hakan, Mehmet, Hasan. , kelimelerinde farklı bişşey yazıldığında düzeltilene kadar uyarı vermesi.

nasıl yapabilirim acaba userformdaki textboxlat için.

teşekkürler.

 

[hamitcan]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    arr = Array("Hasan", "Mehmet", "Hakan")
    For i = 0 To UBound(arr)
        If TextBox1.Text = arr(i) Then
        Cancel = False: Exit For
        Else
        Cancel = True
        End If
    Next
End Sub

şeklinde deneyin.

 

[command]

teşekkürler. yardımın için.