klarc28, vou assistir os vídeos

klarc28, pode até ser, mas funciona independente disso.

sub teste ( ) dim dt as date dt = cdate(sheets("Consulta").range("B5").value)'Não sei qual é a data da pesquisa, B5 é ...

No seu arquivo existe uma macro (Macro1_consulta_mensal) que estabelece o critério de busca como "jul/13", eu imagino que você vá fazer busc...

Vídeos relacionados: https://www.youtube.com/results?search_query=vba+busca https://www.youtube.com/results?search_quer...