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:

Dados do Cliente - Excel com VBA

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:

Dados do Cliente - btnenviar - Excel com VBA

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 é:

Código completo - Excel com VBA

Rode a aplicação para testar.

Espero ter ajudado

Veremos-nos em Breve com mais Dicas de uso VBA