Problemas con formato fecha en hoja ed excel
Hola Sres Expertos,
Tengo un problema, tengo un formulario, dentro de el tengo un TextBox para ingresar la fecha del movimiento que he hecho con los datos, pero en la parte de volcar los datos a la hoja de excel, cuando pega la fecha en el campo de excel, me cambia la fecha, la invierte, mejor dicho se vuelve loco, ya le coloque formato de fecha a ese rango de la hoja, también le coloque formato al TextBox, pero nada... Se vuelve loco y me invierte los días con el mes y viceversa...
Porque sucederá eso y como lo puero corregir.
Alguna rutina que me coloque la fecha como es en la hoja de excel,
Les agradezco su colaboración.
Tengo un problema, tengo un formulario, dentro de el tengo un TextBox para ingresar la fecha del movimiento que he hecho con los datos, pero en la parte de volcar los datos a la hoja de excel, cuando pega la fecha en el campo de excel, me cambia la fecha, la invierte, mejor dicho se vuelve loco, ya le coloque formato de fecha a ese rango de la hoja, también le coloque formato al TextBox, pero nada... Se vuelve loco y me invierte los días con el mes y viceversa...
Porque sucederá eso y como lo puero corregir.
Alguna rutina que me coloque la fecha como es en la hoja de excel,
Les agradezco su colaboración.
1 Respuesta
Respuesta de ma_ramirez_r
1
'Te recomiendo que en el textbox en donde se digita la
'fecha coloque esta macro para validar el ingreso
'y así asegurarte de que quede bien.
Dim Despues As Integer
Private Sub txtFecha_Change()
Select Case Len(txtFecha)
Case 1
If Val(txtFecha) > 3 Then
MsgBox "Número de día Incorrecto"
txtFecha = ""
Else
Ver
End If
Case 2
Ver
If Despues < Len(txtFecha) Then
txtFecha = txtFecha & "/"
End If
Case 3
If Right(txtFecha, 1) <> "/" Then
Ver
End If
Case 4
If Val(Right(txtFecha, 1)) > 1 Then
MsgBox "Número de mes Incorrecto"
txtFecha = _
Left(txtFecha, Len(txtFecha) - 1)
Else
Ver
End If
Case 5
Ver
If Despues < Len(txtFecha) Then
txtFecha = txtFecha & "/"
End If
Case 6
If Right(txtFecha, 1) <> "/" Then
Ver
End If
Case 7
Ver
Case 8
Ver
Case 9
Ver
Case 10
Ver
End Select
Despues = Len(txtFecha)
End Sub
Sub Ver()
If Not IsNumeric(Right(txtFecha, 1)) Then
If Len(txtFecha) = 0 Then
txtFecha = ""
Else
txtFecha = Left(txtFecha, Len(txtFecha) - 1)
End If
End If
End Sub
'y para colocar la fecha en tu hoja debes poner lo siguiente en tu macro.
' Range(TuCelda) = UserForm1.txtFecha.Text
' Range(TuCelda).NumberFormat = "dd/mm/yyyy"
'donde TuCelda es la celda en dodde quieres que quede la fecha
'fecha coloque esta macro para validar el ingreso
'y así asegurarte de que quede bien.
Dim Despues As Integer
Private Sub txtFecha_Change()
Select Case Len(txtFecha)
Case 1
If Val(txtFecha) > 3 Then
MsgBox "Número de día Incorrecto"
txtFecha = ""
Else
Ver
End If
Case 2
Ver
If Despues < Len(txtFecha) Then
txtFecha = txtFecha & "/"
End If
Case 3
If Right(txtFecha, 1) <> "/" Then
Ver
End If
Case 4
If Val(Right(txtFecha, 1)) > 1 Then
MsgBox "Número de mes Incorrecto"
txtFecha = _
Left(txtFecha, Len(txtFecha) - 1)
Else
Ver
End If
Case 5
Ver
If Despues < Len(txtFecha) Then
txtFecha = txtFecha & "/"
End If
Case 6
If Right(txtFecha, 1) <> "/" Then
Ver
End If
Case 7
Ver
Case 8
Ver
Case 9
Ver
Case 10
Ver
End Select
Despues = Len(txtFecha)
End Sub
Sub Ver()
If Not IsNumeric(Right(txtFecha, 1)) Then
If Len(txtFecha) = 0 Then
txtFecha = ""
Else
txtFecha = Left(txtFecha, Len(txtFecha) - 1)
End If
End If
End Sub
'y para colocar la fecha en tu hoja debes poner lo siguiente en tu macro.
' Range(TuCelda) = UserForm1.txtFecha.Text
' Range(TuCelda).NumberFormat = "dd/mm/yyyy"
'donde TuCelda es la celda en dodde quieres que quede la fecha
