Data (I)a = len(textbox1)if a = 2 thentextbox1=textbox1 & aelsea = len(textbox1)if a = 5 thentextbox1=textbox1 & aelseend ifend iflen conta os caracteres assim quado tiver dois caract ele coloca a barra e quado tivercinco caract ele coloca tambem ... DATA(II)ActiveCell.Offset(0, 2).Value = CDate(Me.TextBox4)ActiveCell.NumberFormat = "dd/mm/yy"Quanto as barras voce deve fazer o seguinte:1. No evento Change coloque este codigo. Observeque TextBox4.Private Sub TextBox4_Change()Select Case Len(TextBox4)Case 1If TextBox4 = "/" Then TextBox4 =""Case 2, 5If Right(TextBox4, 1) <> "/" ThenTextBox4 = TextBox4 & "/"ElseTextBox4 = Left(TextBox4, Len(TextBox4) - 1)End IfCase Is > 10TextBox4 = Left(TextBox4, 10)End SelectEnd Sub2 - No evento KeyPress o codigo abaixo vaipermitir apenas a entrda de numeros.Private Sub TextBox4_KeyPress(ByVal KeyAscii AsMSForms.ReturnInteger)Dim strValid As StringstrValid = "0123456789"If InStr(strValid, Chr(KeyAscii)) = 0 ThenKeyAscii = 0End IfEnd Sub TELEFONE(I)If Len(TextBox1) = 2 Then TextBox1 = "("& Mid(TextBox1, 1, 2) & ")"If Len(TextBox1) = 8 Then TextBox1 = TextBox1& "-"CNPJIf Len(TextBox2) = 2 Then TextBox2 = TextBox2& "."If Len(TextBox2) = 6 Then TextBox2 = TextBox2& "."If Len(TextBox2) = 10 Then TextBox2 = TextBox2& "/"If Len(TextBox2) = 15 Then TextBox2 = TextBox2& "."Nao esquece de limitar os caracteres naspropriedades do TextBox (contando as pontuacoes)TELEFONE(II)Private SubTextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)TextBox1.Text = Format(TextBox1.Text,"00-00000000")End SubCPFPrivate Sub TextBox1_Change()If Len(TextBox1) = 3 ThenTextBox1 = TextBox1 + "."TextBox1.SelStart = 5End IfIf Len(TextBox1) = 7 ThenTextBox1 = TextBox1 + "."TextBox1.SelStart = 9End IfIf Len(TextBox1) = 11 ThenTextBox1 = TextBox1 + "-"TextBox1.SelStart = 14End IfEnd SubDepois, e so voce limitar o numero de caracteres do textbox...Valeu e so criar um blog e colocar anuncios!! Pessoal,Gostaria do auxilios de vcs, para solucionar uma dificuldade:Estou criando uma planilha, na qual vou inserir alguns dados, via TextBox.O fato e que depois de muita dificuldade (sou iniciante em VBA), consegui um codigo para que a digitar uma infomacao na textbox, caso a linha esteja preenchida, sejam inseridas as informacoes ma proxima linha, da mesma coluna (abaixo).Abaixo, segue o codigo que estou usando:Private Sub CommandButton1_Click()With Sheets("Cadastro").Range("B" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Value = TextBox01.Text.Offset(1, 1).Value = TextBox02.Text.Offset(1, 2).Value = TextBox03.Text.Offset(1, 3).Value = TextBox04.Text.Offset(1, 4).Value = TextBox05.Text.Offset(1, 5).Value = TextBox06.Text.Offset(1, 6).Value = TextBox07.Text.Offset(1, 7).Value = TextBox08.Text.Offset(1, 8).Value = TextBox09.Text.Offset(1, 9).Value = TextBox010.Text.Offset(1, 10).Value = TextBox011.Text.Offset(1, 11).Value = TextBox012.Text.Offset(1, 12).Value = TextBox013.Text.Offset(1, 13).Value = TextBox014.TextEnd WithTextBox01.Text = ""TextBox02.Text = ""TextBox03.Text = ""TextBox04.Text = ""TextBox05.Text = ""TextBox06.Text = ""TextBox07.Text = ""TextBox08.Text = ""TextBox09.Text = ""TextBox010.Text = ""TextBox011.Text = ""TextBox012.Text = ""TextBox013.Text = ""TextBox014.Text = ""TextBox01.SetFocusUnload MeMsgBox "Atualizacao realizada com sucesso!", vbOkOnliEnd SubComo podem ver, sao 14 TextBox, as quais inserem valores distintos (Data, CPF, RG, Hora), por isso, estao necessito saber, como adequar este codigo, as formatacoes necessarias.Alguem saberia me ajudar?Desde ja, agradeco!Atenciosamente,Jean Alves LANCHE DA VILA:'via Blog this' Pizza de qualidade voce encontra aquiA qualidade das pizzas e do atendimento continua melhor e mais personalizada do que nunca.A fama da boa massa da Pizzaria Carlitos Chaplin se espalhou em Guarulhos e a propaganda boca a boca garantiu um bom movimento desde o inicio. O reconhecimento desta epoca era apenas o comeco de um longo sucesso em guarulhos.http://www.carlitoschaplinpizzaria.com.br/ LC WEEKEND! e daqui a pouco! Time todo ansioso, mas a apresentacao ta na ponta da