listbox me cambia la fecha

[Wrongdoer]

buenas tardes
tengo un listbox con 3 columnas, la primer columna son fechas y tengo el siguiente codigo

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)...

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í

 

[Adrian]

Hola, probá:
1)
Hoja1.Range("a2").Value = Cdate(ListBox1.List(ListBox1.ListIndex, 0))
2)
Dim Fec As Date
Fec = DateSerial(Year(XXX), Month(XXX), Day(XXX))
Range("A2").Value = Fec

Donde XXX sería...

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í

 

[Wrongdoer]

listo muchas gracias, use la primer opcion y me sirvio perfectamente.