MsgBox e InputBox atendem perguntas simples de sim/não e respostas de uma linha, mas adicionar um cliente realmente exige vários campos ao mesmo tempo — nome da empresa, contato, cidade, status. É para isso que serve um UserForm: uma pequena janela personalizada com seus próprios rótulos, caixas de texto, listas suspensas e botões, criada dentro do VBE e controlada inteiramente pelo seu código.

Criando um Formulário

No VBE, clique com o botão direito no seu projeto no Project Explorer e escolha Inserir → UserForm. Uma superfície de design em branco aparecerá, junto com uma Caixa de Ferramentas flutuante com controles que você pode arrastar para ela.

Labels, TextBoxes, ComboBoxes e Botões

Cada controle que você arrasta para o formulário recebe um nome padrão como TextBox1 ou CommandButton1 — funcional, mas sem significado quando o formulário possui seis ou sete controles. O hábito mais importante nesta seção está visível na janela de Propriedades: renomear cada controle imediatamente após adicioná-lo, usando um prefixo curto que identifica seu tipo (txt para TextBox, cbo para ComboBox, cmd para CommandButton, opt para OptionButton, chk para CheckBox, lst para ListBox) seguido de um nome descritivo. txtCompanyName é claro no código mesmo após três semanas; TextBox1 não é.

Labels são legendas de texto simples e não interativas ("Company Name:") — o usuário pode vê-las, mas nunca digita ou clica nelas. TextBoxes são onde o texto livre é digitado. ComboBoxes apresentam uma lista suspensa de opções, que é exatamente para isso que cboCity e cboStatus servem — restringir City e Status a uma lista conhecida, em vez de permitir que o usuário digite livremente "chicago", "Chicago,IL" e "CHI" para a mesma coisa em diferentes registros.

Escrevendo Código por Trás do Formulário

Clique duas vezes em qualquer controle na superfície de design para ir diretamente ao seu código — o VBA cria automaticamente um procedimento de evento chamado ControlName_EventName, e ao digitar código dentro dele, esse código será executado sempre que esse evento específico ocorrer para aquele controle específico. O evento padrão de um botão é Click:

Private Sub UserForm_Initialize()
    ' runs once, automatically, when the form is first shown
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"
 
    cboStatus.AddItem "Active"
    cboStatus.AddItem "Inactive"
    cboStatus.AddItem "Prospect"
End Sub
 
Private Sub cmdCancel_Click()
    Unload Me
End Sub

UserForm_Initialize é um procedimento de evento especial que dispara automaticamente no momento em que o formulário é carregado — antes do usuário ver qualquer coisa — o que faz dele o local ideal para preencher ComboBoxes com .AddItem ao invés de digitar as opções manualmente na janela de Propriedades, especialmente quando essas opções podem mudar ou vir de uma planilha. Unload Me dentro de cmdCancel_Click fecha completamente o formulário; Me sempre se refere ao formulário em que o código está sendo executado, então essa linha funciona sem modificações, independentemente do nome que você der ao formulário depois.

Exemplo Prático: Salvando um Novo Cliente

Este é o procedimento por trás do botão Salvar — o que realmente grava uma nova linha em tblCustomers:

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
 
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add
 
    newRow.Range(1, 1).Value = "C" & Format(tbl.ListRows.Count + 1, "000")
    newRow.Range(1, 2).Value = txtCompanyName.Value
    newRow.Range(1, 3).Value = txtContact.Value
    newRow.Range(1, 4).Value = txtEmail.Value
    newRow.Range(1, 5).Value = cboCity.Value
    newRow.Range(1, 6).Value = cboStatus.Value
 
    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Tarefa

1. Insira um novo UserForm, nomeie-o como frmAddCustomer e adicione três TextBoxes (txtCompanyName, txtContact, txtEmail) e dois ComboBoxes (cboCity, cboStatus), cada um com um Label correspondente.
2. Adicione dois CommandButtons, cmdSave e cmdCancel, e escreva os procedimentos UserForm_Initialize e cmdCancel_Click exatamente como mostrado.
3. Escreva cmdSave_Click conforme mostrado e, em seguida, adicione um botão temporário em outro local da planilha com o código frmAddCustomer.Show para testar a abertura do formulário.
4. Preencha o formulário para um sexto cliente fictício e clique em Salvar — confirme que uma nova linha aparece em tblCustomers com os valores inseridos.