Excel Macro para Nome de CPF ou CNPJ

[Luan Valle]

Boa tarde Amigos!

 

Tenho uma planilha de lançamentos que utiliza macros, inclusive pedi algumas ajudas por aqui e hoje está quase completa.

 

Em uma das colunas, o cliente insere o CNPJ e depois a razão social da empresa. Porém, recentemente vi um vídeo no youtube de uma pessoa que criou um código que não foi disponibilizado, em que se digita o CNPJ ou CPF na Coluna A e na Coluna B aparecia de forma automática o nome da empresa ou pessoa. Na coluna B era um código que dependia do valor em A para aparecer o nome.

 

Queria ajuda de vocês para conseguir um código que faça exatamente o descrito acima. Desde já, agradeço a colaboração de todos.

[Patropi]

@Luan Valle

 

Neste caso não precisa VBA é só usr a função PROCV que é nativa do Excel.

Veja exemplo no arquivo anexado.

 

Não se esqueça de clicar em Curtir.

 

[]s

 

01_10_19_PROCV_Patropi.xlsx

[Luan Valle]

@Patropi Eu entendi, mas nesse caso o cliente só pode usar os CNPJ's ou CPF's que ele previamente deve cadastrar.

 

O vídeo que vi é este. Foi feita uma função "=nome(A1)". (Exemplo).

 

 

[Patropi]

@Luan Valle

 

Pelo que observei o código VBA foi feito por ele, portanto ele tem direitos autorais.

Entre em contato para ver se ele não vende.

 

[]s

[Luan Valle]

@Patropi Até aqui eu consegui da seguinte maneira:

 

Na coluna A é inserido o CNPJ. Na coluna B, a seguinte fórmula:

="http://receitaws.com.br/v1/cnpj/"&A1, onde A1 é o CNPJ.

 

Na coluna C, a seguinte fórmula:

=SERVIÇOWEB(B1) para receber os dados da empresa. Como quero apenas o nome da empresa, usei o próximo código na coluna

 

=EXT.TEXTO(C1;LOCALIZAR("nome";C1;1)+8;LOCALIZAR("uf";C1;1)-7 - LOCALIZAR("nome";C1;1)-7) 

 

Show, consegui extrair o nome da empresa. O porém é que preciso de uma macro baseada nesse código para que em cada lançamento do CNPJ na coluna B, já aparecesse automático o nome da empresa na coluna C. A minha planilha de lançamentos contábeis tem 600 linhas de disposição do cliente em cada mês. Se fosse usar a função PROCV seriam 7200 linhas no total.

 

 

 

 

[Visitante]

4 horas atrás, Luan Valle disse:

 

Na coluna A é inserido o CNPJ.

 ... em cada lançamento do CNPJ na coluna B, ...

A ou B ?

 

Show, consegui extrair o nome da empresa

 ... já aparecesse automático o nome da empresa na coluna C.

Se você estender as fórmulas para baixo, a cada CNPJ inserido a fórmula já não mostrará o nome da empresa ?

 

A minha planilha de lançamentos contábeis tem 600 linhas de disposição do cliente em cada mês. Se fosse usar a função PROCV seriam 7200 linhas no total.

Não entendi essa parte também. Qual a missão do PROCV() ?

 

 

[Luan Valle]

@osvaldomp Cliente insere CNPJ na coluna A e aparece a razão social na coluna B.

Se eu estender as fórmulas para baixo não adianta, é preciso de pelo menos 4 colunas e na planilha só tem espaço para duas.

 

Coluna A - CNPJ

Coluna B - Razão Social (Fórmula Final com Referência da Coluna D)

Coluna C - Link da Receita + CNPJ da Coluna A

Coluna D - =SERVIÇOWEB(Link da Receita da Coluna C)

 

Me disseram que precisaria do PROCV(), acho que para o cliente cadastrar as empresas. Porém ficaria algo muito chato e trabalhoso.

adicionado 0 minutos depois

Na imagem que mandei só não está na ordem que disse acima.

[Visitante]

Utilizando 2 colunas: cole uma cópia da fórmula abaixo em B1 e arraste; insira o CNPJ na coluna A.
 

=EXT.TEXTO(SERVIÇOWEB("http://receitaws.com.br/v1/cnpj/"&A1);LOCALIZAR("nome";SERVIÇOWEB("http://receitaws.com.br/v1/cnpj/"&A1);1)+8;LOCALIZAR("uf";SERVIÇOWEB("http://receitaws.com.br/v1/cnpj/"&A1);1)-7 - LOCALIZAR("nome";SERVIÇOWEB("http://receitaws.com.br/v1/cnpj/"&A1);1)-7)

Não consigo testar a fórmula acima pois a função SERVIÇOWEB() só foi introduzida a partir da versão 2013.

[Luan Valle]

Boaa! Deu certo. O porém é que funcionou apenas com o CNPJ informado do meu escritório. As outras dezenas de CNPJ que testei só aparece #VALOR. 

 

A internet foi verificada em todos os testes.

[Visitante]

Como comentei antes, eu não consigo testar aqui, então:

 

1. se você colou a fórmula que passei em B1 e arrastou para baixo, então cole aqui no fórum  as fórmulas que estão em B2 e em B3

2. selecione uma das células em que a fórmula está retornando #VALOR e no menu Fórmulas / Avaliar Fórmula / vá clicando em Avaliar até descobrir qual parte da fórmula está gerando o erro, depois nos informe

3. vamos pedir ao Mestre @Patropi a gentileza de testar pois me parece que ele tem a versão 2016

[Patropi]

@osvaldomp

 

Em que planilha eu vou testar, pois ele não anexou nenhum arquivo.

Testei na planilha que eu postei e deu erro #VALOR. 

 

[]s

[Basole]

Aqui pra mim funcionou perfeitamente @osvaldomp 

Apenas este cnpj '01680935000129 que a formula retornou outros dados alem da razão social. Ou seja não saiu com a formatacão desejada. Mas acredito que é por causa da pontuacao contida no nome da empresa.

 

Mas são varios os motivo para retornar o erro #VALOR @Patropi.

Por exemplo o cnpj nào pode ter pontuacão como: ponto, barra ou traco. Tem que inserir como texto, ou com aspas simples antes do numero.

Outro motivo que pode retornar o erro e que a consulta gratuita tem limites, veja o quadro abaixo do site: http://receitaws.com.br