CODIGO VB PARA INGRESAR CUALQUIER FECHA MEDIANTE UN USERFORM

[john fredy jarmillo]

Compañeros, buena tarde.

Estoy intentando elaborar una macro en la cual el usuario introduce una fecha cualquiera en formato (dd/mm/AAAA) y quede esta almacenada en una celda con formato de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
Algo así te puede servir, John:

mFecha = Split(TextBox1, "/")
Range("A1") = DateSerial(mFecha(2), mFecha(1), mFecha(0))

 

[HBanchieri]

Me perdí de algo?

Maestro, algo así no serviría?

Range("A2") = CDate(TextBox1)

Solo pregunto!!! :roll: :roll: :roll:

 

[Cacho R]

.

Me perdí de algo? Maestro, algo así no serviría?

¿Y dónde está la innovación?... (jajajajajajaj)
______________________________

En rigor de verdad, si te encuentras...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[HBanchieri]

Ergo:
Una propuesta "sirve siempre" mientras que la otra sirve cuando son coincidentes el orden con que se ingresan los datos de las fechas con el orden que vemos en la configuración...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

P.D.: Me gusto mucho el "Ergo", no lo conocía, ergo aprendí dos cosas nuevas!!! :shock: :mrgreen: :mrgreen:

Te lo digo "motu proprio" ya que "lato sensu" hoy podrás...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[HBanchieri]

Si, gracias a San Google, se nota.

¡¡¡Estas inspirado!!! :D :D :D :D :D

 

[john fredy jarmillo]

Buen dia.

Muchas gracias por sus aportes. Utilice el codigo planteado por Cacho, pero veo que el usuario debe ingresar la fecha ya con el formato de fecha. ya había intentado eso, pero la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.

... había pensado en tres combobox ...

Se nota, John, que no estudias demasiado lo que te pasamos, ¿Verdad?...

Me refiero a que en lugar de mFecha(2)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[HBanchieri]

Estimado john fredy jarmillo, quizá así pueda interesar..

Private Sub CommandButton1_Click(): On Error GoTo esError

If TextBox1 = "" Then Exit Sub

mFecha = Split(TextBox1, "/")...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[HBanchieri]

Ah!!! También puedes acrecentar estas dos lineas antes de "End Sub"

TextBox1 = ""
TextBox1.SetFocus

Saludos

 

[john fredy jarmillo]

Compañeros muchas gracias por sus aportes.
Cacho, me funciona bien con los combobox. Gracias!!

 

[Cacho R]

.

... Cacho, me funciona bien con los combobox. Gracias!!

¡Lo sabía!... ¡Sabía que ibas a poder hacerlo!...
¡Felicitaciones, John! y hasta la próxima.

Saludos...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí