Como hacer que las diagonales para fecha aparezcan automáticamente
Como puede hacer que al escribir una fecha en una celda (ejemplo 01/05/2016), yo solo ingrese los números y las diagonales aparezcan automáticamente conforme escribo los números.
Por ejemplo en la celda F1
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo las macros con un pequeño ajuste
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("F1, H1")) Is Nothing Then
Application.ScreenUpdating = False
If Target = "" Then Exit Sub
fec = Left(Target, 2) & "/" & Mid(Target, 3, 2) & "/" & Mid(Target, 5)
Application.EnableEvents = False
Target = fec
Target.NumberFormat = "dd/mm/yyyy"
Target.Select
SendKeys "{F2}", True
SendKeys "{Enter}", True
Application.EnableEvents = True
End If
End Sub
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("F1, H1")) Is Nothing Then
Application.ScreenUpdating = False
actual = Target.Value
Target.NumberFormat = "@"
If Target = "" Then Exit Sub
Application.EnableEvents = False
If IsDate(actual) Then
fec = Format(actual, "ddmmyyyy")
Target = fec
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
porque me cambia la fecha, por ejemplo
escribo 01052016 y sale 26/04/4780
A mi sí me funciona.
ponto 01052016 y me pone 01/05/2016
¿Intentaste con el archivo que te envié?
Selecciona la celda e intenta nuevamente.
La idea de la macro es hacer lo que pediste:
Pones esto:
01052016
Y te pone esto:
01/05/2016
Como te expliqué, las macros no son nada sencillas.
