edtoledo

Consegui resolver de outro jeito......... Adicionei mais uma variável "As Date" e fiz a transição em dois estágios: Dim d As Date d=UserForm1.TextBox5.Value .Cells(3,5).Value = d Fiz um teste desse jeito que você falou e funcionou.... Valeu pela ajuda

O problema de alterar o formato do TextBox5 para "mm/dd/yyyy" é quando o usuário digitar 03/04/2008 o valor do TextBox5 irá mudar para 04/03/2008, mesmo ele colando no Excel 03/04/2008 tenho medo do usuário forçar um erro ao ver escrito 04/03/2008 no formulário, gostaria que tanto o formulário quanto na tabela o Excel tivessem o mesmo formato. O engraçado que o formulário e a célula do Excel estão formatados como "dd/mm/yyyy".

Pessoal estou com um problema quando tento transferir os dados de um formulário para uma planilha, tenho dois campos: DATA e VALOR. Quando digito por exemplo a data 03/04/08 ele transfere para o excel 04/03/08 e o campo valor ele transfere como texto ao invés de número. Meu código: Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox5 = Format(TextBox5, "dd/mm/yyyy") Cancel = False End Sub Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox4 = Format(TextBox4, "#,##0.00") Cancel = False End Sub Private Sub CommandButton1_Click() With Worksheets("Registros") .Cells(3, 5).Value = UserForm1.TextBox5.Value .Cells(3, 6).Value = UserForm1.TextBox4.Value End With End Sub Alguém pode me ajudar?