Reinaldo mil desculpas pela demora O código que me explicou funcionou perfeitamente! Mais uma duvida rs Tenho esse projeto https://drive....

klarc28 Desculpa a demora em responder mas estava meio sem tempo Muito obrigado pela ajuda e pode deixar que irei buscar conhecimento nos pontos que...

klarc28 realmente existia um codigo false após a instrucao que eu estava verificando Pelo que entendi na dica dos procedimentos seria algo assim su...

Boa tarde Funcionou com o acrescimo que voce fez do goto fim.......fim: Muito obrigado! Ultima pergunta: qual o comando que você utiliza para limpar...

klarc28 o código do botão esta assim Private Sub cmdpesquisar_Click() With Worksheets("base").Range("A:A") 'Set c = &#...

Boa tarde klarc28 coloquei o seu código e mesmo assim ele esta deixando as opções habilitadas após aparecer a msgbox

Seria isso mesmo, porem teria como fazer sem ser VBA?

wagner segue em anexo uma imagem explicando

wagner Com o seu código consegui realizar o teste com outro arquivo e outro BD conforme arquivo em anexo, porem quando apago somente o código ele dá u...