Escrever Data do Datetimepicker no excel
Enviado: 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é
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é