Planilha para Cadastro de Cliente Grátis em Excel VBA

Planilha para cadastro de cliente grátis em Excel VBA.

O que é o Cadastro?

Uma coletânea de dados, um arquivo, um banco de dados que reúne todas as informações possíveis, de seus clientes, seus fornecedores ou clientes potenciais de interesse da empresa. Com o cadastro de cliente podemos manter uma base de dados para consulta rapidamente e assim manter o cliente informado sobre as atividades da empresa.

Qual a Importância do Cadastro de Cliente?

Cadastrar as empresas fornecedoras e/ou clientes atuais e promissores se tornam, além da exigência organizacional, também uma necessidade, tendo em vista que o objetivo é sempre otimizar buscas e pesquisas, validar informações de forma rápida e eficiente. Os cadastros são tão importantes que atualmente têm departamentos especializados nas empresas, com o auxílio dos Datawarehouse e de Business Intelligence (BI).

Para que serve o Cadastro de Cliente?

Bom como já falamos sobre o que e um cadastro de cliente e qual a importância, vamos entender para que serve um cadastro de cliente. Nos dias atuais a necessidade de manter informações de cliente em base de dados e de suma importância e ajuda a manter mais organizado as informações necessárias que a empresa necessita. Vamos pensar em economia com a informatização utilizando sistemas de informática, com isso o meio ambiente agradece e a empresa economiza e assim pode melhorar suas atividades e ampliar seu campo de atuação pois vai dispor de mais recursos. Na verdade, um cadastro de cliente traz enormes vantagens para uma empresa ou organização.

Planilha para cadastro de cliente grátis em Excel VBA

Desenvolvemos um cadastro de cliente em Excel com o uso de VBA simples mais eficiente e que vai te auxiliar no dia a dia de suas atividades cotidiana.

O sistema possui um banco de dados onde você armazena os dados cadastrados de cada cliente e um formulário para fazer os lançamentos. Por que chamo de sistema e não de planilha, simples todo planilha que possui códigos que automatiza toda a tarefa realizada e considerado um sistema, se possuísse apenas formulas seria uma planilha, ou seja possuímos um sistema desenvolvido em Excel VBA.

Veja o sistema abaixo

Essa e a tela inicial do sistema, e simples porem bem intuitiva e atende o solicitado.

A tela de lançamento do sistema

Esse botões cadastrar e cancelar basta passar o mouse e aparece uma breve descrição de suas funcionalidade.

Nossos banco de dados onde fica armazenados as informações dos clientes cadastrados.

Agora veja o código usado na automatização do sistema

Pessoal não estarei comentando o código.

Private Sub CmdCadastrar_Click()
Dim Totalregistro As Long
Dim ws As Worksheet
Set ws = Worksheets(“BD Cliente”)

‘ variavel totalregistro para encontrar a ultima celula em branco
‘Totalregistro = Worksheets(“dados”).UsedRange.Rows.Count + 1
Totalregistro = ws.Cells.Find(What:=”*”, SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

‘comando para selecionar a planilha
Worksheets(“BD Cliente”).Select
‘aqui começa a gravação de dados
Cells(Totalregistro, 1) = Me.TxtCodigo
Cells(Totalregistro, 2) = Me.TxtNome
Cells(Totalregistro, 3) = Me.TxtEndereco
Cells(Totalregistro, 4) = Me.TxtCEP
Cells(Totalregistro, 5) = Me.TxtCidade
Cells(Totalregistro, 6) = Me.TxtEstado
Cells(Totalregistro, 7) = Me.TxtTelefone
Cells(Totalregistro, 8) = Me.TxtEmail
Cells(Totalregistro, 9) = Me.TxtOBS

‘mensagem de gravação
MsgBox “Dados salvo com sucesso!”

‘comandos para limpar as caixas de texto
Me.TxtCodigo = “”
Me.TxtNome = “”
TxtEndereco = “”
Me.TxtCEP = “”
Me.TxtCidade = “”
Me.TxtEstado = “”
Me.TxtTelefone = “”
Me.TxtEmail = “”
Me.TxtOBS = “”

‘comando para selecionar a caixa de texto nome
Me.TxtCodigo.SetFocus
Sheets(“Menu”).Select
End Sub

Comando para sair do formulário

Private Sub CmdSair_Click()
Unload Me
End Sub