Data Padrão americano para BR

[Vitor Hugo Ataide Almeida]

Bom dia,

 

Preciso de ajuda, tenho uma planilha de cadastro com formulário. Mas ao inserir a data ela inverte o dia com o mês.

 

Segue código utilizado, a data fica no combo box 7

 

Private Sub CommandButton1_Click()
    lsInserirTextBox frmCadastro, "Cadastro", 3
    
    lsLimparTextBox frmCadastro
    
    TextBox1.SetFocus
    
    MsgBox ("OTRS Inserido com Sucesso")
End Sub

Private Sub lsInserir(ByRef lTextBox As Variant, ByVal lSheet As String, ByVal lColunaCodigo As Long, ByVal lUltimaLinha As Long)
         If (TypeOf lTextBox Is MSForms.TextBox) Or (TypeOf lTextBox Is MSForms.ComboBox) Then
        Sheets(lSheet).Range(lTextBox.Tag & lUltimaLinha).Value = lTextBox.Text
    Else
If TypeOf lTextBox Is MSForms.OptionButton Then
            If lTextBox.Value = True Then
                Sheets(lSheet).Range(lTextBox.Tag & lUltimaLinha).Value = lTextBox.Caption
            End If
        End If
    End If
End Sub

Public Function lsInserirTextBox(formulario As UserForm, ByVal lSheet As String, ByVal lColunaCodigo As Long)
    Dim controle            As Control
    Dim lUltimaLinhaAtiva   As Long
    
    lUltimaLinhaAtiva = Worksheets(lSheet).Cells(Worksheets(lSheet).Rows.Count, lColunaCodigo).End(xlUp).Row + 1
    
    For Each controle In formulario.Controls
        lsInserir controle, lSheet, lColunaCodigo, lUltimaLinhaAtiva
    Next
End Function

Public Function lsLimparTextBox(formulario As UserForm)
    Dim controle            As Control
    Dim controle2           As Control
    
    For Each controle In formulario.Controls
        If TypeOf controle Is MSForms.TextBox Then
            controle.Text = ""
        End If
        
    For Each controle2 In formulario.Controls
        If TypeOf controle2 Is MSForms.ComboBox Then
            controle2.Text = ""
        End If
        
    Next
    Next
End Function

Private Sub CommandButton2_Click()
    lsLimparTextBox frmCadastro
    
    TextBox1.SetFocus
End Sub


Private Sub TextBox1_Change()

TextBox7.Value = Date
TextBox10.Value = Date
TextBox12.Value = Date
TextBox11.Value = Time


End Sub

 

[Basole]

Experimente usar o CDate: 

Exemplo: 

Textbox1 = VBA.CDate(VBA.Date)
'ou
Textbox1 = VBA.CDate(Me.comboBox.Text)
'ou
ActiveCell = VBA.CDate(Me.comboBox.Text)

Mas faça um tratamento anti error, para caso o valor esteja vazio... if me.combobox <> Empty then

[Vitor Hugo Ataide Almeida]

Não funcionou, no caso a combo box 7 tem a data. Tentei alterar o seu código para combo box 7 mas não mudou nada

[Basole]

Experimente inverter dia com o mes na formatação:  ex.:

ActiveCell = VBA.Format(Me.comboBox.Text, "mm/dd/yyyy")