Página 2 de 2

Re: Fomatar TextBox Eventos KeyPress e Change

Enviado: Ter Jan 12, 2016 10:20 am
por Rafael
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

Re: Fomatar TextBox Eventos KeyPress e Change

Enviado: Dom Fev 14, 2016 5:18 pm
por igor-sd
Me registrei no seu site só pra agradecer.
O tópico me ajudou muito. Muito obrigado!

Re: Fomatar TextBox Eventos KeyPress e Change

Enviado: Ter Out 18, 2016 7:54 pm
por luiz_gustavoss
Boa noite, ressussitando o tópico..

Muito bom os exemplos, estou utilizando um. Porém ele está desligando o numLock após digitar o 3º número...
Alguém poderia me ajudar?!

Segue o código:

[code]
Private Sub item4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
item4.MaxLength = 10 ' limita caracteres
Select Case KeyAscii
Case 8, 48 To 57 ' só libera backspace e números
If Len(item4) = 2 Or Len(item4) = 5 Then
item4.Text = item4.Text & "/"
SendKeys "{END}", True
End If
Case Else
KeyAscii = 0
End Select

End Sub
[/code]


Desde já agradeço

Re: Fomatar TextBox Eventos KeyPress e Change

Enviado: Qui Mar 30, 2017 10:28 am
por lucas.arem
Bom dia a todos!

Primeiramente, gostaria de agradecer pela dica para formatação em data. Ajudou-me bastante em um CRM que estou produzindo. Entretanto, estou tendo problemas com datas que começam com 0 (de 1 a 9). Essas datas aparecem como mês e não como dia. Como faço pra corrigir isso?

Re: Fomatar TextBox Eventos KeyPress e Change

Enviado: Sex Mar 31, 2017 7:35 am
por Reinaldo
Problema e na formatação do campo, ou quando o salva na planilha.
Melhor abrir um novo tópico expondo com detalhes sua duvida/necessidade, e anexando um modelo de seu arquivo/planilha