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

[pinoji]

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

[Antoni]

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")

 

[Haplox]

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")

[Haplox]

Hace 22 minutos , Antoni dijo:

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

Ahhhhhh!!!! Te me adelantastes por la mano @Antoni

[pinoji]

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.