ListBox

Question

Bom dia pessoal

Estou criando uma planilha na empresa onde trabalho e nela estou alocando alguns documentos essenciais para o seu funcionamento, porém alguns documentos possuem data de validade, por exemplo alvará do corpo de bombeiros, etc.

Gostaria de saber se é possível criar uma ListBox que fosse exibida quando a planilha fosse aberta trazendo os processos vencidos, com Denominação/Código/Documento/Data de Vencimento 

Isso é possível??

Obrigado!

Answer 1

Olá Thiago,

Você já escreveu algum código? Se sim, poderia postar?

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 2

Bom dia Felipe,

Infelizmente não, fiz alguns testes, mas nada funcionou, e como sou iniciante (bastante noob) em VBA não soube como resolver, talvez nem tenha ficado claro para vocês a minha ideia.

Mas talvez ela se resolva de uma forma até mais fácil, porque o que eu queria era que ao abrir o arquivo aparecesse uma tela de aviso que me mostrasse quais eram os documentos com status vencido.

Se puderem me ajudar eu agradeço. =]

Answer 3

Sub Main()
    Dim iDocumentação As Long
    Dim wsReport As Worksheet
    Dim wsDocumentação As Worksheet
    Dim iReport As Long
    Dim LastRow As Long
    
    With ThisWorkbook
        Set wsDocumentação = .Worksheets("Documentação")
        Set wsReport = Worksheets.Add
    End With
    
    With wsDocumentação
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For iDocumentação = 4 To LastRow
            If .Cells(iDocumentação, "F") > Date Then
                iReport = iReport + 1
                wsReport.Cells(iReport, "A") = .Cells(iDocumentação, "A")
                wsReport.Cells(iReport, "B") = .Cells(iDocumentação, "B")
                wsReport.Cells(iReport, "C") = .Cells(iDocumentação, "F")
            End If
        Next iDocumentação
    End With
End Sub

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 4

Answer 5

Felipe,

Inseri a macro, porém ela cria uma nova aba e retorna os dados totalmente desorganizados.

Teria como fazer com que ela retorne os dados em uma MsgBox por exemplo e organizado?

Obrigado! 

Answer 6

Veja a estrutura da tabela que você mandou. Na coluna A tem o nome do documento, na B tem a descrição e na F a data.

Usei a data para testar se algum documento venceu.

No entanto, aparentemente, parece que você rodou a macro em outra estrutura.

Acerte as colunas na programação de acordo com a primeira imagem que mandou, que verá os resultados organizados.

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 7

Boa tarde Felipe,

Infelizmente não funcionou como eu esperava. Vou continuar tentando e ver se alguém mais me dá uma força.

Agradeço sua ajuda. =]