Formulário de Cadastro de Clientes Excel VBA

Neste artigo você aprenderá como criar um formulário de cadastro de clientes Excel VBA passo-a-passo com download gratuito da planilha.

Cadastro de Clientes Excel VBA

A planilha possui um cadastro de clientes em formato de tabela que é alimentado automaticamente pelo formulário de cadastro.

Nele temos os seguintes campos:

Código: Código sequencial automático do cadastro de clientes.
Nome: Nome do cliente no cadastro.
CEP: Número do CEP no endereço.
Tipo: Logradouro do endereço.
Logradouro: Nome do logradouro.
Número: Número do endereço.
Bairro: Bairro do logradouro.
Cidade: Cidade do endereço.
UF: Estado.

Formulário de Cadastro Excel VBA

O formulário de cadastro Excel VBA possui o seguinte formato, aonde temos os campos em verde que são preenchidos automaticamente e os campos em branco devem ser preenchidos manualmente.

Ao preencher o campo de CEP a planilha automaticamente consulta o endereço usando uma API online e retorna os campos de Tipo de logradouro, Endereço, Bairro, Cidade e UF.

Ao clicar no botão Inserir, os dados são inseridos automaticamente na tabela de cadastro de clientes.

Consulta de Endereço

Na planilha de consulta de endereço temos uma tabela que é preenchida automaticamente pela consulta de CEP com XML.

A consulta é realizada à partir deste endereço: http://cep.republicavirtual.com.br/web_cep.php?cep=78716335&formato=xml

Na sessão seguinte iremos ver como realizar a consulta do endereço com XML.

Consulta CEP Automática no Excel com XML

Para realizar a consulta de XML, primeiro habilite a guia Desenvolvedor e depois clique na guia Desenvolvedor e no botão Código-fonte.

Em seguida clique em Adicionar e coloque o endereço da consulta do XML: http://cep.republicavirtual.com.br/web_cep.php?cep=78716335&formato=xml

Na tela seguinte veja a barra de consulta do Código-fonte XML e para cada um dos campos clique sobre ele e em adicionar ao lado dos campos que serão consultados.

Código VBA do Formulário de Cadastro de Clientes

Clique na guia Desenvolvedor e no botão Visual Basic, nele adicionamos o código seguinte para realizar a mudança do CEP e dos campos de XML relacionados a consulta de CEP:

Sub lsAtualizarXML(ByVal lcep As String)
    ActiveWorkbook.XmlMaps("webservicecep_Mapa").Import Url:= _
        "http://cep.republicavirtual.com.br/web_cep.php?cep=" & lcep & "&formato=xml"
End Sub

E abaixo temos o código VBA para inserir dados do formulário para a tabela de clientes.

Public Sub lsInserirDados()
    Dim lRow As Long
    
    'Próxima linha
    lRow = Banco.Cells(Rows.Count, 2).End(xlUp).Row + 1
    
    'Inserir os dados no cadastro
    Banco.Cells(lRow, 3).Value = UCase(Formulario.Range("H11").Value)
    Banco.Cells(lRow, 4).Value = UCase(Formulario.Range("H13").Value)
    Banco.Cells(lRow, 5).Value = UCase(Formulario.Range("H15").Value)
    Banco.Cells(lRow, 6).Value = UCase(Formulario.Range("J15").Value)
    Banco.Cells(lRow, 7).Value = UCase(Formulario.Range("S15").Value)
    Banco.Cells(lRow, 8).Value = UCase(Formulario.Range("H17").Value)
    Banco.Cells(lRow, 9).Value = UCase(Formulario.Range("H19").Value)
    Banco.Cells(lRow, 10).Value = UCase(Formulario.Range("S19").Value)
    
    'Limpar o cadastro
    Formulario.Range("H11").Value = ""
    Formulario.Range("H13").Value = ""
    Formulario.Range("S15").Value = ""
    
    'Mensagem de cadastro concluído
    MsgBox "Cliente cadastrado!"
    
End Sub

Com isso temos o código criado como temos abaixo.