Erro ao gerar relatorio em ordem alfabetica

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

4 Posts

3 Usuários

0 Reactions

938 Visualizações

RSS

efs2016

(@efs2016)

Posts: 38

Eminent Member

Topic starter

Tentei a manhã toda descobrir o erro mas não consegui.
Ao clicar no botão "Gerar" do formulario relatorio, eu preciso que o relatório seja gerado em ordem alfabetica a partir da coluna "B".
Trata-se de um macro, "classificar".
Alguém poderia me ajudar?

Postado : 07/10/2016 11:17 am

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa tarde efs2016,

Mude sua Macro classificar por essa:

Sub Classificar()

    Dim UltimaLinha As Double
    UltimaLinha = Sheets("Rel").Cells(Cells.Rows.Count, 6).End(xlUp).Row
    
    If UltimaLinha < 2 Then UltimaLinha = 2
    
    Sheets("Rel").Select
    
    Range("A6:F" & UltimaLinha).Select

    ActiveWorkbook.Worksheets("Rel").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Rel").Sort.SortFields.Add Key:=Range("B6:B" & UltimaLinha), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Rel").Sort
        .SetRange Range("A6:F" & UltimaLinha)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
End Sub

teste e de retorno.

att,

Postado : 07/10/2016 12:16 pm