Formato Fecha

07/07/2005 - 07:56 por gabriel | Informe spam
Hola !

Como configuro una celda para que al ingresar 150805 me devuelva en Formato
de Fecha 08/08/05

Mucha gracias
Gabriel
 

Leer las respuestas

#1 Héctor Miguel
07/07/2005 - 09:19 | Informe spam
hola, gabriel !

Como configuro una celda para que al ingresar 150805 me devuelva en Formato de Fecha 08/08/05



1) habria que 'trabajar en reversa' para que 150805 'regrese' 7 dias a 080805 [es broma] :))
2) las fechas [y horas] en excel son [simples] numeros 'seriales'
3) al introducir en una celda el valor 080805 seria 'convertido' a 80805 [los ceros a la izquierda NO cuentan] ;)
4) 'tendrias que'... usar macros [en los eventos de la hoja] para 'convertir' la entrada al formato dd/mm/aa
-> haz un click-derecho sobre el nombre de 'esa' hoja y selecciona: 'ver codigo...'
[suponiendo que la entrada en 'notacion' ddmmaa ocurre en las celdas del rango 'A1:A5']...
copia/pega las siguientes lineas [son solamente un ejemplo] ;)
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:a5")) Is Nothing Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Dim dd As Byte, mm As Byte, aa As Byte, Tmp As String
Tmp = Format(Target, "000000")
dd = (Tmp - Mid(Tmp, 4)) / 10000
mm = (Mid(Tmp, 4) - Right(Tmp, 2)) / 100
aa = Right(Tmp, 2)
On Error GoTo Salida
Application.EnableEvents = False
Target = DateSerial(aa, mm, dd)
Target.NumberFormat = "dd/mm/yy"
Salida:
Application.EnableEvents = True
End Sub

si cualquier duda... comentas?
saludos,
hector.

Preguntas similares