Filtrar datos para varias columnas

Para DANTE AMOR

Hola

Te agradezco por resolverme el anterior caso del filtro por fechas.

Te quiero molestar una vez más

Utilizando el mismo archivo quiero filtrar las otras columnas que están a la par de las fechas o sea las columnas (H J L N P R T V X), en esas columnas hay una fórmula que me calcula las semanas transcurridas entre la fecha de la columna anterior y la fecha de la columna E, quiero utilizar una macro similar con un textbox que al ingresar por ejemplo el numero 12 me muestre las filas que contienen ese numero.

Aquí no seria un desde hasta, solo un textbox para ingresar el numero y muestre el resultado, todo casi idéntico con la macro de las fechas.

En el userform coloque un label que dice "INGRESAR SEMANA" y a la par el textbox donde se debe ingresar el numero.( Que use la función change)

Te envíe el archivo a tu correo.

1 Respuesta

Respuesta
1

Esta es la macro para filtrar por semana

Private Sub CommandButton2_Click()
'Por.Dante Amor
    Set h1 = Sheets("datos")
    Set h2 = Sheets("datosm")
    '
    h2.Cells.Clear
    h1.Rows(1).Copy h2.Rows(1)
    '
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        For j = Columns("H").Column To Columns("X").Column Step 2
            If Cells(i, j) = Val(TextBox4) Then
                u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
                Rows(i).Copy h2.Rows(u)
            End If
        Next
    Next
    '
    bordes
    '
    'mostramos el resultado del filtro avanzado en el textbox
    ListBox1.RowSource = Empty
    ListBox1.RowSource = h2.Name & "!A2:X" & h2.Range("A" & Rows.Count).End(xlUp).Row
End Sub
Sub bordes()
'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
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

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

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

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

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

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

Selección de varios rangos para aplicar formato

Bueno me voy de frente a explicar la macro que deseo hacer, primero debe seleccionar un rango dado pejm (B6:F30), ahora seleccionar rangos dentro de este pejm (B6:F6) aplicarle negrita, centrado y todo los bordes; (B7:B30) aplicarle borde externo;...
1 respuesta

Bordes de caldas

Como puedo obtener el formato de bordes de las celdas de excel mediante VB, yo lo probé así: Cells(1, 1). Borders Pero cuando la celda no tiene borde me da valor negativo, cuando le pongo un marco me da 1 pero con otros estilos em da nulo... ¿Cuál es...
1 respuesta