Marcos Coutinho e klarc28 muito obrigado pela atenção Consegui resolver O codigo estava assim If CDate(Planilha3.Cells(lin, 2)) >= CDate(txtd...

O que não deu certo foi que os valores não estão aparecendo na planilha relatorio

Mauro Coutinho exatamente isso Muito obrigado! Qualquer problema te chamo!

O seu código esta realizando a pesquisa na "base_cadastro" correto? Ou seja, ele só ira pesquisar nas que eu já tenho cadastrada No meu cas...

Posta a planilha com o exemplo que deseja Uma pergunta: qual a ação para as colunas com mais de 9 caracteres?

O código esta limitado apenas a celula ativa Cria um range para toda coluna Z exemplo Range("Z:Z")

klarc28 continua a mesma coisa!

Pelo que sei teria que ter um arquivo adicional para você conseguir editar ou um programa para criar Ribbon personalizada

Coloca uma planilha de exemplo ai para podermos ajudar você!

Pelo que vi esse menu foi criado utilizando IRibbonControl Exemplo http://www.jorgepaulino.com/2011/10/excel-dicas-de-vba-personalizar-...

Pegou pronto? Posta o código aqui!

Você criou essa barra diretamente nas Barras de ferramentas do Excel ou utilizou VBA? - Caso tenha sido diretamente no Excel, por favor verifique na ...

Posta uma imagem então referente ao que deseja