TF 15555 v1.24 – Filtro tabellare

Permette di filtrare i segnali recentissimi dalla lista

Codice Vba:

Sub INDI_FILTRO_ON()
Dim ultimariga As Integer
ultimariga = Cells(Rows.Count, "B").End(xlUp).Row
    Range("B1:V" & ultimariga).Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$1:$V$" & ultimariga).AutoFilter Field:=7, Criteria1:=">=" & ActiveSheet.Range("X16"), _
        Operator:=xlAnd, Criteria2:="<=" & ActiveSheet.Range("X18")
        Range("A1").Select
End Sub