Excel não aceita data vinda de Userform

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Excel não aceita data vinda de Userform

Mensagempor marxreik » Seg Jan 13, 2020 11:37 am

Oi Pessoal, sou novo aqui e não entendi como me apresentar, Marcos de São Paulo, SP

Preciso de uma ajuda gente, criei um form no excel 2016 onde eu alimento uma planilha com dados, entre eles Data neste formato 13/01/2020. Tudo ocorre ok, coloquei um validador de data, deixei a coluna formatada para data , porém o excel não reconhece como data os valores e não consigo fazer uma tabela dinâmica com uma Timeline. A planilha é alimentada normalmente e aparece para mim a data, mas não funciona para fazer tabela dinãmica, diz que os dados da coluna não são considerados como data.

Se eu digito na mão sem usar o userform ele aceita como data na tabela dinâmica. Já tentei vários codigos neste textbox, mas nada, ou seja, tenho um formulário que funciona mas o excel não aceita os dados como data.
Me ajudem por favor.

Este é meu código atual

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Not IsDate(TextBox2) And TextBox2 <> “” Then 'data inválida
MsgBox "Data inválida!", vbInformation, "Checar data"
Cancel = True
End If
End Sub

********************************************************************************************
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

TextBox2.MaxLength = 10 'Permite digitar no máximo 10 caracteres

Select Case KeyAscii

Case 8 'Aceita o BACK SPACE

Case 13: SendKeys “TAB” ' Emula o TAB

Case 48 To 57

If TextBox2.SelStart = 2 Then TextBox2.SelText = "/" 'insere barra ao digitar dia

If TextBox2.SelStart = 5 Then TextBox2.SelText = "/" 'insere barra ao digitar mes"

Case Else: KeyAscii = 0 'Ignora os outros caracteres

End Select

End Sub

*************************************************************************************************************
e no botão inserir este é a linha do códico que insere o valor que tenho no textbox 2

Sheets("Pedidos").Cells(iTotalLinhas, 3).Value = TextBox2

Alguém tem uma luz? Ficarei muito grato
marxreik
Membro
Membro
 
Mensagens: 1
Registrado em: Seg Jan 13, 2020 11:20 am
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: Excel não aceita data vinda de Userform

Mensagempor JSCOPA10 » Seg Jan 13, 2020 1:48 pm

.
marxreik, o tópico "Recém Chegado? Apresente-se aqui!!", cujo nome é bem sugestivo, é somente para apresentação ... perguntas devem ser feitas em tópicos adequados !!!!
.
Fique atento!!! ..
.
Avatar do usuário
JSCOPA10
Ninja do Excel
Ninja do Excel
 
Mensagens: 315
Registrado em: Qua Jun 19, 2019 9:11 pm
Has thanked: 30 times
Have thanks: 110 times

Re: Excel não aceita data vinda de Userform

Mensagempor MPrudencio » Seg Jan 13, 2020 2:19 pm

Tente assim

Sheets("Pedidos").Cells(iTotalLinhas, 3).Value = cdate(TextBox2.value)
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

MPrudencio
Membro
Membro
 
Mensagens: 2841
Registrado em: Sáb Ago 15, 2015 8:29 pm
Has thanked: 79 times
Have thanks: 625 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: klarc28 e 6 visitantes