Geise,

Boa noite!

Veja se é assim.

Boa Noite

É desse jeito, mas coloquei o comando na useform inicialize para que puxe a data atual mas não funcionou

Nao sei como vc fez mas tente assim

txtdata.value =date

Geise,

Como assim? Não entendi... aqui ta funcionando normalmente. Veja na tela abaixo:

mas se você mudar a data ele continua mostrando os valores desta data.

e possível colocar um botão para fazer a busca conforme a data digitada e removendo a preenchimento automático

Geise,

Bom dia!

Entendi. Não precisa de botão. Coloquei no evento Exit da caixa de texto. Ou seja, você digita a nova data e sai do controle com TAB e o ListView é atualizado. Se você observar o evento Exit da caixa de texto verá que apenas faço uma chamada a rotina Initialize do Userform. Desse modo, se quiser com um botão, basta desenhar o botão e chamar a mesma rotina Initialize do Userform.