Pedrosa Souza

Boa tarde galera, mais uma vez necessito da ajuda de vocês, tenho um formulário com 55 TextBox's com os respectivos nomes TextBox101 a TextBox155, eu preciso que em todos só aceite números inteiros. Com o código abaixo eu consigo extamente o que preciso: Private Sub TextBox101_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 8 'Aceita o BACK SPACE Case 13: SendKeys "{TAB}" 'Emula o TAB Case 48 To 57 Case Else: KeyAscii = 0 'Ignora os outros caracteres End Select End Sub Porém terei de repetir 55 vezes o mesmo código mudando somente o os números finais do do TextBox de 101 até 155. Para que o código fique mais elegante, sem redundância e com redução na chance de erro, eu queria um evento "KeyPress avançado" o qual através de Loop, Next ou qualquer outra ferramente me desse apenas um único código que rodasse em todas as minhas TextBox's, isso é possível e alguém conhece? Obrigado Amigos Pedro Souza

Galera, consegui resolver meu problema com o seguinte código, o exemplo abaixo é para um TextBox de CEP, mas pode ser adaptado para qualquer tipo (CNPJ, CPF, Data, etc): Private Sub inputCEP_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 8 'Aceita o BACK SPACE Case 13: SendKeys "{TAB}" 'Emula o TAB Case 48 To 57 If inputCEP.SelStart = 2 Then inputCEP.SelText = "." If inputCEP.SelStart = 6 Then inputCEP.SelText = "-" Case Else: KeyAscii = 0 'Ignora os outros caracteres End Select Plan2.Range("H14").Value = inputCEP.Value 'Os dados digitados só implementados na planilha de cálculo End Sub Lembre galera que nas propriedades colocar o MaxLenght com o valor 10 que o número máximo de caracteres do campo ao digitar. Abraço a todos. Pedro Souza

Boa noite Pessoal, realmente todas as máscaras funcionam perfeitamente, até mesmo para outros tipos, no meu caso eu alterei para telefone com o seguinte formato (##) ####-####. Entre tanto percebi um problema, caso você cometa um erro na digitação de algum dos algarismos, no CNPJ, CPF, DATA ou Etc, se você utilizar o Backspace para apagar até o digito errado, o curso "trava" até o algarismo que foi acrescentado para dar o formato ("/", "." ou "-"), paga poder apagar você tem de selecionar TODO o conteúdo do TextBox e apagar. Amigos gostaria de saber se temos alguma opção para driblar essa questão? Agradeço desde já a atenção. Pedro Souza