Boa noite,
Acabei de construir um formulário apenas com uma entrada de dados. Nessa textbox, pretendo fazer o seguinte:
1) Apenas permitir digitar números
1) Apenas permitir digitar 4 digitos.
Meu código até ao momento está assim:
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets("Análises")
If Trim(Me.TextBox1.Value) = "" Then
Me.TextBox1.SetFocus
MsgBox "Por favor, insira um número de proposta"
Exit Sub
End If
ws.Range("N7").Value = Me.TextBox1.Value
Me.TextBox1.Value = ""
End Sub
Private Sub CommandButton2_Click()
Unload Me
Call ReporValores
End Sub
Alguém me saber dizer como faço o código?
Postado : 04/02/2013 6:40 pm