Página 1 de 1

Ordenar valores(datas) automaticamente

Enviado: 09 Mai 2020 às 10:25
por 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
;)

Re: ajuda ordenar valores

Enviado: 09 Mai 2020 às 11:29
por 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

ajuda ordenar valores

Enviado: 09 Mai 2020 às 11:35
por Fc1975
Já entendi..

Obrigado por me ter ajudado

Cumprimentos

:D

Re: ajuda ordenar valores

Enviado: 09 Mai 2020 às 11:40
por mucascosta
Click no botão direito do mouse na Folha2, nas opções apresentadas click em Exibir Código. Pronto é só colar o evento...

Re: ajuda ordenar valores

Enviado: 09 Mai 2020 às 11:44
por 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!