Cambio di colonna



  • Cambio di colonna
    di sorisole data: 04/05/2017 15:30:21

    Salve ragazzi
    Vi dovrei chiedere un aiuto come posso modificare la macro, attualmente la macro mi funziona sulla colonna "A" vorrei poter utilizzarla sulla colonna "G" oltre al Range di colonna, cosa devo modificare per farla funzionare? grazie
     
    Sub Ricerca()
     If Worksheets("Case").FilterMode = True Then
     Worksheets("Case").ShowAllData
     End If
     Dim Crituno
     Dim Critdue
     Crituno = Range("G2")
     If Crituno = "" Then Exit Sub
     Critdue = Range("G5")
     If Critdue = "" Then Exit Sub
     Range("A7").Select
     Selection.AutoFilter Field:=1, Criteria1:=">=" & Format(Crituno, "mm/dd/yy"), Operator:= _
     xlAnd, Criteria2:="<=" & Format(Critdue, "mm/dd/yy")
     End Sub



  • di Mister_x (utente non iscritto) data: 04/05/2017 15:39:48

    ciao

    al posto di Range("A7").Select

    Range("G:G").Select per tutta la colonna oppure
    Range("G1:G20").Select per solo celle interessate in questo Range PS 1 e 20 lo puoi cambiare come ti serve
    Range("G1;G2;G3;G10;G20").Select solo per queste celle proposte

    ciao





  • di sorisole data: 04/05/2017 16:20:22

    Ciao Mister
    Risolto il problema Grazie Grazie Grazie