Nill2013Br, Não sei se entendi bem sua necessidade, mas todavia, deixo abaixo seu modelo editado (contendo algumas firulas extras). Abs

871518T, Bem, já que o erro persiste, creio que seja por erro no caminho informado : Workbooks.Open Filename:="C:BibliotecaImage...

paulocezar, Ok, vamos lá : Primeiramente, alterei a rotina no evento Initialize do formulário, que era: totaldelinhas = Worksheets("Bancode...

871518T, Repare que está faltando a barra inversa "" em C:Biblioteca. Experimente adicioná-la e execute novamente. Abs

TutoElizeu, Veja se a macro abaixo atende sua demanda. Sub removeNaoCadastrados() Dim nomeNavio As String Dim linhaAtual As Long Dim ult...

gfsouza86, Veja se é isso o que busca amigo. Abs

paulocezar, Veja se as alterações no seu modelo, atendem sua necessidade. Abs

paulocezar, Experimente : totaldelinhas = Worksheets("BancodeDados").Cells(Rows.Count, 1).End(xlUp).Row CAIXA_LOCALIZA...

Gabriel, Neste último modelo que disponibilizei, o CNPJ informado é pesquisado na base_fornecedores (planilha que está oculta) e os dados retornados ...

marpe, Link errado meu amigo. Abs

Gabriel, Veja se agora as modificações atendem sua necessidade. Lembrando apenas que para fazer a pesquisa, digite o CNPJ e tecle ENTER ou TAB, e ass...

Gabriel, Veja se as modificações atendem sua demanda. Abs

LustosaG, Veja se agora acertei amigo. Abs

LustosaG, Amigo, fiz os teste aqui com o produto 3651, onde o mesmo retornou Produto não cadastrado, conforme validação feita usando a coluna P da pl...

LustosaG, Editei seu modelo. Veja se me aproximei do pretendido. Abs