Userform para filtrar datos de una tabla según valores de " Fecha desde"/"Fecha hasta"

Dentro de un libro excel tengo dos pestañas, en la "hoja 2" tengo una tabla con una serie de datos entre los que se encuentra la columna de "Fecha". En la "Hoja 1" tengo un botón que activa un userform en el cual quiero que a partir de meter los datos "Fecha desde" y "fecha hasta" me filtre los datos de la tabla de la hoja 2 según esos valores

1 respuesta

Respuesta
1

¿Y el resultado del filtro en dónde lo quieres?

Puedes enviarme tu archivo con el formulario.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “cristina martinez” y el título de esta pregunta.

Buenas tardes, perdona pero me había olvidado de avisarte por aquí cuando te enviase el archivo. Te lo envié ayer.

Mil gracias por tu ayuda

Cristina

Te anexo la macro para filtrar por fecha

Private Sub CommandButton1_Click()
'Por.Dante Amor
    Dim fec1 As Date, fec2 As Date
    Set h1 = Sheets("Registro")
    Set h2 = Sheets("Resultado")
    h2.Cells.Clear
    '
    If TextBox1 = "" Or Not IsDate(TextBox1) Then
        MsgBox "Captura fecha inicial válida"
        TextBox1.SetFocus
        Exit Sub
    End If
    If TextBox2 = "" Or Not IsDate(TextBox2) Then
        MsgBox "Captura fecha final válida"
        TextBox2.SetFocus
        Exit Sub
    End If
    fec1 = Format(TextBox1, "mm/dd/yyyy")
    fec2 = Format(TextBox2, "mm/dd/yyyy")
    If ComboBox1 = "" Then
        modelo = "*"
    Else
        modelo = ComboBox1
    End If
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    h1.Range("A2:H" & u).AutoFilter Field:=1, Criteria1:=modelo
    h1.Range("A2:H" & u).AutoFilter Field:=2, _
        Criteria1:=">=" & fec1, Operator:=xlAnd, Criteria2:="<=" & fec2
    '
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    If u = 2 Then
        MsgBox "No éxiste información con esos criterios", vbInformation
        Exit Sub
    End If
    h1.Rows(2 & ":" & u).Copy h2.Rows(2)
    h1.Select
End Sub

El resultado del filtro te lo copia en la hoja Resultado

Saludos. Dante Amor

Mucísimas gracias por tu respuesta. La solución es justo lo que buscaba!!. El único problema que tengo ahora es que el archivo me tarda un "poquito" en abrir y/o guardarse. ¿Cuál puede ser el motivo?. te lo envío al correo que me facilitas en respuestas anteriores.

Una vez más, muchísimas gracias

Cris

Muy buenas tardes, el problema que tengo ahora es el siguiente. La fecha que introduzco en el userform “registro” me la copia en la pestaña “Registro” en formato mm/dd/yyyy.

Mil gracias de nuevo.

cris

Crea una nueva pregunta para revisar esa parte

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Uso Userform para alimentar una base de datos con fechas pero las registra invirtiendo el formato

Tengo una macro cuyo código es el siguiente: Private Sub Userform_Initialize() Sheets("Listas").Select Range("A1").Select While ActiveCell <> "" ComboBox1.AddItem ActiveCell ActiveCell.Offset(1, 0).Select Wend Sheets("INICIO").Select End Sub Private...
1 respuesta

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Cómo dar formato a un fecha en excel vba

Tengo un userform a través del cual se selecciona la fecha con MonthView sin embargo cuando el dato de fecha se guarda en una celda en excel no se guarda en el formato dd/mmm/yyyy mostrando una fecha totalmente diferente. Fecha Seleccionada:...
1 respuesta

Macro para verificar columna por columna

Entonces seria asi Un solo filtro para todas las columnas, que busque en cada una si hay alguna fecha entre el rango especificado. Verificar columna por columna y si la fecha está en el periodo entonces que se pase al filtro. Y que se muestre en el...
1 respuesta

Macro que al hacer enter me ejecute una macro

Necesito una macro que cuando este posicionada en un determinada celda y le de enter me ejecute una y otra macro que cuando le de enter me tire un impubox desde ya a quien me pueda ayudar se lo agradeceré
1 respuesta

Marcar celdas de fechas que están entre una y otra fecha

Para Dante Hola Hace una días me proporcionaste una macro para buscar entre fechas. Sera que es posible que las fechas que están entre (ejem. 01/10/2014 a 24/10/2014) salgan marcadas con un color diferente (verde por ejemplo), la idea es que al...
1 respuesta

Formato condicional actualizable.-

Tengo una formulario al cual me extrae de una base de datos, fechas de vencimiento al cual he logrado que en el textbox que las trae me refleje el color rojo con el cual esta en la base de datos, la base de datos esta con un formato condicional el...
1 respuesta

Filtrar por fecha y mostrar en listbox de excel

Tengo un formulario con un listbox, un botón y dos textbox. Tengo en una hoja un rango de datos "x", entre ellos una columna que muestra la fecha para cada fila. Necesito ingresar en los textbox un rango de fechas, presionar el botón, y que en el...
1 respuesta

Filtrar por varios Campos en VBA

Necesito saber qué código usar para crear un formulario, con varios filtros simultáneos, siguiendo el orden de prioridad de filtrado. Es decir, por ejemplo, deseo filtrar primero por rango de fechas, luego de los datos filtrados, filtrar por nombre...
1 respuesta

Error 1004 en tiempo de ejecución en una macro de excel.

Dante Amor: Tengo un problema con la macro que me enviaste hace unos días y desconozco la causa. Me ha funcionado correctamente con todos los datos que he introducido, pero con los datos de dos archivos en concreto me da el siguiente error: Se ha...
1 respuesta