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é
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Escrever Data do Datetimepicker no excel
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Qui Mai 21, 2020 7:07 pm
-
- Manda bem
- Mensagens: 107
- Registrado em: Qua Nov 29, 2017 11:51 am
- Localização: Fortaleza - CE
Re: Escrever Data do Datetimepicker no excel
andrefalex,
Boa tarde!
Para levar o resultado para a planilha ao escolher a data basta usar dessa forma:
A outra necessidade comentada eu não entendi...
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
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Sex Set 18, 2020 2:58 pm
Re: Escrever Data do Datetimepicker no excel
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
-
- Manda bem
- Mensagens: 107
- Registrado em: Qua Nov 29, 2017 11:51 am
- Localização: Fortaleza - CE