Re: Fomatar TextBox Eventos KeyPress e Change
Enviado: Ter Jan 12, 2016 10:20 am
poderia me ajudar nesse formulario tex 4 e 5 gostaria de deixar em data mas so fica em muemro
Private Sub Label1_Click()
End Sub
Private Sub TextBox1_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem
codigo = TextBox1.Text
Sheets("Plan1").Select
Set intervalo = Range("A2:E200")
On Error GoTo trataErro
pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)
TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox5.Text = pesq3
TextBox1.SetFocus
Exit Sub
trataErro:
texto = "Produto não localizado!"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub txtData4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
txtData4.MaxLength = 8
'para permitir que apenas números sejam digitados
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub txtData4_Change()
'Formata : dd/mm/aa
If Len(txtData) = 2 Or Len(txtData) = 5 Then
txtData4.Text = txtData.Text & "/"
SendKeys "{End}", True
End If
End Sub
Private Sub Label1_Click()
End Sub
Private Sub TextBox1_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem
codigo = TextBox1.Text
Sheets("Plan1").Select
Set intervalo = Range("A2:E200")
On Error GoTo trataErro
pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)
TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox5.Text = pesq3
TextBox1.SetFocus
Exit Sub
trataErro:
texto = "Produto não localizado!"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub txtData4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
txtData4.MaxLength = 8
'para permitir que apenas números sejam digitados
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub txtData4_Change()
'Formata : dd/mm/aa
If Len(txtData) = 2 Or Len(txtData) = 5 Then
txtData4.Text = txtData.Text & "/"
SendKeys "{End}", True
End If
End Sub