Russo,
conforme sua MP na planilha continua invertendo mês/dia ao salvar quando mês e dia são inferiores a 12.
Assunto corriqueiro, pela maneira que o VBA manipula datas internamente
;preferência pelo formato americano mmddyyyy. Como um
Textbox, por default fornece seu dado/conteudo como texto, ao salvar o editor vbe "tenta" compatibilizar esse conteudo com formatos conhecidos; assim deve-se informar ao editor qual o formato esperado.
A proposta que lhe sugeri, está na rotina que insere os dados na planilha; além da alteração na configuração dos
textbox datas, via classe, para diminuir um pouco as linhas de codigo:
Código: Selecionar todos
Private Sub lsInserir(ByRef lTextBox As Variant, ByVal chamados As String, ByVal A As Long, ByVal lUltimaLinha As Long)
If (TypeOf lTextBox Is MSForms.TextBox) Or (TypeOf lTextBox Is MSForms.ComboBox) Then
If lTextBox.Tag = "B" Or lTextBox.Tag = "E" Or lTextBox.Tag = "G" Then
Sheets(chamados).Range(lTextBox.Tag & lUltimaLinha).Value = CDate(Format(lTextBox.Text, "dd/mm/yyyy"))
Else
Sheets(chamados).Range(lTextBox.Tag & lUltimaLinha).Value = lTextBox.Text
End If
Else
If TypeOf lTextBox Is MSForms.OptionButton Then
If lTextBox.Value = True Then
Sheets(chamados).Range(lTextBox.Tag & lUltimaLinha).Value = lTextBox.Caption
End If
End If
End If
End Sub
A alteração está na linha onde consta ..cdate(....); o que em seu modelo/exemplo supriu/corrigiu a demanda
Como informou que ainda háinversão de datas Verifique:
Se aplicou a alteração corretamente;
Se os campos datas em seu projeto oficial estão com as Tag's "B" / "E" / "G";
Configuração da coluna(s) data(s) na planilha;
Configuração de datas no painel do windows;
Caso nãoconsiga evoluir disponibilize seu modelo oficial para uma analize mais condizente