Foro Excel

Hola.
Mi consulta es la siguiente:
Estoy diseñando un archivo para facilitar mi trabajo, pero hay un punto que no logro dar
con la opcion correcta, es la fecha.
Tengo un userfom con varios "TextBox" en uno tengo que poner una fecha y tengo estos codigos:

ActiveCell.Offset(0, 2) = CDate(TextBox3) 'Para una fecha

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = Format(TextBox3, "mm-yyyy")
End Sub

Funcionar funciona, pero para que me salga bien la fecha tengo que escribir en el "TextBox" por ejemplo;
03-2005, para agilitar mi trabajo me bastaria con poner 3-05, pero si lo pongo a si, la fecha queda incorrecta.

Alguien me podria echar un cable.
Gracias

Hola,

Prueba cambiando "mm-yyyy" por "m-yy"

Un saludo.

Gracias por contestar.
Ya lo probe, hay que poner en el "TextBox" 3-2005, para que la fecha sea correcta.
Lo unico que ocurre con este cambio es, cuando das enter el texto queda 03-05.
Pero si lo pones directamente 3-05, cuando das enter queda 05-11.
Esta no es la solucion, gracias.

Hola, no entiendo lo que expresas, es decir si ponés 3-05 NO TE IMPORTA EL DÍA, no?
Si es así ponés esto en el exit del textbox3:

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = Format("1/" & TextBox3, "dd-mm-yyyy")
End Sub


lo ejecutas y ponés 3-05 y pasa al otro cotrol verás que te puso el primero de marzo, luego:
ActiveCell.Offset(0, 2) = CDate(TextBox3) 'Pasa a la celda una fecha

Perfecto, es lo que buscaba, le quite la "dd" del dia y quedo perfecto.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = Format("1/" & TextBox3, "mm-yyyy")
End Sub

Gracias

Encontrado un problema, si en el textbox no pongo nada me sale "1/" y claro hay veces que no hace
falta poner nada y lo bueno que ya no lo puedes quitar, siempre sale aunque lo borre.
Haber si alguien sabe el remedio.
Gracias