Como Criar um Sistema de Cadastro no Excel

Para criar um sistema de cadastro no Excel, você pode seguir os seguintes passos:

1. Abra uma nova planilha no Excel e defina as colunas que você gostaria de incluir em seu cadastro. Por exemplo, nome, endereço, telefone, e-mail, etc.

2. Nomeie a primeira linha como "Cabeçalho" e as demais linhas como "Dados".

3. Na guia "Desenvolvedor", clique em "Inserir" e selecione "Botão de Controle (Formulários)" e, em seguida, selecione "Caixa de Combinação". Desenhe a caixa de combinação na célula onde você deseja que ela apareça.

4. Clique com o botão direito do mouse na caixa de combinação e selecione "Formatar Controle". Na caixa de diálogo "Formatar Controle", em "Controle de Origem", selecione o intervalo de células que conterá os nomes dos clientes cadastrados. Por exemplo, se você tiver 10 clientes cadastrados, selecione as células A2:A11.

5. Na planilha "Dados", insira os dados de cada cliente em uma linha separada.

6. Na guia "Dados", selecione "Validação de Dados" e, em seguida, "Lista". Na caixa de diálogo "Configurações de Validade de Dados", em "Fonte", selecione o intervalo de células que contém os nomes dos clientes cadastrados. Por exemplo, se você tiver 10 clientes cadastrados, selecione as células A2:A11.

7. Repita os passos 3 a 6 para cada campo que você gostaria de incluir em seu cadastro.

8. Na guia "Desenvolvedor", clique em "Inserir" e selecione "Botão de Controle (Formulários)" e, em seguida, selecione "Botão". Desenhe o botão na célula onde você deseja que ele apareça.

9. Clique com o botão direito do mouse no botão e selecione "Atribuir Macro". Na caixa de diálogo "Atribuir Macro", selecione "Nova" e, em seguida, digite um nome para a macro. Por exemplo, "Adicionar Cliente". Clique em "OK".

10. Na janela de edição de macro, digite o seguinte código:

Sub AdicionarCliente()'Defina o intervalo da última linha preenchida na planilha de dados.lastrow = Sheets("Dados").Range("A" & Rows.Count).End(xlUp).Row + 1

'Insira os dados na última linha. Sheets("Dados").Range("A" & last_row).Value = _Sheets("Cadastro").Range("B2").Value Sheets("Dados").Range("B" & last_row).Value = _Sheets("Cadastro").Range("B3").Value Sheets("Dados").Range("C" & last_row).Value = _Sheets("Cadastro").Range("B4").Value Sheets("Dados").Range("D" & last_row).Value = _Sheets("Cadastro").Range("B5").Value 'Limpe os campos do formulário. Sheets("Cadastro").Range("B2:B5").ClearContents 'Atualize a lista de clientes na caixa de combinação. Sheets("Cadastro").Shapes("ComboBox1").ControlFormat.DropDownLines = _Sheets("Dados").Range("A2:A" & last_row).Count Sheets("Cadastro").Shapes("ComboBox1").ControlFormat.ListFillRange = _"Dados!A2:A" & last_row 

End Sub

Este código insere os dados do cliente na última linha da planilha de dados, limpa os campos do formulário e atualiza a lista de clientes na caixa de combinação.

11. Salve sua planilha como um arquivo do Excel com extensão ".xlsm" para permitir a execução de macros.

Agora você pode usar seu sistema de cadastro no Excel para adicionar novos clientes e consultar informações de clientes existentes. Basta selecionar o nome do cliente na caixa de combinação e os dados serão exibidos nos campos correspondentes do formulário.