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

Public Function SOMACOR(cellcolor As Range, sumrange As Range)     'Declaração de variáveis     Dim VarCelula As Range     Dim VarColuna As Integer     Dim VarTotal As Variant         VarColuna = cellcolor.Interior.ColorIndex     'Obtém a cor de destino     For Each VarCelula In sumrange        'verifica cada célula no intervalo designado         'Se a cor da célula correponder à cor alvo     If VarCelula.Interior.ColorIndex = VarColuna Then             'Adiciona o valo da célula ao total         VarTotal = WorksheetFunction.Sum(VarCelula) + VarTotal         End If         Next VarCelula         SOMACOR = VarTotal       End Function

Sub DesprotegerPlanilhaAtiva() Dim i, i1, i2, i3, i4, i5, i6 As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For m = 65 To 66 For i1 = 65 To 66 For i2 = 65 To 66 For i3 = 65 To 66 For i4 = 65 To 66 For i5 = 65 To 66 For i6 = 65 To 66 For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "Planilha desprotegida com sucesso!!!" Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub

Option Explicit Sub Delete_Linhas_Branco()     Dim Contador As Variant     Dim i As Integer         ' Input box Determina o total de linhas de processo         Contador = InputBox("Digite o número total de linhas de processo")     ActiveCell.Select         Sheets(1).Select                                'Verificar a Posição da Planilha     Range("B14").Select                             'Troque a referencia de onde irá começar a verificação dos dados                 ' Loops através do número desejado de linhas     For i = 1 To Contador                 ' Verifica se a célula ativa está em branco.         If ActiveCell = Empty Then             Selection.EntireRow.Delete         ' Diminui a contagem cada vez que uma linha for excluída. Isto assegura que a macro não será executado após a última linha             Counter = Contador - 1         Else                 ' Seleciona a próxima célula