Iesire userform

[valymyky]

Buna ziua,
Am un userform cu multipage pe el si mai multe textbox-uri. In textbox1 am o restrictie sa se scrie un numar sau "FN", functioneaza dar in momentrul cand apas pe butonul creat pentru iesire din userform cu comanda "Unload Me" imi apare mesajul de restrictie creat pentru textbox1. Am incercat sa scriu valoarea 1 la iesire din formular dar nu o ia. Trebuie sa scriu eu o valoare in textbox si apoi sa apas butonul de iesire. As vrea sa gasesc o varianta sa ies fara sa fiu nevoit sa mai scriu o valoare in textbox-ul respectiv. Aveti vre-o idee?
Multumesc anticipat pentru orice sugestie

Cod: Selectaţi tot

Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)

End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1.Value) And TextBox1.Value <> "FN" Then
''TextBox1.BackColor = &HFF00&
MsgBox "Atentie!!! Se scrie doar FN sau numar mare"
TextBox1.Value = ""
Cancel = True
''TextBox1.SetFocus
''Else
''TextBox1.BackColor = &H80000005
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

[Nills]

Salut,

Vrei sa retii si restrictia din TextBox1? sau nu.
Daca nu atunci renunta la eventul TextBox1_Change.
Daca da atunci renunta la Cancel = True (adica 'Cancel = True)

[valymyky]

Da, vreau sa mentin restrictia, am renuntat cum ai spus la Cancel=True .
Multumesc frumos.