Excel Macro para ordenar Planilha do Excel

[Sergio Viana Miguel]

Boa noite a todos.

Utilizo uma Planilha do Excel para alimentar um sistema de cálculo de custos de Fichas de Produção de Gastronomia. A primeira Planilha é a Lista de Ingredientes onde são registrados todos os ingredientes que são utilizados nas produções. Já tenho 880 itens e a cada nova formulação, vários itens novos são adicionados à esta Lista de Ingredientes. Preciso automatizar a tarefa de ordenar os ingredientes em ordem alfabética, para facilitar o trabalho. Copiei uma fórmula que esta disponível numa aula de Excel, mas não funciona de maneira alguma. Agradeço se puderem me auxiliar fornecendo as instruções para criar o Código, ou se alguém tiver a Macro pronta para esta finalidade. Em anexo estou enviando uma cópia da Planilha na qual preciso inserir a referida Macro. Agradeço desde já pela ajuda que puderem me prestar.

Muito obrigado.

0. Gabarito.xlsx

[CasaDoHardware]

Tenta ajustar este codigo!

 

Sub Classifica()
Dim W As Worksheet

Set W = Sheets("Nome da sua planilha")
With W.Sort
        .SetRange Range("A1:A" & Rows.Count) ' Informe a primeira linha e a ultima coluna
        .Header = xlYes
        .Apply
    End With
End Sub

 

[Sergio Viana Miguel]

Agradeço imensamente, mas depois de inserir as informações conforme sua orientação não aconteceu nada na planilha. Devo ter deixado de fazer alguma coisa fundamental para que o Código funcione. 

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:E")) Is Nothing Then
        Range("A3").Sort Key1:=Range("E3"), _
          Order1:=xlAscending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom
    End If
End Sub

 

0. Gabarito.xlsx

[Thiago088]

Sérgio com base na planilha que você colocou criei uma macro para fazer o que pediu, coloquei para executar até a linha 4100.

Dá uma olhada se é isso que está precisando, qualquer coisa avisa.

 

Obs.: tive que colocar o arquivo zipado porque o Clube do Hardware não permite enviar arquivo com extensão .xlsm

Caso prefira, coloquei o arquivo no 4shared, dessa forma você tem opção para escolher a mais conveniente.

Link: https://www.4shared.com/s/fjqn9CYYgca

 

Segue o código da macro e também anexei o arquivo com ela funcionando, para executar inseri um botão.

 

 Range("B4:F4100").Select
    ActiveWorkbook.Worksheets("Lista de Preços").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Lista de Preços").Sort.SortFields.Add Key:=Range( _
        "B5:B4100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Lista de Preços").Sort
        .SetRange Range("B4:F4100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

Avisa se deu certo ou se chegou a testar a planilha que estou enviando.

Gabarito.zip

[Sergio Viana Miguel]

Boa tarde Thiago Rodrigues.

 

Finalmente consegui fazer com que os dados da planilha fossem ordenados. O ideal seria se a tarefa pudesse ser executada automaticamente. Recebi um Código, mas ao adaptar para a configuração de minha planilha, ela não funciona de maneira alguma. Como não sei programar fica difícil localizar o erro que estou cometendo. Vou anexar o Código que recebi logo a baixo, quem sabe você consegue adaptar a minha planilha e assim eu conseguirei inserir os dados e ordená-los de maneira automática. Peço desculpa por estar dando trabalho e desde já agradeço muito pela ajuda.

Macro-para-Classificar-Automaticamente.rar

[João Carlos Júnior]

Prezados Senhores, boa tarde.

 

Preciso de uma macro para a contabilidade conforme anexo que faça o seguinte :

 

1.Manter as colunas e as linhas na cor azul e as que estão em branco deletar e o ano em ordem crescente;

2.Manter o formato dos números;

3.E quando a macro rodar deixar tudo em fundo branco em todas as planilhas;

 

Umildemente sou grato pela ajuda.

 

 

At.Adm.João Carlos

 

2013 a 2015.xls

[Thiago088]

Sergio o código não veio na postagem, mas fiz um, veja se é isso e depois diga se ficou como quer.

 

Agora os nomes são classificados automaticamente por ordem alfabética, assim que você inserir ou alterar um dado na planilha.

 

Macro-para-Classificar-Automaticamente.zip

adicionado 1 minuto depois

@Thiago Rodrigues Cunha

 

@Sergio Viana Miguel

[João Carlos Júnior]

Tiago , boa noite.

 

Essa macro não funcionou . Estou lhe enviando uma outra planilha de como deverá ficar com o uso da macro , porém a que segue foi feita sem a macro ou seja manualmente onde já foi retirado as contas que estão em azul quando enviei anteriormente.

E um detalhe : o código da conta contábil está na coluna A .e não há a necessidade de colocar em ordem pois as contas das demonstrações financeiras por padrão já vem na ordem .

 

 

At.João Carlos

 

2010 a 2012.xls

[Venicio Rimes Oliveira]

Tenho um relatório que o sistema ERP da empresa gera com atendimentos a clientes, mas ele gera com uma linha de conteúdo e outra em branco, alternando-as 

E também gera com origens de tipo de atendimento que não preciso.

E algumas colunas que não preciso

Gostaria de uma Macro que organizasse tudo isso 

 

[CasaDoHardware]

@Venicio Rimes Oliveira Disponibilize parte do seu arquivo com alguns dados mostrando mesmo que manualmente o resultado esperado.