¿Como hago para seleccionar rango de celdas y filtrar?

Puedes adjuntar tu archivo a [email protected]

Para fihjar la ultima celd a con informacion es con una variable

Ejemplo

Fin=Range("D"& Rows.count).End(XlUp).row

En este caso quiero que determine la ultima celda con datos de la columna D, pero tu lo puedes adaptar según tus necesidades y en las partes donde usas la celda 65 lo puedes sustituir por ejemplo en lugar de

Range("F1:F65"),, puedes usar Range("F1:F"&Fin)

¡Gracias! Lo probaré,tendré que crear varias variables para guardar el final de cada columna.por ejemplo.

fecha=Range("E"& Rows.count).End(xlup).row

Hacer lo mismo con la columna f y luego sustituir las variables en la línea de código correspondiente

H o l a : Te anexo el código actualizado:

Sub Macro_Ordenar()
    'eliminar columnas
    Range("A:H,J:K,M:P,R:R,T:U,X:Z").Delete Shift:=xlToLeft
    Cells.EntireColumn.AutoFit
    '
    'Obtener la última fila con datos
    u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    'eliminar los datos duplicados según el criterio de la columna 3
    ActiveSheet.Range("A1:Y" & u).RemoveDuplicates Columns:=3, Header:=xlNo
    '
    'Obtener nuevamente la última fila, porque se eliminaron los duplicados
    u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    'Ordenar
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("E1:E" & u), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("F1:F" & u), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A1:Y" & u)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Avísame si necesitas ayuda con el filtro y poner la fórmula.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

¡Gracias! hace lo que necesito pero el problema es que los títulos de las columnas quedan a lo último, es decir después de la ultima fila con datos.

Desaparecen las flechas de los desplegables del filtro.No sé por qué.

La ultima columna"diferencia horaria" es donde va la formula, que hace la resta de la 3 celda de la columna "hora" con la celda 2 de la misma columna, luego restar la 4 con la 3 y así sucesivamente hasta que no existan más celdas con datos.

Adjunto una captura de como debe ser el resultado final.

Un saludo y muchas gracias.

En tu macro aparecen estas instrucciones:

Header:=xlNo

.Header = xlGuess

Significa que no tienes títulos.

Entonces, si tienes títulos, tienes que ponerlo de esta forma:

Sub Macro_Ordenar()
'Act.Por.Dante Amor
    'eliminar columnas
    Range("A:H,J:K,M:P,R:R,T:U,X:Z").Delete Shift:=xlToLeft
    Cells.EntireColumn.AutoFit
    '
    'Obtener la última fila con datos
    u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    'eliminar los datos duplicados según el criterio de la columna 3
    ActiveSheet.Range("A1:Y" & u).RemoveDuplicates Columns:=3, Header:=xlYes
    '
    'Obtener nuevamente la última fila, porque se eliminaron los duplicados
    u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    'Ordenar
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("E2:E" & u), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("F2:F" & u), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A1:Y" & u)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With Range("G2:G" & u)
        .FormulaR1C1 = "=R[1]C[-1]-RC[-1]"
        '.Value = .Value
    End With
End Sub

La última parte de la macro es para poner las fórmulas.

sal u dos

Este ejemplo que busca en base de datos mientra se escribe en textbox. Utiliza un filtrado de hoja

http://www.programarexcel.com/2015/08/buscar-datos-medida-que-se-escribe-en.html?m=1