Página 1 de 1

Escrever Data do Datetimepicker no excel

Enviado: Sex Mai 22, 2020 8:44 am
por andrefalex
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é

Re: Escrever Data do Datetimepicker no excel

Enviado: Sex Jun 05, 2020 3:59 pm
por Wagner Morel
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...

Re: Escrever Data do Datetimepicker no excel

Enviado: Qua Set 23, 2020 11:59 am
por marcosmjjt
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

Re: Escrever Data do Datetimepicker no excel

Enviado: Sex Out 02, 2020 7:08 am
por Wagner Morel
Sim, testei. Funciona perfeitamente bem.