Mascara fecha

Hola Fernando.

Si SIEMPRE vas a entrar 2 dígitos para el día, 2 dígitos para el mes y 2 dígitos para el año, prueba con el siguiente
código VBA en el módulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
If Len(Target.Value) = 6 Then
Target.Value = DateSerial(2000 + Right(Target.Value, 2), _
Mid(Target.Value, 3, 2), Left(Target.Value, 2))
Else
Application.Undo
End If
Application.EnableEvents = True
End If
End Sub


Nota: No controla por ejemplo: Meses mayores de 12, días mayores de 31, años fuera de este siglo, etc. Por lo tanto si
entras p.e. 310498, convertirá a 01/05/2098.


Saludos: Antonio.
***************************
"Fernando" escribió en el mensaje
news:

Hola a todos,

Como puedo hacer para colocar una mascara en unas celdas de forma que cuando
ingrese 211109, me aparezca 21/11/2009

Gracias por vuestra labor
Fernando