Pesquisa Personalizada Simples 3 – Parte Final

Caros leitores, chego hoje ao capítulo final desta trilogia (risos).
Bem, para aqueles que ainda não leram os artigos anteriores, sintam-se a vontade. Acessem pelos links abaixo:
Parte 1 – Pesquisa Personalizada Simples
Parte 2 – Pesquisa Personalizada Simples – A Missão
Para concluir esta série de artigos sobre busca personalizada através de macro, vamos incrementar o código já disponibilizado com as funcionalidades de Adição de dados, Alteração de dados e Exclusão de dados. Esta tem sido uma grande solicitação dos leitores que atenderei com prazer.
Na verdade, o código inicial de pesquisa, que nada mais é que uma recuperação de dados. Ou seja, esta ação em um banco de dados chamamos de “seleção de dados”. E agora vamos incluir as ações de inserção, edição e exclusão de dados. Com isso, podemos resumir que estamos criando um simples controle de banco de dados.
É claro que, não chega nem perto de um gererenciador de banco de dados, mas, quebra o galho para pequenos projetos.
Aproveito a oportunidade para dizer que todos os códigos que disponibilizamos no site são, principalmente para fins educativos, ou seja, os exemplos dados aqui, são apenas exemplos para um maior e melhor entendimento dos leitores, que poderão adaptar o conhecimento adquirido aqui, em seus projetos.
Mas, vamos ao que interessa. Começemos a desenvolver.

Sugiro que baixem o arquivo de exemplo no link no final deste artigo, para que possam acompanhar com mais facilidade o assunto.
Eu indico um ótimo livro que aborda sobre este tema de maneira mais abrangente, inclusive, ensinando como criar um Sistema de Controle de Vendas de uma concessionária fictícia. O livro, Macros para Excel na Prática, pode ser encontrado clicando aqui.
No seu arquivo deve conter pelo menos uma planilha contendo os dados em formato de tabela de dados, ou seja, na primeira linha o cabeçalho das colunas, e nas linhas subsequentes as informações de registros. Apenas isso nesta planilha.
Deve conter também o formulário que será utilizado para a pesquisa e as alterações dos cadastros. (ver arquivo fonte)
A função de pesquisa está mantida como nos exemplos dos artigos anteriores. Foi adicionado um botão para cadastrar novos registros. Os novos registros serão adicionados na primeira linha livre após a última linha de dados já gravados na planilha base de dados.
A função de Alteração de dados, irá, com base no registro que retornou de uma pesquisa feita, efetuar a modificação inserida pelo usuário.
A função de exclusão irá eliminar a linha de registro do cadastro exibido na tela no momento da solicitação pelo usuário ao clicar no botão Excluir.
Funciona como uma tela de cadastro de qualquer programa de cadastros.
Abaixo disponibilizo o código do projeto.
 
Código do Formulário de Busca (frmBusca):

Public MatrizResultadosLinha As Variant
Public MatrizResultadosPlanilha As Variant
Public Total_Ocorrencias As Long
Public sCriterioDaBusca As String
Public sAcaoRequerida As String
Private Sub btn_Adicionar_Click()
    'Definir a ação do comando
    sAcaoRequerida = "Adicionar"
    'Habilitar Botões Salvar/Cancelar
    Call HabilitarControlesParaEdicao(True)
End Sub
Private Sub btn_Cancelar_Click()
    'Definir a ação do comando
    sAcaoRequerida = ""
    'Habilitar Botões Salvar/Cancelar
    Call HabilitarControlesParaEdicao(False)
    'Recarrega os controles com os valores ativos na memória
    Call SpinButton1_Change
    txt_Procurar.Text = sCriterioDaBusca
End Sub
Private Sub btn_Editar_Click()
    'Definir a ação do comando
    sAcaoRequerida = "Editar"
    'Habilitar Botões Salvar/Cancelar
    Call HabilitarControlesParaEdicao(True)
End Sub
Private Sub btn_Excluir_Click()
Dim sLinha As Long
Dim iPlanilha As Integer
    If MsgBox("Tem certeza que deseja eliminar este cadastro do sistema?", vbDefaultButton2 + vbQuestion + vbYesNo, Me.Caption) = vbYes Then
        sLinha = MatrizResultadosLinha(SpinButton1.Value)
        iPlanilha = MatrizResultadosPlanilha(SpinButton1.Value)
        'Exclui a linha do registro
        Sheets(iPlanilha).Rows(sLinha).Delete
        'Salva o arquivo
        ThisWorkbook.Save
        'Recarrega os registros para o formulário
        txt_Procurar.Text = sCriterioDaBusca
        Call ProcuraPersonalizada(sCriterioDaBusca, ComboBox1.Text)
    End If
End Sub
Private Sub btn_Procurar_Click()
    If txt_Procurar.Text = "" Then
        MsgBox "Digite um valor para a pesquisa"
    Else
        sCriterioDaBusca = txt_Procurar.Text
        Call ProcuraPersonalizada(sCriterioDaBusca, ComboBox1.Text)
    End If
End Sub
Private Sub btn_Salvar_Click()
Dim sLinha As Long
Dim iPlanilha As Integer
    'Realiza a ação apropriada
    Select Case sAcaoRequerida
        Case "Adicionar"
            With Sheets(Combo_OndeSalvar.Text)
                sLinha = .Range("A1").SpecialCells(xlLastCell).Row + 1  'Pega a próxima linha vazia para cadastrar novo
                'Grava os novos valores informados no formulário para a planilha base de dados
                .Cells(sLinha, 1).Value = TextBox1.Text
                .Cells(sLinha, 2).Value = TextBox2.Text
                .Cells(sLinha, 3).Value = TextBox3.Text
                .Cells(sLinha, 4).Value = TextBox4.Text
           End With
        Case "Editar"
            sLinha = MatrizResultadosLinha(SpinButton1.Value)
            iPlanilha = MatrizResultadosPlanilha(SpinButton1.Value)
            With Sheets(iPlanilha)
                'Atualiza os dados na linha de registro específica
                .Cells(sLinha, 1).Value = TextBox1.Text
                .Cells(sLinha, 2).Value = TextBox2.Text
                .Cells(sLinha, 3).Value = TextBox3.Text
                .Cells(sLinha, 4).Value = TextBox4.Text
           End With
        Case Else
            Exit Sub
    End Select
    'Definir a ação do comando
    sAcaoRequerida = ""
    'Habilitar Botões Salvar/Cancelar
    Call HabilitarControlesParaEdicao(False)
    'Recarrega os valores da pesquisa para exibir no formulário
    If sCriterioDaBusca <> "" Then
        txt_Procurar.Text = sCriterioDaBusca
        Call ProcuraPersonalizada(sCriterioDaBusca, ComboBox1.Text)
    End If
    'Salva o arquivo
    ThisWorkbook.Save
End Sub
Private Sub SpinButton1_Change()
Dim sLinha As Long
Dim iPlanilha As Integer
Dim TotalOcorrencias As Long
    If IsArray(MatrizResultadosLinha) Then  'Verifica se há informações de busca na matriz de resultados
                                            'Se houver dados retornados da busca, então carrega no formulário
        TotalOcorrencias = SpinButton1.Max + 1
        sLinha = MatrizResultadosLinha(SpinButton1.Value)
        iPlanilha = MatrizResultadosPlanilha(SpinButton1.Value)
        Label_Registros_Contador.Caption = SpinButton1.Value + 1 & " de " & TotalOcorrencias
        With Sheets(iPlanilha)
            Label_PlanBase.Caption = "Em " & .Name
            TextBox1.Text = .Cells(sLinha, 1).Value
            TextBox2.Text = .Cells(sLinha, 2).Value
            TextBox3.Text = .Cells(sLinha, 3).Value
            TextBox4.Text = .Cells(sLinha, 4).Value
        End With
    End If
End Sub
Private Sub ProcuraPersonalizada(ByVal TermoPesquisado As String, ByVal sPesquisarNoCampo As String)
Dim Busca As Range
Dim Primeira_Ocorrencia As String
Dim ResultadosLinha As String
Dim ResultadosPlanilha As String
Dim sSearchInCol As String
Dim arrPesquisarNasPlanilhas As Variant
Dim i As Integer
    'Define a Coluna onde a informação será pesquisada
    sSearchInCol = ConfigColunas(sPesquisarNoCampo)
    'Define as Planilhas onde a informação será pesquisada
    arrPesquisarNasPlanilhas = ConfigPlanilhasBase
    'Inicializa os resultados
    ResultadosLinha = ""
    ResultadosPlanilha = ""
    MatrizResultadosLinha = ""
    MatrizResultadosPlanilha = ""
    'Executa a busca
    For i = 0 To UBound(arrPesquisarNasPlanilhas)
        With Sheets(arrPesquisarNasPlanilhas(i))
            If sSearchInCol = "" Then
                Set Busca = .Cells.Find(What:=TermoPesquisado, After:=.Range("A1"), LookIn:=xlFormulas, _
                    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
            Else
                Set Busca = .Range(sSearchInCol & ":" & sSearchInCol).Find( _
                    What:=TermoPesquisado, _
                    After:=.Range(sSearchInCol & "1"), _
                    LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
            End If
            'Caso tenha encontrado alguma ocorrência...
            If Not Busca Is Nothing Then
                Primeira_Ocorrencia = Busca.Address
                ResultadosLinha = ResultadosLinha & IIf((Len(ResultadosLinha) > 0), ";", "") & Busca.Row 'Lista o primeiro resultado na variavel - linha da ocorrência
                ResultadosPlanilha = ResultadosPlanilha & IIf((Len(ResultadosPlanilha) > 0), ";", "") & .Index 'Lista o primeiro resultado na variavel - planilha da ocorrência
                'Neste loop, pesquisa todas as próximas ocorrências para
                'o termo pesquisado
                Do
                    If sSearchInCol = "" Then
                        Set Busca = .Cells.FindNext(After:=Busca)
                    Else
                        Set Busca = .Range(sSearchInCol & ":" & sSearchInCol).FindNext(After:=Busca)
                    End If
                    'Condicional para não listar o primeiro resultado
                    'pois já foi listado acima
                    If Not Busca.Address Like Primeira_Ocorrencia Then
                        ResultadosLinha = ResultadosLinha & ";" & Busca.Row
                        ResultadosPlanilha = ResultadosPlanilha & ";" & .Index
                    End If
                Loop Until Busca.Address Like Primeira_Ocorrencia
            End If
        End With
    Next i
    If Len(ResultadosLinha) > 0 Then    'Se foram encontrados resultados
        MatrizResultadosLinha = Split(ResultadosLinha, ";")
        MatrizResultadosPlanilha = Split(ResultadosPlanilha, ";")
        'Atualiza dados iniciais no formulário
        SpinButton1.Max = UBound(MatrizResultadosLinha)  'Valor maximo do seletor de registros
        'habilita o seletor de registro
        SpinButton1.Enabled = True
        'indicador do seletor de registros
        Label_Registros_Contador.Caption = "1 de " & UBound(MatrizResultadosLinha) + 1
        'Box com o conteudo encontrado
        With Sheets(CInt(MatrizResultadosPlanilha(0)))
            Label_PlanBase.Caption = "Em " & .Name
            TextBox1.Text = .Cells(MatrizResultadosLinha(0), 1).Value
            TextBox2.Text = .Cells(MatrizResultadosLinha(0), 2).Value
            TextBox3.Text = .Cells(MatrizResultadosLinha(0), 3).Value
            TextBox4.Text = .Cells(MatrizResultadosLinha(0), 4).Value
        End With
        btn_Editar.Enabled = True
        btn_Excluir.Enabled = True
    Else    'Caso nada tenha sido encontrado, exibe mensagem informativa
        SpinButton1.Enabled = False     'desabilita o seletor de registros
        btn_Editar.Enabled = False
        btn_Excluir.Enabled = False
        Label_Registros_Contador.Caption = ""   'zera os resultados encontrados
        Label_PlanBase.Caption = ""
        'limpa os campos do formulário
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        MsgBox "Nenhum resultado para '" & TermoPesquisado & "' foi encontrado."
    End If
End Sub
Private Sub UserForm_Initialize()
    SpinButton1.Enabled = False
    btn_Editar.Enabled = False
    btn_Excluir.Enabled = False
    Combo_OndeSalvar.Visible = False
    Label_OndeSalvar.Visible = False
    Label_Registros_Contador.Caption = ""
    Call ConfigurarListaDeCampos
End Sub
Sub ConfigurarListaDeCampos()
Dim arrPesquisarNasPlanilhas As Variant
Dim i As Integer
    With ComboBox1
        .Style = fmStyleDropDownList
        .AddItem "Tudo"     '<--- Esta é utilizada para definir quando pesquisar em toda a planilha
        .AddItem "Nome"
        .AddItem "Estado"
        .AddItem "Função"
        .AddItem "Status"
        .ListIndex = 0
    End With
    With Combo_OndeSalvar
        'Recupera as Planilhas que são base de dados
        arrPesquisarNasPlanilhas = ConfigPlanilhasBase
        .Style = fmStyleDropDownList
        For i = 0 To UBound(arrPesquisarNasPlanilhas)
            .AddItem arrPesquisarNasPlanilhas(i)
        Next i
        .ListIndex = 0
    End With
End Sub
Function ConfigColunas(ByVal sNomeCampo As String) As String
    Select Case sNomeCampo
        Case "Nome"
            ConfigColunas = "A"
        Case "Estado"
            ConfigColunas = "B"
        Case "Função"
            ConfigColunas = "C"
        Case "Status"
            ConfigColunas = "D"
        Case Else           '<--- Esta é utilizada para definir quando pesquisar em toda a planilha
            ConfigColunas = ""
    End Select
End Function
Function ConfigPlanilhasBase() As Variant
Dim sNomeDasPlanilhas As String
    'Digite o nome das Planilhasonde os dados deverão ser procurados,
    'separados por ponto-e-vírgula (;)
    '
    sNomeDasPlanilhas = "Plan1;PlanBase2"   '<----- Informe as planilhas aqui
    Do While (Right(sNomeDasPlanilhas, 1) = ";")
        sNomeDasPlanilhas = Left(sNomeDasPlanilhas, Len(sNomeDasPlanilhas) - 1)
    Loop
    ConfigPlanilhasBase = Split(sNomeDasPlanilhas, ";")
End Function
Sub HabilitarControlesParaEdicao(ByVal bOpcao As Boolean)
    'Habilitar Botões Salvar/Cancelar
    btn_Salvar.Visible = bOpcao
    btn_Cancelar.Visible = bOpcao
    btn_Adicionar.Visible = Not (bOpcao)
    btn_Editar.Visible = Not (bOpcao)
    btn_Excluir.Visible = Not (bOpcao)
    btn_Procurar.Enabled = Not (bOpcao)
    txt_Procurar.Enabled = Not (bOpcao)
    ComboBox1.Enabled = Not (bOpcao)
    txt_Procurar.Value = ""
    Label_Registros_Contador.Caption = ""
    Label_PlanBase.Caption = ""
    If bOpcao = False And IsArray(MatrizResultadosLinha) Then
        SpinButton1.Enabled = True
    Else
        SpinButton1.Enabled = False
    End If
    'Liberar Campos para Edição.
    TextBox1.Locked = Not (bOpcao)
    TextBox2.Locked = Not (bOpcao)
    TextBox3.Locked = Not (bOpcao)
    TextBox4.Locked = Not (bOpcao)
    'Limpar o conteúdo dos campos
    If sAcaoRequerida <> "Editar" Then
        TextBox1.Value = ""
        TextBox2.Value = ""
        TextBox3.Value = ""
        TextBox4.Value = ""
        Combo_OndeSalvar.Visible = bOpcao
        Label_OndeSalvar.Visible = bOpcao
    End If
    If bOpcao = True Then
        TextBox1.SetFocus
    End If
End Sub

Um abraço a todos.