Aprenda a inserir dados no Excel com o VBA

Veja nesse artigo como inserir dados de Formulário no Excel com VBA.

CADASTRO DE CLIENTES

Abra a Guia Desenvolvedor em seguida Abra o editor do Visual Basic.

Na aba Propriedades no campo Caption digite:

CADASTRO DE CLIENTES

Crie Rótulos e caixas de textos para os campos:

Nome:: TXTnome Endereço:: TXTEnd Telefone:: TXTTel e um botão para ação:: btnEnviar

O formulário deverá ficar como a seguir:


No Visual Basic digite:

Sub cadastro() Sheets("cadastro").Select UserForm1.Show End Sub

Digite o código abaixo dando duplo clique no btnenviar.

Private Sub btnenviar_Click() Sheets("cadastro").Select 'posiciona o cursor na planilha cadastro ActiveCell.Offset(1, 0).Range("a1").Select 'cursor posicionado uma celula para baixo ( primeira em branco) End Sub.

Para os campos receberem os valores digitados.

A planilha aqui esta com o cursor posicionado na célula nomeada. Ela deve receber a informação digitada no controle conhecido como txtnome (caixa de texto do formulário)

Veja como fica:

ActiveCell.Value = Me.txtnome.Text 'a celula atual ter o seguinte valor

Com esta linha a célula atual será capaz de receber o valor inserido no controle.

Agora vamos posicionar o cursor na célula a direita , utilizando o método offset.

ActiveCell.Offset(0, 1).Activate 'posiciona o cursor uma célula para a direita

Note que o cursor receberá o conteúdo de um controle do formulário, desta vez o controle txtend.

Crie o mesmo procedimento para txtend.

ActiveCell.Value = Me.txtend.Text 'a celula atual ter o seguinte valor ActiveCell.Offset(0, 1).Activate 'posiciona o cursor uma célula para a direita

Crie o mesmo procedimento para txttel.

ActiveCell.Value = Me.txttel.Text 'a celula atual ter o seguinte valor ActiveCell.Offset(0, 1).Activate 'posiciona o cursor uma célula para a direita

Nesta etapa seu código deverá estar assim:


Insira o código abaixo, para que o seu cursor posicione na célula abaixo e limpe o formulário para nova digitação:

ActiveCell.Offset(1, -3).Activate 'posiciona o cursor uma linha abaixo e 3 colunas a esquerda. Me.txtend = "" Me.txtnome = "" Me.txttel = "" Me.txtnome = SetFocus

O código completo desta aplicação é:


Rode a aplicação para testar.

Espero ter ajudado

Veremos-nos em Breve com mais Dicas de uso VBA

Artigos relacionados