Jump to content

Duda con la función VLookup y formato de fecha.


Go to solution Solved by Antoni,

Recommended Posts

Hola colegas, buenas tardes y ojalá se encuentren bien de salud.

Colegas, no salgo de una para entrar en otra. Ahora mi Jefe me pidió que le hiciera un Proyecto para controlar el Parque de Transporte con respecto a Gasto de Combustible, Mantenimientos, Hojas de Ruta y Choferes, nada fácil para mi, pero me gustan estos "Retos" porque de cualquier manera aprendo tanto de VBA como de las normativas sobre los temas del transporte.

Ya he tenido unos cuantos tropiezos, pero poco a poco voy resolviéndolos y voy a necesitar mucho de sus ayuda que realmente son los que saben, como siempre, acudiré a ustedes después de agotar mis "recursos de conocimientos".

Por el momento, quiero que en un formulario, cuando yo escoja (en un ComboBox) el número de Tarjeta de Combustible, me ponga la fecha en que vence la misma. Todo esto lo tengo logrado, pero a la hora de imprimirme la fecha en el Label (LblVence) no pone lo que necesito, yo quiero que el formato sea el siguiente: 10/22 ó oct/22  ("mm/yy")

Lo he intentado de varias maneras pero no...

 

Me.LblVence.Caption = Application.WorksheetFunction.VLookup(Me.CmbNTarjeta.Text, Hoja5.Range("I:K"), 3, 0)

Gracias de antemano.

Excelente semana a todos.

Saludos

Pino

Link to comment
Share on other sites

  • Solution

Se supone que el dato buscado es una fecha, prueba así:

Me.LblVence.Caption = Format(Application.WorksheetFunction.VLookup(Me.CmbNTarjeta.Text, Hoja5.Range("I:K"), 3, 0), "mm/yy")

 

Link to comment
Share on other sites

Hace 11 horas, pinoji dijo:

Lo he intentado de varias maneras pero no...

¿Y así?

Me.LblVence.Caption = Format(Application.WorksheetFunction.VLookup(Me.CmbNTarjeta.Text, Hoja5.Range("I:K"), 3, 0),"mm/yy")
Link to comment
Share on other sites

Buenos días colegas. Espero su salud sean excelente.

Buenos días profesores Antoni y Haplox, gracias por su pronta y acertada respuesta.

Realmente lo había intentado con CDate y otras maneras pero nada y mira que fácil era la solución.

Todos los días aprendo con ustedes, Ah y no "discutan" por ser el primero o no, acá, en mi país, hay  un dicho que dice "...lo importante no es llegar primero, sino saber llegar..." a los dos los aprecio y los respeto mucho, son personas muy capacitada y con un altruismo enorme. Lo importante para nosotros los aprendices es "tener una solución" a nuestros problemas y eso lo logramos con la agradecida ayuda de ustedes.

Gracias mil y que tengan u excelente día.

Saludos y respetos.

Pino

Tema cerrado.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy