Jump to content

Associar uma coluna de tabela a uma variável para Ordenar linhas


Recommended Posts

Bom Dia
Queria ordenar uma tabela de 3 colounas, através de duas combobox num formulário, em que o utilizador escolhe as opções que deseja, para ordenar por 2 colunas.
Quando tento associar uma variável á coluna escolhida pelo utilizador, dá um erro "Referência inválida ou não qualificada".
Como poderei fazer que funcione? Obrigado

 

Private Sub Btn_Imprimir_Click()    
    Dim v_Sorting1 As String
    Dim v_Sorting2 As String

    If Form_Imprimir.ComboBox1.Value = "Tipo" Then v_Sorting1 = ".ListColumns(1)"
    If Form_Imprimir.ComboBox1.Value = "Equipamento" Then Set v_Sorting1 = .ListColumns(2)
    If Form_Imprimir.ComboBox1.Value = "Data Fabrico" Then v_Sorting1 = ".ListColumns(3)"

    If Form_Imprimir.ComboBox2.Value = "Tipo" Then v_Sorting2 = ".ListColumns(1)"
    If Form_Imprimir.ComboBox2.Value = "Equipamento" Then v_Sorting2 = ".ListColumns(2)"
    If Form_Imprimir.ComboBox2.Value = "Data Fabrico" Then Set v_Sorting2 = .ListColumns(3)

    Folha3.Sort.SortFields.Clear
    With Folha3.ListObjects(1)
        .Range.Sort Key1:=v_Sorting1, Key2:=v_Sorting2, Header:=xlYes, Order1:=xlAscending, Order1:=xlAscending
    End With
End Sub

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.