Como colocar automaticamente da data e a hora em um formulario?

[Joel.f]

Ola, eu preciso que a data e a hora sejam preenchidas em um formulario automaticamente assim que ele é aberto. eu consigo com um botão de comando mas n é o que eu queria o formulario chama [userform8] e os campos que eu quero q receba a data e a hora respectivamente é [textbox1] e [textbox2]. O que eu precisava e que esses campos recebessem o valor assim que o formulario e aberto mas n sei onde colocar. Tentei no botão que abre o formulario tentei no botão que resgistra o formulario. se alguem suber obrigado.

[zinhovba]

Exemplo..

Dim dDate As Date 
Private Sub CommandButton1_Click() 
    Sheet1.Range("G1").Value = dDate 
End Sub 

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 

     'Dim dDate As Date
    dDate = DateSerial(Year(Date), Month(Date), Day(Date)) 
    TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy") 
    dDate = TextBox1.Value 
End Sub 

Faça uma adaptação

Private Sub UserForm_Initialize()
    TextBox1.Value = Format(Date, "mm/dd/yyyy")
End Sub

[Visitante]

cole o código abaixo no módulo do UserForm8

Private Sub UserForm_Initialize()
  With Me
    .TextBox1.Text = Date
    .TextBox2.Text = Time
  End With
End Sub