Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Fomatar TextBox Eventos KeyPress e Change

Dicas dos mais variados tipos, necessidades, angústias, enfim
Rafael
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Jan 12, 2016 10:17 am

Re: Fomatar TextBox Eventos KeyPress e Change

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


igor-sd
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Dom Fev 14, 2016 5:10 pm

Re: Fomatar TextBox Eventos KeyPress e Change

Mensagem por igor-sd »

Me registrei no seu site só pra agradecer.
O tópico me ajudou muito. Muito obrigado!


luiz_gustavoss
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Out 18, 2016 7:49 pm

Re: Fomatar TextBox Eventos KeyPress e Change

Mensagem 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


lucas.arem
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qua Jan 28, 2015 5:30 pm

Re: Fomatar TextBox Eventos KeyPress e Change

Mensagem 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?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Fomatar TextBox Eventos KeyPress e Change

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder