Este fórum está sendo desativado

[Fc1975]

Olá.
Estou com uma duvida e nem sei se é possivel fazer..
Estou a tentar fazer uma folha de controle validades de produtos, a minha duvida e (se seja possivel fazer), é a seguinte:

Ao adicionar a datas de validade do produtos em cada linha, eu gostava (se desse), esta automaticamente subir ou descer na tabela na coluna
"DIAS ATÉ ACABAR"
mediante os dias restantes até acabar a validade.

Em vez de estar sempre a fazer: "ordenar de A a Z"

Esta assumir este comando automaticamente.

É possivel?

Junto envio ficheiro..
Folha 1 é onde insiro os produtos...
Folha 2 é a ordem que eu queria que ficasse se possivel...

Cumprimentos

[mucascosta]

Click a direita na Guia e cole o seguinte:

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

[Fc1975]

Já entendi..

Obrigado por me ter ajudado

Cumprimentos

[mucascosta]

Click no botão direito do mouse na Folha2, nas opções apresentadas click em Exibir Código. Pronto é só colar o evento...

[leodalua]

Olá Amigo! Não sei se ajuda, pois o ideal seria em VBA, porém fiz uma gambiarra que organiza automaticamente os próximos 10 produtos a vencerem (ou vencidos), bastando apenas cadastrar eles na tabela.

Espero que ajude até um usuario mais competente lhe dar a solução definitiva. Boa Sorte!