Diminua sua plan e zipe. Há inúmeras maneiras de fazer isso mas sem ter idéia de como e onde estão os dados é bem mais complicado.

Pense nisso.

Abs,

segue "síntese" da planilha...
está com a formatação condicional, mas como ela tem - hoje - mais de 200 linhas, só a formatação condicional não satisfaz por completo.

Obrigada

pathi,

Para o que vc deseja, não é preciso macro. Minha sugestão é que vc utilize um recurso mais simples, que é o filtro.

Veja o anexo: incluí uma coluna onde vc tem a informação se o contrato está para vencer em menos de 60 dias, menos de 30 dias, ou menos de 10 dias. Por ela vc pode filtrar rapidamente. Além disso, vc pode usar o filtro para classificar as datas de vencimento, e assim, vai ter em ordem, do primeiro o último contrato para vencer.

Veja e me fale.

Abs

gtsalikis,

realmente o filtro resolve o problema sim!! até pq, era exatamente isso que eu estava fazendo rsrs

mas oq eu queria era que apertasse um botão, por exemplo, e que aparecesse uma janela com os contratos em cada situação...

não sei se estou conseguindo explicar bem... vba não é meu forte no excel

Aproveitando o exemplo do gtsalikis, adicionei a rotina para filtrar e dividir em abas, veja se ajuda.

Filtrar por Vencimentos

[]a

oi Mauro!
então, a solução e formidável, mas peca por não ficar tão visível quanto a "janelinha" aparecendo na frente com a lista de contratos.
essa vigência dos contratos é um assunto muito sério (rsrs) e vou acabar utilizando essa funcionalidade inúmeras vezes por dia.
resumindo, tem que ser algo bem prático msm...

para a "janelinha", vc vai ter q dar 2 cliques. Para a solução do mauro, também são 2 cliques, e para o filtro que eu propus, também são 2 cliques.

Não vejo diferença em que uma listview vá facilitar.

Além do que, vc mesma pediu uma solução em uma "planilha de apoio".

a diferença é q não é a solução que procuro.

o filtro eu já fazia e não me satisfaz.
com a solução do mauro preciso sempre excluir as abas, pois se clicar de novo sem ter excluido dá erro.
mas, mesmo assim, tb não é a solução que procuro.

de qualquer forma, agradeço.

Pathi, vamos por parte, estava no serviço e como já tinha este exemplo de filtrar em abas, que alias tem aqui no Forum, fiz uma adaptação as pressas e realmente deixei passar a opção de apagar automaticamente as abas adicionadas se acionar a macro mais de uma vez.

Para resolver esta questão troque a rotina pela a abaixo :

    Sub FiltraEmAbasOrd()
        Dim ws1 As Worksheet
        Dim wsNew As Worksheet
        Dim rng As Range
        Dim r As Integer
        Dim c As Range
        Dim sVerificaSheet
        
        Set ws1 = Sheets("Orders")
        
        'Calcula e Monta o range Nomeado
        Call AddNameRange
        
        Set rng = Range("Database")

        'extract a list of Sales Reps
        ws1.Columns("S:S").AdvancedFilter _
          Action:=xlFilterCopy, _
          CopyToRange:=Range("X1"), Unique:=True
        r = Cells(Rows.Count, "X").End(xlUp).Row
        
        'set up Criteria Area
        Range("Z1").Value = Range("S1").Value
        
            For Each c In Range("X2:X" & r)
              'add the rep name to the criteria area
              ws1.Range("Z2").Value = c.Value
              
              'Verifica se já existe a aba
              'e Deleta
              sVerificaSheet = c.Value
              DeleteSheet (sVerificaSheet)
              
              'add new sheet and run advanced filter
              Set wsNew = Sheets.Add
              wsNew.Move After:=Worksheets(Worksheets.Count)
              wsNew.Name = c.Value
              rng.AdvancedFilter Action:=xlFilterCopy, _
                  CriteriaRange:=Sheets("Orders").Range("Z1:Z2"), _
                  CopyToRange:=wsNew.Range("A1"), _
                  Unique:=False
            Next
            
        ws1.Select
        ws1.Columns("X:Z").Delete
    End Sub

E acrescente esta tambem que deleta a aba se já existir:

Sub DeleteSheet(sht As String)
    Dim mySheetName As String
        mySheetName = sht
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
    On Error Resume Next
        Worksheets(mySheetName).Delete
        Err.Clear
        Application.DisplayAlerts = True
End Sub

Quanto a exibição em um Listview ou listbox, eu até posso adaptar, mas me esclareça alguns pontos :
1 °) Neste seu modelo temos 22 colunas, precisa que todas vão para um Listview ? ou só os contratos e o vencimento ?(que aparecesse uma janela com os contratos em cada situação...)
2° ) No modelo que você enviou, não temos a coluna que o gtsalikis adicionou com a formula, esta coluna continuaria ?
Se SIM, fica mais fácil, se NÃO, temos de construir uma rotina para ir comparando e calculando as datas linha por linha, o que demandaria um certo tempo de processamento uma vez que diz que pode passar de 200 registros, então o ideal é filtrar primeiro e depois carregar um listview.

Fico no aguardo.

[]s

Bom dia, Mauro

Primeiramente muitíssimo obrigada pela ajuda!

1º) interessante seria realmente 1 janela pra cada situação... ou página pra cada situação, como ficar melhor. as colunas que preciso são:
Contrato, Ano, Fonte de Recurso, Objeto, Bairro e Interveniente.

2º) se a coluna puder ficar oculta (para não encher ainda mais a planilha) pode criar quantas precisar!!

e, mais uma vez, obrigada mesmo pela atenção...

Pathi, montei mais dois modelos:

um no mesmo molde do que enviei antes, o diferencial é que filtramos somente pelas colunas que mencionou, "Contrato, Ano, Fonte de Recurso, Objeto, Bairro e Interveniente."
Filtrar em Abas Separadas por colunas especificas

O outro com um ListView, tambem carregando somente pelas colunas mencionadas, no carregamento é listado todos os vencimentos (10, 30 e 60 dias), então temos 4 Botões, e cada um nos mostrara de acordo com a opção, se clicar no Botão 10 dias serão reexibidos somente os que tiverem esta condição, e para reexibir os 30 ou 60 dias terá de clcar no Botão TODOS para recarregar o ListView, na minha opinião esta é a melhor forma pois lidamos com os dados que estão no ListView, não necessitando filtrar na planilha e depois carregar.
Filtrar no ListView por colunasespecificas

Faça os testes e veja se seria isto.

[]s

não consigo abrir o arquivo com a ListView, Mauro!

Já tentei todas as soluções que encontrei aqui no fórum e em outros tb... até já instalei outro office e nada!

não consigo abrir o arquivo com a ListView, Mauro!

Já tentei todas as soluções que encontrei aqui no fórum e em outros tb... até já instalei outro office e nada!

O que quer dizer com "não consegue abrir o arquivo "?
Não consegue descompactar ?
Da erro ao abrir o arquivo ? Qual erro ?
Da erro ao acionar a rotina ? Qual erro ?
Qual versão do esta usando ? excel

Só assim para poder ajudar, se for erro do controle Listview, de uma olhada no link abaixo:

Habilitar o Controle ListView
http://www.tomasvasquez.com.br/forum/vi ... v4TstghMxF

[]s

aparece uma msg mais ou menos assim: "nao foi possivel carregar um objeto porque ele nao esta disponivel"

meu office é o 2013 64bits