Notifications

Clear all

Macro para Classificar e organizar

2024 - VBA & Macros

Post Recente por MPrudencio 7 anos atrás

7 Posts

4 Usuários

0 Reactions

1,385 Visualizações

RSS

TJ10

(@tj10)

Posts: 9

Active Member

Topic starter

Bom dia Pessoal,

Tenho uma planilha e queria uma macro para executar a seguinte tarefa. Classificar ela primeiro por local e depois por item, porem se tiver mais de um item com locais diferente, que esses itens fiquem junto mesmo que os locais sejam diferente.

Desde de já agradeço galerinha.

Postado : 05/01/2018 7:59 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Local de a a z ou de z a a ?

item do maior para o menor ou do menor para o maior?

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 05/01/2018 8:15 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sub Macro1()

    Range("A1:D10191").Select
    ActiveWorkbook.Worksheets("Planilha1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Planilha1").Sort.SortFields.Add Key:=Range( _
        "C2:C10191"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Planilha1").Sort.SortFields.Add Key:=Range( _
        "A2:A10191"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Planilha1").Sort
        .SetRange Range("A1:D10191")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Postado : 05/01/2018 8:24 am

TJ10

(@tj10)

Posts: 9

Active Member

Topic starter

Não é isso.

aqui foi apenas classificado o local.

O que eu preciso é o seguinte (Classificar por local A-Z porem os item que possuírem mais de um loca que fiquem agrupados).

Postado : 05/01/2018 10:22 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Creio que o xlarruda chegou ao que você queria.

Postado : 05/01/2018 10:33 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Se eu consegui entender, deve ser isso...

Sub Classificar()
'
' Classificar Macro
'

'
On Error GoTo trataerro

  Application.ScreenUpdating = False
    [Plan1].Activate
    ActiveSheet.ShowAllData
    [Plan1].Range("A1").Select
    Range("A1:D1").Select
   Range("A1:D1").AutoFilter
proced:
    ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort.SortFields.Add Key:= _
        Range("C1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort.SortFields.Add Key:= _
        Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Exit Sub
    
trataerro:
 
     [Plan1].Range("A1").Select
    Range("A1:D1").Select
   Range("A1:D1").AutoFilter
   GoTo proced
    Application.ScreenUpdating = True
    
    
End Sub

Se não for avisa ai .. Abçr!

Att.

André Arruda

Postado : 05/01/2018 10:39 am