Búsqueda de valores con formato de fecha

Hola querido Experto quisiera saber cómo hago para que este código me trabaje con valores de fecha:

   Application.ScreenUpdating = False
          fecha = Me.fechagp.Text & IIf(Me.fechagp.Text = "", "", "*")
    filtrargp
    uf = Sheets("LISTBOX").Range("B" & Rows.Count).End(xlUp).Row
    With Me.Listbox1
        .ColumnCount = 7
        .RowSource = "LISTBOX!B10:H" & uf
    End With
End Sub

las fechas en las hojas tienen formato de fecha y necesito que sigan así para otro userform pueda buscar rangos de fechas.

Un saludo!

1 respuesta

Respuesta
1

Te envié una versión a tu correo

Saludos. Dam

Un millón de gracias ya lo pude implementar a mi proyecto y funciona perfectamente en el formato de fechas indicado. Te he enviado otro archivo para que puedas ver una versión de filtro de fechas con datepickers.

Por favor revísalo y comentame si vale la pena adaptarlo al turbofiltro

De antemano muchísimas gracias!

waboni

Si puedes adaptarlo, solamente relación y ya tienes la fecha que usa el turbofltro.

Fecha = Format(DTPicker1.Value, "mm/dd/yyyy")

Saludos. Dam

Hola Dam, gracias por tu pronta respuesta, lo que no sé es como sustituyo valor de fechagp en el filtro filtrargp, para que luego me despliegue el dato en el listbox.

Será que al proceso del filtrado de los DatePickers lo debo llamar filtrargp y borrar el proceso del textbox llamado de igual manera?

gracias de antemano

Saludos

Perdona pero entendí lo que necesitas, ¿esto corresponde a otra pregunta?

Saludos. Dam

Hola Dam, en realidad sí, la pregunta inicial me la respondiste muy acertadamente, abriré una nueva para lo de los DatePickers.

Mil gracias por tu ayuda!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas