Formato fecha
Hola, espero me puedas ayudar.
Necesito que al ingresar por ej. 15021999 en una celda, el sistema me vaya automáticamente colocando / /
O sea deberia quedar 15/02/1999
Espero me entiendas.
Chau.
Necesito que al ingresar por ej. 15021999 en una celda, el sistema me vaya automáticamente colocando / /
O sea deberia quedar 15/02/1999
Espero me entiendas.
Chau.
1 respuesta
Respuesta de César Mera
1
Si es absolutamente necesario... lo podemos hacer pero recuerda que podrías ingresar esa fecha como 15/2/99 y excel la tomará automáticamente como la escribes en tu pregunta.
Si hay que hacerlo como tu dices me cuentas en que columna o en que celdas se va a digitar esa información y le hacemos una macro que divida la fecha en sus partes y la deje como formato fecha.
Me cuentas.
Si hay que hacerlo como tu dices me cuentas en que columna o en que celdas se va a digitar esa información y le hacemos una macro que divida la fecha en sus partes y la deje como formato fecha.
Me cuentas.
Hola, Cesar.
Te agradezco tu buena voluntad deatender a mi duda.
Bueno cualquier ejemplo me serviría.
Espero puedas ayudarme.
Chau!
Te agradezco tu buena voluntad deatender a mi duda.
Bueno cualquier ejemplo me serviría.
Espero puedas ayudarme.
Chau!
Envíame tu dirección de correo electrónico para hacerte llegar un ejemplo de como se podría manejar.
Gracias Cesar, te agradezco un millón tu ayuda. Espero poder contar nuevamente con tu sabiduría.
Chau!
Chau!
Te envié el libro de ejemplo para que lo revises.
Para los demás, el texto de la macro queda así
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Dia As Byte
Dim Mes As Byte
Dim Año As Integer
Dim Texto As String
Dim Formato As String
If Target.Column = 1 Then
Application.EnableEvents = False
If IsNumeric(Target.Value) Then
Formato = Target.NumberFormat
Texto = CStr(Target.Value)
If Len(Target.Value) = 7 Then
Target.NumberFormat = "#,##0"
Dia = Val(Left(Texto, 1))
Mes = Val(Mid(Texto, 2, 2))
ElseIf Len(Target.Value) = 8 Then
Target.NumberFormat = "#,##0"
Dia = Val(Left(Texto, 1))
Mes = Val(Mid(Texto, 2, 2))
Else
GoTo Activar
End If
If Mes > 12 Or Dia > 31 Then
Target.NumberFormat = Formato
GoTo Activar
End If
Año = Val(Right(Texto, 4))
Target.Value = DateSerial(Año, Mes, Dia)
Target.NumberFormat = "dd/mm/yyyy"
End If
Activar: Application.EnableEvents = True
End If
End Sub
Ese texto se debe colocar en la hoja que se desea que haga la función en el evento change, funciona para la fila 1 de la hoja seleccionada.
Para los demás, el texto de la macro queda así
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Dia As Byte
Dim Mes As Byte
Dim Año As Integer
Dim Texto As String
Dim Formato As String
If Target.Column = 1 Then
Application.EnableEvents = False
If IsNumeric(Target.Value) Then
Formato = Target.NumberFormat
Texto = CStr(Target.Value)
If Len(Target.Value) = 7 Then
Target.NumberFormat = "#,##0"
Dia = Val(Left(Texto, 1))
Mes = Val(Mid(Texto, 2, 2))
ElseIf Len(Target.Value) = 8 Then
Target.NumberFormat = "#,##0"
Dia = Val(Left(Texto, 1))
Mes = Val(Mid(Texto, 2, 2))
Else
GoTo Activar
End If
If Mes > 12 Or Dia > 31 Then
Target.NumberFormat = Formato
GoTo Activar
End If
Año = Val(Right(Texto, 4))
Target.Value = DateSerial(Año, Mes, Dia)
Target.NumberFormat = "dd/mm/yyyy"
End If
Activar: Application.EnableEvents = True
End If
End Sub
Ese texto se debe colocar en la hoja que se desea que haga la función en el evento change, funciona para la fila 1 de la hoja seleccionada.
