Filtro automatico con macro

[bibbaste]

Buongiorno a tutti.
Quando non riesco a trovare autonomamente altre soluzioni e sono alla frutta ...mi rivolgo a voi...

Spero di essere chiaro nella spiegazione del problema che devo risolvere.

Foglio nominato "DB_Completo" nella colonna C da riga 4 in giù ci sono dei numeri che si ripetono ciclicamente (dal numero 4 al numero 21 più "cella vuota" - sono le ore dalle 4 alle 21) e sono sotto filtro automatico.

Foglio nominato "Orari" - in questo foglio nelle varie colonne sono riportati tutte le possibili combinazioni degli orari posti nel foglio che ho evidenziato prima con i numeri dal 4 al 21.
Il formati di queste celle che riassumono le combinazioni è X.Y dove X è l'ora iniziale e Y l'ora finale.
Quindi nella colonna A ho 4.5 poi 5.6 poi 6.7 ecc (combinazioni possibili con due ore) fino a 20.21
nella colonna B ho le combinazioni possibili con tre ore, quindi 4.6 poi 5.7 poi 6.8 ecc fino a 19.21
nella colonna C ho le combinazioni con quattro ore, quindi.... 4.7 poi 5.8 ecc ecc fino a 18.21
...
...
fino ad arrivare alla colonna Q che ha le combinazioni (solo una) con 18 ore (il totale) 4.21

Quello che a me serve è un codice vba che una volta che io seleziono la combinazione che mi serve, nel foglio "Orari" , e attivo la macro, vada automaticamente ad applicare i filtri (dall'ora iniziale a quella finale compreso tutti gli intermedi - quindi ad esempio il filtro 5.10 dovrà selezionare il 5 il 6 il 7,8,9 e 10 più la "Vuote") nel foglio "DB_Completo"


Come al solito un grazie a tutti voi.

[bibbaste]

Salve, sto cercando di inventarmi qualcosa, che funziona solo fino ad un certo punto:

Codice: Seleziona tutto

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.Copy
    Range("X4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("X4"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=".", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
   
    Sheets("DB_Completo").Select
   
    X = Sheets("Orari").Range("X4")
    Y = Sheets("Orari").Range("Y4")
   
 '   ActiveSheet.Range("$A$3:$C$26318").AutoFilter Field:=3, Criteria1:=(">=" & X), _
 '      Operator:=xlAnd, Criteria2:=("<=" & Y), Operator:=xlAnd, Criteria3:="="
       
    ActiveSheet.Range("$A$3:$C$26318").AutoFilter Field:=3, Criteria1:=Array( _
        "(" >= " & X)", "(" <= " & Y)", "="), Operator:=xlFilterValues
   

End Sub


questa funziona se dovessi selezionare solo gli orari da x a y, ma siccome a me serve anche la selezione su celle =(Vuote) questa macro così come l'ho strutturata mi "inibisce" la selezione da x a y.

EDIT Flash: inserite sempre i codici e/o le formule nel Tag Code posto nell'Editor

[bibbaste]

Non sarà di certo la soluzione più "bella" ma di buono c'è che funziona perfettamente! e l'importante in questi casi è arrivare alla soluzione del problema.
_______________________________

Codice: Seleziona tutto

Range("X4:Y4").ClearContents

 'qui sono posizionato sulla cella della combinazione che mi interessa analizzare   
    Selection.Copy

    Range("X4").Select
   
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("X4"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=".", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("AD7:AD24").Select
    Selection.Copy
    Range("AE7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("AE7").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
   
    a = "=" & Sheets("Orari").Range("AE7").Value
    b = "=" & Sheets("Orari").Range("AE8").Value
    c = "=" & Sheets("Orari").Range("AE9").Value
    d = "=" & Sheets("Orari").Range("AE10").Value
    e = "=" & Sheets("Orari").Range("AE11").Value
    f = "=" & Sheets("Orari").Range("AE12").Value
    g = "=" & Sheets("Orari").Range("AE13").Value
    h = "=" & Sheets("Orari").Range("AE14").Value
    i = "=" & Sheets("Orari").Range("AE15").Value
    l = "=" & Sheets("Orari").Range("AE16").Value
    m = "=" & Sheets("Orari").Range("AE17").Value
    n = "=" & Sheets("Orari").Range("AE18").Value
    o = "=" & Sheets("Orari").Range("AE19").Value
    p = "=" & Sheets("Orari").Range("AE20").Value
    q = "=" & Sheets("Orari").Range("AE21").Value
    r = "=" & Sheets("Orari").Range("AE22").Value
    s = "=" & Sheets("Orari").Range("AE23").Value
    t = "=" & Sheets("Orari").Range("AE24").Value
   
    Sheets("DB_Completo").Select
     
    ActiveSheet.Range("$A$3:$C$26318").AutoFilter Field:=3, Criteria1:=Array(a, b, c, d, e, f, g, h, i, _
    l, m, n, o, p, q, r, s, t, "="), Operator:=xlFilterValues


________________________________

Un saluto.

[Anthony47]

Io non avrei dubbi: se funziona e' bellissima...

Grazie per aver condiviso la tua soluzione e alla prossima.