Conexão Excel

Nesta postagem, estou disponibilizando a função VBA, ou seja, fórmula personalizada para Excel. Segue o procedimento: 1º Pressione Alt+F11 2º Clique no Menu>Inserir>Modulo e cole o código abaixo. 3º Após isso clique na célula e digite =VALIDADOR_CNPJ(a celula que contem o cnpj) Public Function VALIDADOR_CNPJ(CNPJ As String) As String         Dim VarDigito1 As Integer     Dim VarDigito2 As Integer     Dim VarDigito3 As Integer     Dim VarDigito4 As Integer     Dim VarDigito5 As Integer     Dim VarDigito6 As Integer     Dim VarDigito7 As Integer     Dim VarDigito8 As Integer     Dim VarDigito9 As Integer     Dim VarDigito10 As Integer     Dim VarDigito11 As Integer     Dim VarDigito12 As Integer     Dim VarDigito13 As Integer     Dim VarDigito14 As Integer     Dim VarCalcDigito1 As Integer     Dim VarCalcDigito2 As Integer     Dim VarUltDig As Integer         'Função adiciona o valor 0 à esquerda se não conter 14 dígitos.     If Len(CNPJ) < 14

Nesta postagem estou disponibilizando o código da Função VBA, ou seja, Fórmula personalizada para validação do dígito verificador de CPF. Pressione Alt+F11 Menu>Inserir>Módulo Cole o Código Abaixo: Public Function VALIDADOR_CPF(CPF As String) As String         'Declaração de Variáveis dos Dígitos do CPF     Dim VarDigito1 As Integer     Dim VarDigito2 As Integer     Dim VarDigito3 As Integer     Dim VarDigito4 As Integer     Dim VarDigito5 As Integer     Dim VarDigito6 As Integer     Dim VarDigito7 As Integer     Dim VarDigito8 As Integer     Dim VarDigito9 As Integer     Dim VarDigito10 As Integer     Dim VarDigito11 As Integer         'Variáveis de Cálculo do Dígito     Dim Soma1 As Integer     Dim Soma2 As Integer     Dim Resto As Integer     Dim Resto1 As Integer     Dim Resto2 As Integer     Dim Digito1 As Integer     Dim Digito2 As Integer         If Not (IsNull(CPF)) Then             VarDigito1 = Val(Mid$(CPF, 1, 1))         Var

O objetivo desta postagem é mostrar como é feito o Procv em VBA, utilizando as mesmas funcionalidades da formula, porém a busca é feita automaticamente, ao clicar no botão Procv. Segue os Passo a Serem seguidos: 1º Crie duas Planilhas, com os seguintes Nomes: Procv e a outra Banco_Dados . Preencha as duas planilhas conforme a imagem abaixo. 2º Crie um Botão Para a Pesquisa 3º Pressione Alt+F11 4º Clique no Menu > Inserir>Módulo 5º Cole o Código Abaixo Sub ProcV() Dim Plan1 As Object Dim Plan2 As Object Dim QtdDadosPlan1 As Integer Dim QtdDadosPlan2 As Integer Dim LinhaPlan2 As Integer Dim Linha As Integer 'Seleciona a Planilha Procv Sheets("Procv").Select 'Define as Sheets Set Plan1 = Sheets("Procv")             'Variável "Plan1" recebe o objeto planilha("Procv") Set Plan2 = Sheets("Banco_Dados")       'Variável "Plan2" recebe o objeto planilha("Banco_Dados") 

Este código impede o usuário a digitar valores duplicados. Portanto para que funcione é necessário utilizar os seguintes passos. 1º - Abra o Excel e Pressione Alt+F11 2º Duplo Click na planilha desejada. 3º Cole o Código Abaixo: """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&quo

Este código conta a quantidade de células que contém dados, ou seja, no exemplo abaixo, o código conta a quantidade de células da coluna A. Alt+F11 Inserir>Módulo Cole o código: Sub ContaCelulasPreechidas()         'Criar Variável para Receber a Quantidade de Células Utilizadas     Dim Contador As Integer         'Variável Recebe o Número de Células Preenchidas     Contador = Application.CountA(Range("A:A"))         'Exibe a Mensagem Informando a Quantidade de Células Preenchidas     MsgBox "O Números de Células Preenchidas na seleção :  " _          & Contador, vbInformation, "Conexão Excel"             End Sub