Formato de Fecha de un ComboBox

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Formato de Fecha de un ComboBox

Notapor Creedence » 05 Abr 2006 11:22

Que tal, oigan, por favor necesito ayuda con el formato de fecha de un comboBox, les mando archivo para que vean mi problema, la kista de fechas esta bien, la selecciona y la pone en una celda, pero en el Combo aparece la fecha en formato de número y quiero que aparezca asi (por ejemplo) "31-Dic-04".
De antemano y esperando que alguien me ayude, muchas gracias.
Este foro esta EXCELente
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Creedence
Miembro Frecuente
Miembro Frecuente
 
Registrado: 24 Feb 2006 01:10
Ubicación: Cuernavaca, Morelos, México

Re: Formato de Fecha de un ComboBox

Notapor Adrian » 05 Abr 2006 11:28

Hola!
utiliza la función format(Valor;TipoFormato)

Private Sub ComboBox2_Change()
CargarFecha ComboBox2.ListIndex, ComboBox1
Range("B10").Select
Range("B10").FormulaR1C1 = ComboBox2
[B10] = Format([B10], "dd-mmm-yy")
End Sub


Atte.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: Formato de Fecha de un ComboBox

Notapor Creedence » 05 Abr 2006 11:37

Muchas gracias Adrian has resuelto mi primer problema, el segundo (abusando de tu ayuda) es que, si te diste cuenta, en el Combo, en vez de aparecerme la fecha asi "31-Dic-04" me aparece asi "38352", y quisiera que se quedara con el primer formato, no se si puedas ayudarme.

Muchas Gracias Amigo.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Creedence
Miembro Frecuente
Miembro Frecuente
 
Registrado: 24 Feb 2006 01:10
Ubicación: Cuernavaca, Morelos, México

Re: Formato de Fecha de un ComboBox

Notapor Adrian » 05 Abr 2006 11:46

Private Sub ComboBox2_Change()
CargarFecha ComboBox2.ListIndex, ComboBox1
Range("B10").Select
Range("B10").FormulaR1C1 = ComboBox2
[B10] = Format([B10], "dd-mmm-yy")
Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "dd-mmm-yy")
End Sub


Atte.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: Formato de Fecha de un ComboBox

Notapor Creedence » 05 Abr 2006 11:51

Amigo muchas gracias. Problema resuelto.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Creedence
Miembro Frecuente
Miembro Frecuente
 
Registrado: 24 Feb 2006 01:10
Ubicación: Cuernavaca, Morelos, México


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: heindall y 10 invitados