Excel VBA - TextBox

edtoledo · 30 de janeiro de 2008

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?

Márcio Rodrigues · 30 de janeiro de 2008

Tente isto:

TextBox5 = Format(TextBox5, "mm/dd/yyyy") ' Altere dd por mm e vice versa

Quanto "campo valor ele transfere como texto ao invés de número", aqui eu só formatei a celula como Moeda e deu certo.

edtoledo · 31 de janeiro de 2008

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".

Márcio Rodrigues · 31 de janeiro de 2008

Caro edtoledo:

Realmente não funcionou... Tente isto então:

.Cells(3, 5).Value = Format(UserForm1.TextBox5.Value, "mm/dd/yyyy")

Formate o resultado direto na célula. Fiz alguns exemplos e funcionou. Teste e informe. Grande abraço e té +.

edtoledo · 31 de janeiro de 2008

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

wallysonn · 24 de novembro de 2008

Olá pessoal to com o mesmo problema e não to conseguindo reslver, o meu código é muito mais simples.

Tenho formulário com um campo DATA é uma textbox. Criei um botão que chamei de buton_imprimir. ou seja quando alguem digitar a data no campo textbox ela vai ser jogada na planilha e em seguida essa planilha vai ser impressa.

O problema é o mesmo do pessoal, se digito na textbox 23/11/2008, é jogado na célula 11/23/2008.

Meu código:

Private Sub buton_imprimir_Click()

Worksheets("dados").Range("B26") = txt_data.Value

end sub

tá faltando o restante do código pra imprimir...

como faço pra corrigir isso galera!!!!!!!

Martina Angel · 25 de novembro de 2008

Tente com a função de conversão CDate. Eu sempre uso essa função e não tenho problemas com o formato de datas

Worksheets("dados").Range("B26") = CDate(txt_data.Value)

wallysonn · 1 de dezembro de 2008

Olá galera, conseguir resolver, gostaria de agradecer a Martina Angel pela dica, mas conseguir resolver de outra forma, basta inserir datevalue. veja como ficou meu código:

Worksheets("dados").Range("B26") = datevalue(txt_data.Value)

Agora to com uma dúvida, essa muito mais simples. Já fiz antes, só que agora não tá dando certo:

Tenho uma Label que chamei de Label_dia. quero exibir nessa label apenas o dia, mas por extenso, tipo segunda-feira.

tentei por Day(date) só que só mostra 1, no caso de segunda-feira

Girlã Santos · 11 de maio de 2009

Tenho o mesmo problema, tentei todas as possibilidades citadas aqui e ainda assim dá erro!

Só não dá erro quando eu coloco algum dia da data maior que a quantidades de meses no ano.

Exemplo, se eu colocra a data 03/01/09, quando sai do txtbox para a celula altera para 01/03/09. Já eu colocando 31/12/09 não altera nada!!

Código:

For x = 5 To 9

Cells(i, j).Value = Controls("textbox" & x).Text

j = j + 1

urim · 4 de agosto de 2009

Gostaria de saber de vocês como posso colocar data no userform de maneira que ela se organize assim 22/08/1970 sem que precise colocar as barrinhas e se isso É possivel no formulario que insere dados na planilha do excel . Se alguem puder me enviar passo a passo eu agradeÇo. Obrigado urim.

Parreira16 · 23 de dezembro de 2010

Primeiramente peço desculpa por re-abrir este topico, vou dar uma dica para os que pesquisarem neste topico e tentar descobrir como proceder.

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

Eu apenas coloquei uma variavel no commandbutton1 com nome data e alterei o valor da igualdade da .Cells(3, 5).Value = UserForm1.TextBox5.Value, conforme abaixo:


Private Sub CommandButton1_Click()
[B]Dim Data As Date
Data = UserForm1.TextBox5.Value[/B]
    With Worksheets("Registros")
    .Cells(3, 5).Value = [B]Data[/B][COLOR="Green"] 'substitui o UserForm1.TextBox5.Value por Data[/COLOR]
    .Cells(3, 6).Value = UserForm1.TextBox4.Value
    End With
End Sub

isaacbrsp · 11 de setembro de 2013

Boa tarde.

ve se isso te ajuda coloca o mes como texto segue o exemplo

03/04/2008 vai ficar assim 03/abr/2008

Private Sub CommandButton1_Click()

With Worksheets("Registros")

.Cells(3, 5).Value =Format(TextBox1.Value, "dd/mmm/yyyy")

vai ficar assim 03/abr/2008

.Cells(3, 5).Value =Format(TextBox1.Value, "dd/mmmm/yyyy")

ou Assim 03/abril/2008

End With

End Sub

faz um teste ai beleza.

ve se isso te ajuda coloca o mes como texto segue o exemplo

03/04/2008 vai ficar assim 03/abr/2008

Private Sub CommandButton1_Click()

With Worksheets("Registros")

.Cells(3, 5).Value =Format(TextBox1.Value, "dd/mmm/yyyy")

vai ficar assim 03/abr/2008

.Cells(3, 5).Value =Format(TextBox1.Value, "dd/mmmm/yyyy")

ou Assim 03/abril/2008

End With

End Sub

faz um teste ai beleza.

Camila Sousa · 20 de janeiro de 2015

Olá, prezados boa tarde

Há muito tempo uso do clubedohardware para sanar dúvidas e tem sido de muita ajuda!

Só que estou com o mesmo problema do tópico e não consegui resolver com as ajudas disponibilizadas, até pela minha falta de conhecimento. Meu conhecimento de vba é bem básico mesmo, quase pré-histórico.. kkk

Enfim, já tentei de tudo que é forma mas não dá certo. Preciso que a data seja importada no formato dd/mm/aaaa e ele só faz o contrário! (mm/dd/aaaa). Preciso que a importação correta ocorra em todos os textbox onde coloquei data (cxtData, cxtDataInternação, cxtDatadenascimento, cxtDataLiberação e cxtDataSentença)

Segue o código:

Private Sub bcoCarregardata_Click()

cxtData.Text = Format(Date, "dd/mm/yyyy") 'essa funciona na importação! Mas quando quero escrever a data, ao invés de clicar no botão, ele importa com dia e mês trocados

End Sub

Private Sub bcoInserirDados_Click()

MsgBox "Dados cadastrados com sucesso", vbExclamation, "Aviso"

ActiveCell.Offset(0, 0).Activate

ActiveCell.Value = Me.cxtData.Text