Este fórum está sendo desativado

[riberex00]

Boa noite. Qual a linha de programa que poderia fazer com que as datas colocadas fossem classificadas automaticamente, sem a necessidade de utilizar o recurso "DADOS" -> Classificar toda vez que acrescento uma nova data, mesmo que fora de ordem?
Ex: 6/1/2021 e depois eu coloco 2/1/2021; 4/1/2021, etc...
Obrigado.

[osvaldomp]

Experimente:
#

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column > 1 Or Target.Value = "" Then Exit Sub
 [A1:A50].Sort Key1:=[A1], Order1:=xlAscending
End Sub

[riberex00]

Funcionou legal. Obrigado pela atenção.