Ir ao conteúdo
  • Cadastre-se

Classificar Lista (CustomOrder) - Excel vba macro


Posts recomendados

Olá.

 

Gostaria de automatizar uma Classificação "customizada" e com uma ordem de classificação variável.

 

Para isso, gravei uma macro:

Sub Macro1()

	ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("F6:F16"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="Matrícula Pendente, Cadastro Incompleto", _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("E5:I16")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Para deixar a "ordem variável", declarei a variável "Ordem":

 

Sub Macro1()
Ordem = "" & Plan15.Range("c28") & "," & Plan15.Range("c29") & ""

	ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("F6:F16"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=Ordem, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("E5:I16")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Porém a execução retorna um erro de execução (13 - Tipo incompatíveis).

 

A "ordem está retornando "Matrícula Pendente, Cadastro Incompleto" (do jeito que foi gravado).

 

Eu desconfio que seja algum problema com essas aspas - mas já tentei de tudo ( " " ", " ' ", " ", sem nada etc).

 

Alguém poderia ajudar?

 

Grato! Abs!

 

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...