ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Escrever Data do Datetimepicker no excel

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
andrefalex
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qui Mai 21, 2020 7:07 pm

Escrever Data do Datetimepicker no excel

Mensagem por andrefalex » Sex Mai 22, 2020 8:44 am

Bom dia a todos,

Utilizei o DateTimePicker postado no video do youtube e ele funcionou bem. No entanto, gostaria que a data escolhida fosse escrita em uma planilha no momento da escolha (e nao clicando em um botao). Tentei o código abaixo, mas nada ocorre. Tentei também com AfterUpadate e algumas outras opções.

Private Sub ComboBox1_Change()

Sheets("Entrada de Dados").Range("D8") = DTP4.Value

End Sub

Aproveitando, tentei ajustar o código abaixo para um um controle activex, para que fique em um combobox fixo na planilha (sem ter que clicar em um botao para abrir), mas tambem nao consegui. É possivel?

Private Sub UserForm_Initialize()

Set DTP4 = New DateTimePicker
With DTP4
.Add ComboBox1

.Create Me, "dd/mm/yyyy", _
BackColor:=&H125FFFF, _
TitleBack:=&H808000, _
Trailing:=&H99FFFF
.Value = Date
End With
End Sub

Agradeço desde já,

André



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner Morel
Manda bem
Manda bem
Mensagens: 107
Registrado em: Qua Nov 29, 2017 11:51 am
Localização: Fortaleza - CE

Re: Escrever Data do Datetimepicker no excel

Mensagem por Wagner Morel » Sex Jun 05, 2020 3:59 pm

andrefalex,

Boa tarde!

Para levar o resultado para a planilha ao escolher a data basta usar dessa forma:

Código: Selecionar todos

Private Sub DTPicker1_Change()
    Range("A2").Value = DTPicker1.Value
End Sub
A outra necessidade comentada eu não entendi...


Atenciosamente,
Wagner Morel

marcosmjjt
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sex Set 18, 2020 2:58 pm

Re: Escrever Data do Datetimepicker no excel

Mensagem por marcosmjjt » Qua Set 23, 2020 11:59 am

Olá, Wagner, eu tentei usar essa sub pra forçar um evento "change" no meu datetimepicker mas não funcionou. Vc chegou a testar no seu projeto? Só falta esse item pra eu terminar o meu, mas não acho resposta em canto nenhum na internet



Wagner Morel
Manda bem
Manda bem
Mensagens: 107
Registrado em: Qua Nov 29, 2017 11:51 am
Localização: Fortaleza - CE

Re: Escrever Data do Datetimepicker no excel

Mensagem por Wagner Morel » Sex Out 02, 2020 7:08 am

Sim, testei. Funciona perfeitamente bem.


Atenciosamente,
Wagner Morel

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder