Problema fecha en formulario

[Orestes]

Buenos días, tengo un problema del cual no encontré forma alguna de solucionarlo. Se trata de un formulario que carga los datos en dos solapas diferentes, el problemas es que el textbox13 al cargar una fecha excel la da vuelta automáticamente. El problema es que al cargar por ejemplo 1/04/2016 (1 de abril de 2016) lo carga como 04/01/2016. Gracias por su ayuda y saludos.

problema fechas.rar

[DiegoLG]

No se en que columna se encuentra la fecha, pero te aconsejo que la columna donde van las fechas le pones formato de texto para que al cargar y/o capturar no tengas ese tipo de problemas.

Me comentas si es lo que necesitas.
Saludos

 

[Antoni]

Debes convertir a fecha los textbox:

Al convertir a fecha si el textbox no contiene una fecha válida, se producirá un "Error 13. No coinciden los tipos", por lo que debes validar primero su contenido, por ejemplo:

If IsDate(TextBox13) Then
   TextBox13.BackColor = vbWhite
   Cells(fila, 5).Value = CDate(TextBox13)
Else
   MsgBox "Fecha no válida", vbCritical
   With TextBox13
      .BackColor = vbYellow
      .SetFocus
      .SelStart = 0
      .SelLength = Len(TextBox13)
   End With
   Exit Sub
End If

 

Y así con todas las fechas. 

[Alfonso5597]

Hola amigo Orestres, yo tenia este mismo problema y esta fue mi solucion

ActiveCell.Offset(0, 4) = CDate(TextBox5)

Textbox5 = Format(Textbox5, "dd/mm/yyyy")

Private Sub UserForm_initialize()
Textbox5 = Format(Textbox5, "dd/mm/yyyy")
End Sub

 

Saludos, espero que te sirva

 

[edgar castillo pompilla]

Hola Orestes , Porque no cambias en forma personalizada las columnas que tienes el problema, es decir en ves que pongas 

dd/mm/yyyy    pon: mm/dd/yyyy  yo creo que así solucionarías tu problema sin necesidad de variar tu código.

Te adjunto tu archivo.

 

 

 

problema fechas.rar