VBA - CÁLCULO DO DÍGITO VERIFICADOR DO CNPJ

Objetivo:

Validar um CNPJ que tenha sido digitado em uma célula.


Versão que esta sendo usada para este aprendizado:

Excel 2007 - Com a colaboração de Matheus nery.matheus@gmail.com


Nota

Esta rotina também poderá ser utilizada pela versão do Excel 2003


Exemplo:

Passo 1:

Clique abaixo no botão Copiar texto.

Na planilha, clique com o botão direito do mouse onde esta escrito Plan1 e escolha a opção Exibir Código conforme figura abaixo

Após clicar em Exibir Código, vamos obter a seguinte tela.

Clique no segundo botão e insira um módulo.

Note que esta selecionado Módulo1 e o seu cursor esta na linha logo abaixo a palavra (Geral)

Neste ponto, dê um CTRL+V (Control V) para colar o texto copiado

Clique na parte superior esquerda (figura do Excel) para retornar à planilha

Na célula A1 digite 12345678901

Clique na célula B1 (local onde vamos colocar o texto alterado)

Clique em Fx

Em categoria selecione a opção Definida pelo usuário, escolha CNPJ e clique em Ok.

Em Argumentos da função digite A1 (local onde esta o nosso valor) e tecle Ok

Você irá obter o resultado conforme a figura abaixo

Para testar um CNPJ inválido digite 41234567000195


Nota: Para deixar a célula com a formatação de CNPJ, clique na célula com o botão direito do mouse e escolha a opção Formatar Células.

Na guia Número, escolha o item personalizado e digite ""00"."000"."000"/"0000-00

Salve seu arquivo com o formato de macro - extensão .xlsm


Habilitando a planilha para uso
Se na hora da execução do programa, aparecer a mensagem abaixo, clique em opções.

Em seguida em Habilitar.


Baixe este modelo
ð Clique aqui - [Formato .ZIP]

Leia mais
ð Leia também as nossas dicas

Voltar página anterior   Voltar menu funções


Faça um de nossos Cursos - clique aqui para mais detalhes

Comentários
 
 Deixe seu comentário
Nome
Email
Mensagem

Quantidade de caracteres digitados:   Limite máximo de 240 caracteres

     

 

Voltar página anterior   Voltar menu funções

 

Microsoft e o logotipo do Office são marcas registradas ou comerciais da Microsoft Corporation nos Estados Unidos e/ou em outros países