Formato de fecha en formulario
Tengo un formulario donde se ingresa una fecha de inicio y fin, en una hoja, pero al ingresar la información, la fecha de inicio y fin, se cambian, ejem: la real es 02/08/2019 y en el formulario si la pone asi, pero cuando se ingresa en la hoja de excel me la cambia = 08/02/2019, lo cual me perjudica por tema de tiempo que hay entre una fecha y otra, adicional que es para revisión mensual.
Si me pudieran ayudar para que no se cambie el orden del día y mes.
Adjunto el codigo que ingresa la información del formulario.
Sub Ingresar_Click()
If region.Value = "" And inc.Value = "" And nombre = "" And empresa = "" And puesto = "" And inicio = "" And fin = "" Then
MsgBox "Debe llenar todos los espacios", vbInformation + vbOKOnly
region.SetFocus
Exit Sub
Else
Application.ScreenUpdating = False
Sheets("Detalle_incapacidades").Select
Range("A" & Cells.Rows.Count).End(xlUp).Offset(1).Select
ActiveCell = region.Value
ActiveCell.Offset(0, 1) = inc.Value
ActiveCell.Offset(0, 2) = cedula.Value
ActiveCell.Offset(0, 3) = nombre.Value
ActiveCell.Offset(0, 4) = empresa.Value
ActiveCell.Offset(0, 5) = puesto.Value
ActiveCell.Offset(0, 6) = inicio.Text
ActiveCell.Offset(0, 7) = fin.Text
ActiveCell.Offset(0, 9) = tipo.Value
ActiveCell.Offset(0, 10) = forma.Value
ActiveCell.Offset(0, 11) = fecha_recepcion.Value
ActiveCell.Offset(0, 13) = foto.Picture
ActiveCell.Offset(0, 14) = encargado.Value
region = Empty
inc = Empty
cedula = Empty
nombre = Empty
empresa = Empty
puesto = Empty
inicio = Empty
fin = Empty
tipo = Empty
forma = Empty
fecha_recepcion = Empty
foto.Picture = LoadPicture("")
encargado = Empty
ActiveWorkbook.Save
region.SetFocus
End If
Sheets("menu").Select
Application.ScreenUpdating = True
End Sub
