Charlie, vc já deu uma olhada no exemplo do topico http://planilhando.com.br/forum/viewtopic.php?f=16&t=4941, lá tem e funciona o uso do calendario

Reinaldo... vi o tópico, já havia visto antes, porém, não atende o que preciso.

Não atende em que? No seu exemplo a "função" para obter a data não está funcionando, lá está ; depois de conseguir "pegar" a data, pode passar para o item seguinte; ou não?

Reinaldo...

Dei uma olhada no código e consegui algum avanço. Talvez agora seja mais fácil de me ajudar.
Bom, consegui fazer com que a busca seja feita informando a data ao selecioná-la no calendário e mantive a procura através da caixa "Digite aqui o que deseja pesquisar", acontece que, quando pesquiso pela data, ainda continua aparecendo a mensagem "Digite um valor para pesquisa". Acho que isso é pq o valor não foi informado no campo "Digite aqui o que deseja pesquisar".
Ainda continuo fuçando... caso consiga me ajudar, será muito bem vindo. Estou enviando o anexo para ver a evolução.

Não atende em que? No seu exemplo a "função" para obter a data não está funcionando, lá está ; depois de conseguir "pegar" a data, pode passar para o item seguinte; ou não?

então Reinaldo... li meu post inicial novamente e pode ter ocorrido uma falha no que quis dizer (esse tipo de comunicação através de chat e etc, pode ocasionar interpretações diferentes). Estava conseguindo abrir o calendário, o que não estava conseguindo era fazer a busca. Mas enfim, dei uma fuçada no código e resolvi em partes. Na minha penúltima postagem, informo o que está falatando agora.

Ao clicar no botão "procurar", do Form "Valduarte" (creio que e esse o de busca) e disparado o codigo abaixo.
Porem a rotina verifica se txt_Procurar.text é tem ou não valor e executa ou mensagem ou procura. Para a data TextBox8, a mesma coisa.

Então vc precisa definir se: Irá procurar somente por texto, somente por data ou pelos dois (não vi como é a procura personalizada e se permite as duas situações);

Private Sub btn_Procurar_Click()
    If txt_Procurar.Text = "" Then
        MsgBox "Digite um valor para a pesquisa.", vbExclamation, "Pesquisa"
    Else
        sCriterioDaBusca = txt_Procurar.Text
                Call ProcuraPersonalizada(sCriterioDaBusca, Buscar_Por.Text)
    End If
        If TextBox8.Text = "" Then
        MsgBox "Digite um valor para a pesquisa.", vbExclamation, "Pesquisa"
    Else
        sCriterioDaBusca = TextBox8.Text
                Call ProcuraPersonalizada(sCriterioDaBusca, Buscar_Por.Text)
    End If
End Sub

Uma possibilidade:

Private Sub btn_Procurar_Click()

    If txt_Procurar.Text = "" and TextBox8.Text="" Then
        MsgBox "Digite um valor para a pesquisa.", vbExclamation, "Pesquisa"
    Elseif txt_Procurar.Text <> "" and TextBox8.Text="" then
        sCriterioDaBusca = txt_Procurar.Text
                Call ProcuraPersonalizada(sCriterioDaBusca, Buscar_Por.Text)
    else
           sCriterioDaBusca = TextBox8.Text
                Call ProcuraPersonalizada(sCriterioDaBusca, Buscar_Por.Text)
End If
End Sub

Obs.:è preciso atentar que procura com data não funciona como uma string,

Caro Reinaldo... funfou de buenas... vlws brow.
Em relação às 3 fórmulas que estão faltando, vc acredita que possa me ajudar?

ihh Reinaldo... fazendo testes aqui vi que não deu certo: Quando salvo algum novo cadsatro pela data, por exemplo: 01/08/2012 ele salva 08/01/2012, daí quando mando pesquisar pela data, ele não encontra nenhum valor, tanto pesquisando pela data que informei na hora de salvar quanto a data que foi salva.

Experimente ao salvar:
de: .Cells(sLinha, 8).Value = TextBox8.Text

Para:.Cells(sLinha, 8).Value = Format(TextBox8.Text, "m/d/yyyy")
Ao Buscar:
altere de: sCriterioDaBusca = TextBox8.Text

Para: sCriterioDaBusca = Format(TextBox8.Text, "m/d/yyyy")

nova versão... preciso das 3 fórmulas do anexo para finalizar a planilha.

Continuo sem entender?

eita... aí danou. Preciso apenas das fórmulas que estão com um "NÃO" na frente e logo após esse NÃO a descrição do que preciso.

Talvez para vc esteja claro o que deseja, porem para mim não;
Então vamos por parte:
em H14 da plan "busca" vc pos: "NÃO - BUSCAR E INFORMAR QUAL FOI A ÚLTIMA CATEGORIA QUE TEVE ITEM CADASTRADO"
O que espera obter e aonde é o retorno?

Ok... vamor por partes. De qualquer forma, agradeço a intenção em ajudar.

* Na célula E14 quero informar qual foi a última categoria (B13:B25) que teve um item cadastrado. Ex.: Se meu último item cadastrado foi na categoria EPC, quero que esta categoria seja informada na célula E14

* Na célula E20 eu seleciono as categorias (aqui está ok)

* Na célula E22 quero que ao informar a categoria na célula E20 todos os itens desta categoria sejam listados

* Por último, na célula E24 quero que o estoque atual do item escolhido na célula E22 seja apresentado.