Nesse artigo, você vai aprender como salvar dados de um formulário VBA para a planilha do Excel. Ainda existe muitas duvidas quanto a isso, e por esse motivo resolvi mostrar uma forma fácil e prática de salvar informações de um UserForm para o excel. Leia o artigo com bastante atenção, e se houver duvidas deixe nos comentários que iremos responder o mais rápido possível.

A primeira coisa que vamos fazer é escolher a planilha a qual vai receber os dados do formulário. Para esse exemplo eu irei usar a plan1, nela nós vamos adicionar os seguintes dados (Código,Nome,Telefone,Celular) esses serão os cabeçalhos da nossa planilha de text.

imagem 1 Formulário VBA

Logo em seguida vamos abrir nosso editor de códigos do excel, e adiciona um novo formulário e nesse formulário colocar 4 text-box 4 Label  e um botão para salva os dados na planilha assim que for clicado.

imagem 2 Formulário VBA

vá na propriedades (NAME) de cada text-box e mude os seguintes paramentos:

imagem 3 Formulário VBA

  • Textbox1 – vamos mudar sua propriedade Name  para Codigo
  • Textbox2 – vamos mudar sua propriedadeName para Nome
  • Textbox3 – vamos mudar sua propriedade Name para Telefone
  • Textbox4 – vamos mudar sua propriedade Name para Celular

Siga o mesmo passo a cima com as lebel e com o botão porem ao invés de mudar a propriedade (NAME) vamos mudar a propriedade (CAPTION) ou seja, vamos mudar apenas os títulos para indexificar o que é cada caixa de texto e botão.

imagem 4 Formulário VBA

  • Label1 – vamos mudar sua propriedade Caption  para Codigo
  • Label1- vamos mudar sua propriedade Caption para Nome
  • Label1-vamos mudar sua propriedade Caption para Telefone
  • Label1 -vamos mudar sua propriedade Caption para Celular
  • CommandButton1 -vamos mudar sua propriedade Caption para Salvar

Agora vamos inserir um novo módulo e dentro dele vamos copiar o código a baixo.

imagem 6 Formulário VBA

Sub cadastradados()
Plan1.Select
linha = 2
Do Until Sheets("plan1").Cells(linha, 1) = ""
linha = linha + 1
loop
Sheets("Plan1").Cells(linha, 1) = UserForm1.codigo.Text
Sheets("Plan1").Cells(linha, 2) = UserForm1.nome.Text
Sheets("Plan1").Cells(linha, 3) = UserForm1.telefone.Text
Sheets("Plan1").Cells(linha, 4) = UserForm1.celular.Text

MsgBox ("Dados salvos na planilha com sucesso"), vbInformation, "Sucesso"

End Sub

Após copiar o código dentro do modulo temos que dar um duplo click dentro do nosso botão do formulário e chama a sub que criamos. Essa sub tem o nome de cadastradados.Apos o duplo click dentro do botão digite o nome inicial da sub e aperte Ctrl + Space nos seu teclado, e irar aparecer uma  lista de referencia com o nome da nossa sub.

imagem 5 Formulário VBA

Agora execute o projeto e já estará funcionando perfeitamente!

imagem 7 Formulário VBA

Teve duvidas? baixe a planilha de referencia do artigo clicando no botão a baixo!

→Clique aqui para baixar o projeto

Tags:

Sobre o Autor

Welisson Silva
Welisson Silva

Analista de Sistemas, trabalha com TI desde 2014. Especializado em Vendas Online, desenvolvedor, programador, guitarrista e entusiasta de tudo que envolva tecnologia.

13 Comentários

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *