Filtrar por fechas para varias columnas

¿Quiero filtrar entre fechas (fecha inicio y fecha de corte) para buscar datos
pueden ayudarme con esto?
Quiero filtrar entre las fechas que hay en la columna G y la columna W (el filtro debe incluir las columnas G, I, K, M, O, Q, S, U, W)
Osea que el filtro tendria que abarcar 9 columnas (sin tomar en cuenta las columnas H, J, L, N, P, R, T, V, X)
Para saber por ejemplo cuantos datos ingrese en un mes,

¿Se podra?

1 Respuesta

Respuesta
1

Puedes enviarme tu archivo, en una hoja me pones todos tus datos sin filtros, y en otra hoja me pones un ejemplo de cómo quieres que se vea con filtros

Mi correo [email protected]

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

Hola,

Ya te envíe el archivo. Espero podas ayudarme.

Gracias

Te anexo la macro para filtrar por varias columnas

Private Sub TextBox1_Change()
    'activamos la hoja base
    Sheets("datos"). Activate
    'nos posicionamos en la celda a1
    Sheets("datos").Range("a1").Select
    'limpiamos el listbox
    ListBox1.RowSource = Empty
    'limpiamos la hoja3 donde se genera el filtro avanzado
    Sheets("datosm").Range("A:X"). Clear
    'limpiamos los campos de busqueda del filtro avanzado
    Sheets("datos"). Range("AA2:AX2"). ClearContents
 'le damos el ancho a las 3 columnas del listbox
    'ListBox1.ColumnWidths = "175 pt;118 pt;21 pt;25 pt;50 pt;36 pt;50 pt;50 pt"
    'en la celda e2 se transfiere lo que se escribe en el textbox1 en este caso el codigo
 'los asteriscos entre comillas son para que busque por cualquier letra que se ingrese
 'y los signos & son para unir el asterisco con el valor del textbox
    Sheets("datos").Range("AA2") = "*" & TextBox1 & "*"
    Sheets("datos").Range("AG2, AI2, AK2, AM2") = ">=" & Evaluate("=date(" & Year(TextBox2) & "," & Month(TextBox2) & "," & Day(TextBox2) & ")")
    Sheets("datos").Range("AH2, AJ2, AL2, AN2") = "<=" & Evaluate("=date(" & Year(TextBox3) & "," & Month(TextBox3) & "," & Day(TextBox3) & ")")
    'aqui realizamos el filtro avanzado
    u = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:X" & u).AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("AA1:AX2"), copytorange:=Sheets("datosm").Range("a1"), Unique:=False
    '
    'Act.Por.Dante Amor
    With Sheets("datosm").Cells
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    With Sheets("datosm").UsedRange
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    End With
    '
    'mostramos el resultado del filtro avanzado en el textbox
    ListBox1.RowSource = "datosm!a2:x400"
End Sub

Saludos.Dante Amor

Hola

Fíjate que no funciono aquí, te lo reenvíe para que le hagas una modificación ya que agregue algo que se me había olvidado y es el botón filtrar, o mejor si funcionara sin necesidad de utilizar ese botón seria mejor, disculpa la molestia.

Gracias

La macro para el botón es así:

Private Sub CommandButton1_Click()
    Sheets("datos"). Activate
    'nos posicionamos en la celda a1
    Sheets("datos").Range("a1").Select
    'limpiamos el listbox
    ListBox1.RowSource = Empty
    'limpiamos la hoja3 donde se genera el filtro avanzado
    Sheets("datosm").Range("A:X"). Clear
    'limpiamos los campos de busqueda del filtro avanzado
    Sheets("datos"). Range("AA2:AX2"). ClearContents
 'le damos el ancho a las 3 columnas del listbox
    'ListBox1.ColumnWidths = "175 pt;118 pt;21 pt;25 pt;50 pt;36 pt;50 pt;50 pt"
    'en la celda e2 se transfiere lo que se escribe en el textbox1 en este caso el codigo
 'los asteriscos entre comillas son para que busque por cualquier letra que se ingrese
 'y los signos & son para unir el asterisco con el valor del textbox
    'Sheets("datos").Range("AA2") = "*" & TextBox1 & "*"
    Sheets("datos").Range("AG2, AI2, AK2, AM2, AO2, AQ2, AS2, AU2, AW2") = ">=" & Evaluate("=date(" & Year(TextBox2) & "," & Month(TextBox2) & "," & Day(TextBox2) & ")")
    Sheets("datos").Range("AH2, AJ2, AL2, AN2, AP2, AR2, AT2, AV2, AX2") = "<=" & Evaluate("=date(" & Year(TextBox3) & "," & Month(TextBox3) & "," & Day(TextBox3) & ")")
    'aqui realizamos el filtro avanzado
    u = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:X" & u).AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("AA1:AX2"), copytorange:=Sheets("datosm").Range("a1"), Unique:=False
    '
    'Act.Por.Dante Amor
    With Sheets("datosm").Cells
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    With Sheets("datosm").UsedRange
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    End With
    '
    'mostramos el resultado del filtro avanzado en el textbox
    ListBox1.RowSource = "datosm!a2:x400"
End Sub

Saludos.Dante Amor

Hola

No me funciona, sale error en "sheets("datos").activate (error '32809' en tiempo de ejecución, error definido por la aplicación u objeto)

Solo filtra la primera línea entre esas fechas, y hay más filas que contienen ese rango de fechas.

mandamelo comprimido porfa, derrepente se daña al enviarlo sin comprimir.

No, es lo que te comentaba, solamente un registro cumple con la condición de que todas las columnas están en octubre

Revisa la lógica de tu filtrado.

Por eso te digo que me envíes un ejemplo de lo que quieres filtrar, en el ejemplo que te envié solamente un registro tiene en todas las columnas una fecha del mes de octubre.

Revisa que captures fechas válidas.

Estás poniendo fechas en un textbox, debes ser cuidadoso con los datos que pones, por eso te puse el ejemplo, captura 01/10/2014 y 31/10/2014

Las fechas deben llevar diagonales

Si te envía el error, presiona el botón depurar y dime en qué línea de la macro se pinta de amarillo

Ten envíe una imagen por correo, y dilculpa que no me he explicado bien.

Ten envíe otra imagen por correo

Sí recibí las imágenes, son los ejemplos que te pedí al principio.

Valora esta respuesta, por el ajuste al filtro avanzado.

Ya tengo lista la macro con las adecuaciones para filtrar por fila y columna.

Envíame la nueva pregunta para enviarte la macro

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como poner bordes a celdas con macro

Talvez alguien de ustedes puede ayudarme necesito una macro que me ayude a poner bordes a celdas, pero quiero que solo a las filas activas. Tengo una lista en una hoja llamada datos y utilizo un filtro para extraer cierta informacion de esa lista y...
1 respuesta

Filtrar entre fechas Formulario VBA

Quisiera ayuda en un problema que tengo para filtrar una BB. DD entre 2 fechas... Adjunto un archivo ej. Para aplicar filtro entre fechas por medio de un formulario en VBA excel. La idea es poder poner el criterio (fecha) en textboxs y que estos...
2 respuestas

Macro que Crea PDF y Envía El PDF por Outlook

De la manera más amable solicito ayuda, ya he creado una macro que me permite hacer un archivo en PDF, lo que requiero es que el archivo que fue creado sea enviado vía por medio de Outlook. Adjunto código de la macro para crear el PDF. Sub...
1 respuesta

Bordes con macro

Recurro a ustedes una vez mas. Tengo una simple macro que dibuja bordes negros en el exterior y grises en el interior ( un formato que uso muy habitualmente ) Funciona correctamente salvo en la ocasión en que solo tenga seleccionada una sola celda:...
1 respuesta

DIBUJAR CELDAS con macros

Tengo una Base de Datos en la que estoy asignando valores por medio de un UserForm de la sig forma: ActiveCell = TextBox1 '(TextBox2, ComboBox1, etc, etc..) El UserForm llena toda una fila de mil columnas en la base de datos. Y me gustaría poner una...
1 respuesta

Al extraer datos al ListBox, poner el encabezado de cada columna.

Tengo ahora este código para extraer datos al ListBox1 en tres columnas, pero necesito que también me pase el encabezado que tiene cada columna, o sea la 1° columna es “FECHA”; la 2° es “No. De Fact” y la 3° es” Importe” y al final “Total”… la...
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

MACRO Agregar lista de materiales a las ventas detalladas.

Ayúdeme como hacer una MACROS para esta TAREA REPITIVA En el listado libro “VENTA DETALLADA”, he agregado una columna “Nro_PARTE”, con la letra “N”, que son los códigos (Columna “C”) a los que tengo que agregar su lista de materiales, la búsqueda de...
1 respuesta