Ordenar Data Ordem Crescente


#1

Estou usando uma macro de classificação, que classifica em ordem data as datas ficam assim:
01/08/2018
01/09/2018
02/08/2018
02/09/2018
Todas as Datas que coloco com mês 9 esta juntando Com Mês 8
Começa em B16 a K2000


#2

Acredito que esse post possa te ajudar:

Abrç!


#3

xlarruda Boa Tarde!
Tenho que classificar de B16:K2000
As datas Ficam em B
Planilha com células B16:K2000 desbroqueadas


#4

Colega SSP, segue conforme pedido:

Vá Inserindo datas entre a linha 16 Até a linha 2000 da Coluna B e verá que a Coluna se ajustará automaticamente da data mais antiga para a mais nova

Anexo no final:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcoluna, lin_inicial, lin_final As Long
xcoluna = 2
lin_inicial = 16
lin_final = 2000
If Target.Column = xcoluna And Target.Row >= lin_inicial And Target.Row <= lin_final Then
Application.ScreenUpdating = False
    Cells((lin_inicial - 1), xcoluna).AutoFilter
    Plan1.AutoFilter.Sort.SortFields.Clear
    Plan1.AutoFilter.Sort.SortFields.Add Key:=Range( _
        "B1:B" & lin_final), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With Plan1.AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Cells((lin_inicial - 1), xcoluna).AutoFilter
    Application.ScreenUpdating = True
    End If
End Sub

Datas Organizadas Automaticamente.xlsm (26,5 KB)


#5

Tenho que preencher varias linhas e depois se tiver alguma data fora da sequência ordenar. Tentei colocar em módulo mas não funciona.


#6

Tente assim:

Datas Organizadas Automaticamente.xlsm (29,6 KB)


#7

Data digitada em célula e diferente da enserida através de calendário. porque estava classificando normal talvez seja por isso


#8

pode ser que ao inserir dessa forma ela venha em formato de texto por exemplo…

Se realmente for isso, uma dica seria , primeiramente coverter o texto em data (via vba msm) e logo após fazer a classificação.


#9

as células da coluna B estão formatadas para data.
Vou usar a macro que me enviou se funciona.


#10

Não funcionou
Coloque uma Coluna igual a B com formatação Geral ate 31/07/2018 43312
a partir de 01/08/2018 43312 todas o que pode esta acontecendo


#11

Tem como você postar essa sua planilha com erro?

Derrepente olhando, eu consigo entender aonde está o problema…


#12

Consegui Arrumar Copiei a ultima célula e colei e digitei as datas manualmente e funcionou, o problema foi lançar atráves do calendário.
Será que tem alguma forma de ordenar os lançamentos atráves de calendário
Obrigado pela ajuda.
um bom feriado.