Cadastro usando Excel e VBA

Olá galera, nesse post irei falar sobre o VBA, nele criaremos um formulário, no qual permite ao usuário digitar as informações no mesmo, e ser colocado na planilha do Excel.

Então, mãos a obra!

Iremos criar uma nova Macro, que vamos a chamar de cadastro.

(Para exibir a tela de macros, use Alt+F8, ou na guia Exibição>Macros)

O nosso próximo passo, é chamar o nosso formulário que contém os campos necessário para o cadastro, então, primeiramente criaremos o nosso formulário:

O desenho do formulário, será mais ou menos da seguinte maneira:

Agora, na folha do Excel, criaremos os campos no qual serão adicionados os dados do formulário, conforme será programado:

Agora, o próximo passo, é chamar a UserForm1 quando a macro for iniciada.

No Visual Basic, selecione o Module1, e na sub cadastro, adicione o comando Userform1.Show, ficando da seguinte maneira:

Sub cadastro()

UserForm1.Show

End Sub

Agora chegou a hora de programar o formulário.

No evento initialize do nosso formulário, iremos programar da seguinte forma:

Private Sub UserForm_Initialize()

' Apagamos todo o texto das Textbox

txtNome.Value = ""

txtTelefone.Value = ""

txtEndereco.Value = ""

' adicionamos todos os itens da Combo cboCargo

With cboCargo

.AddItem "Administração"

.AddItem "Secretaria"

.AddItem "Vendas"

.AddItem "Marketing"

.AddItem "Transporte"

End With

' deixamos a combo sem opção padrão

cboCargo.Value = ""

' colocamos o foco na txtName

txtName.SetFocus

End Sub

*Lembre-se de verificar sempre o evento em que está programando.

Agora, o principal código do projeto, onde os dados serão colocados na tabela do Excel, de acordo com o que o usuário cadastrar no formulário, o código do botão OK, que chamei de cmdOK, fica da seguinte forma: (evento Click)

Private Sub cmdOK_Click()

' ativa a planilha chamada 'Plan1' do Excel

ActiveWorkbook.Sheets("Plan1").Activate

' seleciona a celula A1

Range("A1").Select

' o codigo a seguir, faz com que seja feita a verificação das celulas vazias,

' para ser colocado em sequencia de como foi programado, os campos que o usuario digitar

' praticamente, este é o principal código do projeto!

' o loop define a celula ativa, para os dados serem colocados em sequencia...

Do

If IsEmpty(ActiveCell) = False Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = txtNome.Value

ActiveCell.Offset(0, 1) = txtEndereco.Value

ActiveCell.Offset(0, 2) = txtTelefone.Value

ActiveCell.Offset(0, 3) = cboCargo.Value

Range("A1").Select

End Sub

Agora, você pode testar seu projeto e ver o resultado:

Baixe este código, clicando aqui