Classificar por datas excel

Question

Ol&aacute;, recentemente o meu chefe me pediu que a planilha apresentasse certa fun&ccedil;&atilde;o. Basicamente, existe uma planilha m&atilde;e onde ele faz os lan&ccedil;amentos e outras planilhas que registram esses lan&ccedil;amentos. ( contas a pagar, receber etc.) O problema &eacute; que as vezes surgem lan&ccedil;amentos anteriores ao que ja foi lan&ccedil;ado, por exemplo : um boleto dia 20, ai surge outro boleto dia 16, s&oacute; que este ao ser lan&ccedil;ado, vai abaixo ao do dia  20. O que ele gostaria &eacute; de uma f&oacute;rmula ou macro, que imediatamente depois de lan&ccedil;ado, ele se organize por datas, sendo acima do dia 20 por exemplo. Teria como, sou meio novato nesta quest&atilde;o e to quebrando a cabe&ccedil;a pra resolver, grato por qualquer ajuda.

Answer

Boa tarde akon999

Seja bem-vindo ao f&oacute;rum!

Sem anexar uma planilha de exemplo, com poucos dados (fict&iacute;cios), mas com a mesma estrutura e layout da planilha original, fica dificil do pessoal ajudar.

Na minha assinatura tem um link para o Guia de Utiliza&ccedil;&atilde;o do F&oacute;rum.

[]s

Answer

Infelizmente, &eacute; protegida por senha, mas eu fiz um rascunho com as formulas s&oacute; para o pessoal se localizar sobre como funciona essas planilhas, a planilha m&atilde;e &eacute; para lan&ccedil;amentos, de acordo com a letra colocada no lan&ccedil;amento, ela se destina as outras planilhas, oq eu queria era que esses lan&ccedil;amentos se organizassem por datas quando fossem inseridas nas demais automaticamente, levando a respectiva linha junto. E teria como um macro que ao inserir uma linha, copia a formula de cima ?

Answer

algu&eacute;m, por favor ?

Answer

Boa tarde Akon.
Tenta o seguinte,  abra o visual basic ALT + F11, e clique [ATTACH=full]82019[/ATTACH]

cole esse c&oacute;digo
Private Sub Workbook_Open()

Range(A2).Select
ActiveWorkbook.Worksheets(Planilha M&atilde;e).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(Planilha M&atilde;e).Sort.SortFields.Add Key:=Range(A2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(Planilha M&atilde;e).Sort
.SetRange Range(A2:O108)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

Ele executa uma classifica&ccedil;&atilde;o na data sempre que a planilha for aberta.

Espero ter ajudado..

Answer

N&atilde;o &eacute; mais simples classificar os dados apos todas as digita&ccedil;&otilde;es?

Ferramentas

Mover Tópico