Seleziona colonna e filtra



  • Seleziona colonna e filtra di Daniele (utente non iscritto) data: 05/11/2009

    Ciao,
    molto tempo che utilizzo excel ma solo da una settimana inizio a capirne il potenziale attraverso le macro.
    ho la necessita' di filtrare un database e ho individuato la macro seguente pero' al momento della filtrazione non funzione e mi d il mess di errore run time 1004'.
    non capisco dove sbaglio, utilizzo excel 2003, qualcuno riesce ad aiutarmi??
    grazie.
     
    Public campo As Variant 
    '--------------------------------------------------------------------------------------------
    Sub Filtra()
    campo = InputBox("Scrivi il NUMERO del campo da filtrare")
    If campo = "" Then Exit Sub
    
    
    inizio = Cells(2, Val(campo)).Address
    fine = Cells(2, Val(campo)).End(xlDown).Address 
    
    UserForm1.Show
    UserForm1.ListBox1.RowSource = "" & inizio & ":" & fine & "" 
    
    With Selection
    .AutoFilter Field:=campo, Criteria1:=scelta
    ' il probb nasce qui!!!!!!
    End With 
    
    OrdinaAScelta 
    End Sub
    Sub OrdinaAScelta()
    
    campus = InputBox("Inserire la lettera di Colonna del campo da ordinare")
    If campus = "" Then Exit Sub
    Set zonaord = ActiveSheet.Range([a2], [d2].End(xlDown))
    zonaord.Sort Key1:=Range("" & campus & "2"), Order1:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
    xlTopToBottom
    End Sub
    Sub TogliFiltro()
    
    Range("A2:D2").Select
    Selection.AutoFilter
    Set zonaord = ActiveSheet.Range([a2], [d2].End(xlDown))
    zonaord.Sort Key1:=Range("A2"), Order1:=xlAscending, _
    
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
    xlTopToBottom
    
    End Sub
    


  • di Ricky53 (utente non iscritto) data: 05/11/2009

    Ciao,
    la colonna sulla quale vuoi filtrare contiene dei dati?

    ciao da ricky53


  • di Daniele (utente non iscritto) data: 09/11/2009

    Si, in effetti il dubbio che ho come creare il collegamento tra la routine e la proprieta' rowsource della listbox che attualmente vuota.