Boa noite Rech,

Não sei como trabalhar com as datas formatadas e não entendi pq vc criou um listbox na aba2 pra pegar a data que vc quer.

Como vc vai notar criei um campo texto no proprio form que compara com as datas da aba1 e traz o que vc quer.

espero ter ajudado

Boa noite Rech,

Não sei como trabalhar com as datas formatadas e não entendi pq vc criou um listbox na aba2 pra pegar a data que vc quer.

Como vc vai notar criei um campo texto no proprio form que compara com as datas da aba1 e traz o que vc quer.

espero ter ajudado

Dias,
Em partes você ajudou na solução, porém ainda não é isso que eu gostaria.
Por exemplo, eu vou selecionar na combobox da aba2 o mês e a data, neste caso dia 31/07. Ao abrir o form, gostaria que todas as publicações desta data fossem exibidas automaticamente, sem precisar clicar no botão "Exibir Publicações".

Você de certa forma configurou o formulário pra exibir as publicações, porém você fixou o dia 31. Gostaria que as publicações exibidas no listbox, variassem conforme a data escolhida no combox. Entendeu?

Por exemplo, se eu mudasse a data do combobox para mês Maio e dia 28 e clicar em "Exibir", gostaria que fossem listadas automaticamente na listbox as publicações realizadas nessa data (total de 11). Será que você saberia como me ajudar?

Quanto ao combobox que coloquei dentro do form, pode ignorá-lo.

Abraços.

Rech, boa tarde!

Veja se é isso que precisa:

Dúvidas é só perguntar!!!

Se for útil clique na mãozinha!!!

Att,

Marciel,
Boa tarde!

Obrigado pela ajuda. É quase isso, mas não gostaria que o form abrisse automaticamente ao escolher o dia, como está acontecendo.
Gostaria de primeiro escolher o dia, depois clicar em "Exibir" e aí sim, o form abrir. Uma outra dúvida é que gostaria que o listbox fosse carregado automaticamente de acordo com a data escolhida no combobox, sem que houvesse necessidade de clicar em "Exibir Publicações", dentro do form. É possível?

Fiz alguns testes e não está funcionando pra todos os dias. Acho que o "mal funcionamento" pode estar associado ao fato que o form está abrindo automaticamente sem antes executar a fórmula que está no calendário. Quando você altera o dia, repara que o calendário atrás não atualiza as informações, somente quando alteramos o mês.

Abs.

Não sei se entendi direito a demanda, mas veja no anexo

Não sei se entendi direito a demanda, mas veja no anexo

Reinaldo,

A planilha não está funcionando. Ao clicar "Exibir" aparecem duas janelas, uma escrita "69" e outra "BD_Assessoria".
É esta planilha mesmo?

Obrigado!

São duas mensagem box, para me oriuentar,
Mas clicando OK o formulario deve ser aberto.
Na rotina CarregaResumo exclua as linhas --> MsgBox mlLast e -->MsgBox moSheet.Name

Reinaldo,

Excluí as rotinas, mas não entendi as modificações que você fez.
O que pretendo fazer é o seguinte, são duas combobox na guia "Assessoria", certo? Seleciono o mês e o dia em cada uma delas e aperto "Exibir". Ao apertar "Exibir" o form irá abrir e gostaria que o listbox carregasse automaticamente todas as linhas que estão na guia "BD_Assessoria" relacionadas a data que que foi selecionada pelos combobox.

Por exemplo, seleciono "Maio" e dia "22", e aperto "Exibir". O form deverá abrir e carregar automaticamente o listbox com 4 linhas, que estão no banco de dados que é a "BD_Assessoria".

Abs.

Assim?

Excelente, Reinaldo!
Exatamente isto!

Aproveitando a oportunidade, na guia "BD_Assessoria", na coluna "E" estão os diretórios para acesso dos anexos de cada publicação.
Existe alguma forma de abrir o arquivo do diretório listado na coluna E, clicando através do listbox?

Obrigado!!!

Experimente:
de um duplo clique no evento desejado, veja se funciona, porem deve garantir que o arquivo esteja no local apontado

Private Sub Resumo_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo ErrTrat
    ThisWorkbook.FollowHyperlink Address:=Resumo.List(Resumo.ListIndex, 4)
ExitHere:
    Exit Sub
ErrTrat:
    If Err.Number = -2147221014 Then
        MsgBox "Link Errado!"
    Else
        MsgBox "Erro: " & Err.Description
    End If
    Resume ExitHere
End Sub

Fonte: http://stackoverflow.com/questions/2311 ... tbox-links

Reinaldo,

Era exatamente isto!
Muito obrigado cara, fazia tempo que estava procurando por esta solução!

Grande abraço!