none
ListBox RRS feed

  • Pergunta

  • 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!



    • Editado ThiagoCFB sexta-feira, 7 de outubro de 2016 14:26 Título inconsistente
    quarta-feira, 5 de outubro de 2016 11:17

Todas as Respostas

  • Olá Thiago,

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


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

    sábado, 8 de outubro de 2016 13:31
    Moderador
  • 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. =]

    segunda-feira, 10 de outubro de 2016 14:34
  • 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

    segunda-feira, 10 de outubro de 2016 14:43
    Moderador
  • Inseri esta macro na planilha, mas ela retorna os dados todos desarrumados =/
    segunda-feira, 10 de outubro de 2016 16:10
  • 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! 

    segunda-feira, 10 de outubro de 2016 16:15
  • 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

    segunda-feira, 10 de outubro de 2016 17:13
    Moderador
  • 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. =]

    segunda-feira, 17 de outubro de 2016 15:39