Excel

Tutorial de criar o formulário de cadastro:
1° Abra uma Planilha qualquer no qual queira criar o formulário:
No meu exemplo peguei a planilha de controle de cheques emitidos:

2°
2° Clique na guia Desenvolvedor (caso não esteja aparecendo, vá em opções do Excel e habilite a mesma .
Insira um Botão
3° Digite a descrição que aparecera no botão
4° Aperte Alt+f11
5°Clique com o botão direito do mouse em cima da pasta principal e selecione importar arquivo e importe os dois arquivos que está na pasta que disponibilizei para baixar! ( o formulário e o modulo que chama o formulário) ou crie um vocês mesmo atráves da opção inserir> Userform e Módulo.

6° Edite a gosto e depois de dois cliques em qualquer parte do formulário desenhado!
7° Aparecerá o codigo:
Option Explicit
‘ A rotina privada buttonAdd_Click é acionada
‘ sempre que o botão de nome buttonAdd é
‘ clicado. Você pode acionar rotinas em outros
‘ eventos combinando o formato abaixo:
‘
‘ [objeto]_[evento]
‘
‘ Onde [objeto] é o nome do objeto em questão
‘ e [evento] é um dos eventos na lista visível
‘ no drop-down na parte superior direita desta
‘ janela.
Private Sub buttonAdd_Click()
‘ Exibe uma mensagem de erro se o usuário
‘ não tiver preenchido os campos inputNome
‘ e inputEmail. Em seguida, encerra a
‘ execução da rotina.
If inputNome.Value = Empty Or inputEmail = Empty Then
MsgBox “Você deve fornecer os dados para cadastrar.”
Exit Sub
End If
Dim i As Integer
‘ Percorre a região definida como tabela
‘ de registros (A9:A900) e adiciona os
‘ valores de inputNome e inputEmail à
‘ primeira linha vazia. Se isto for feito,
‘ encerra a execução do formulário (com a
‘ instrução Unload Me.
For i = 9 To 9000
If Cells(i, 1).Value = Empty And Cells(i, 13).Value = Empty Then
Cells(i, 1).Value = inputNome.Value
Cells(i, 2).Value = inputEmail.Value
Cells(i, 3).Value = TextBox1.Value
Cells(i, 5).Value = TextBox2.Value
Cells(i, 6).Value = TextBox3.Value
Cells(i, 7).Value =